Discussion :

[sat478]

Je recherche s'il existe des fichiers Excel dans un répertoire donné grâce à la commande FileSearch.

J'affiche ensuite les emplacements de ces fichiers dans une colonne Excel.

Après différents traitements automatisés (ouverture de certains fichiers, calculs, mise en page...) je souhaite sauvegarder les nouveaux fichiers crées dans un autre répertoire mais avec le même nom de fichier que précédemment.

exemple :

c:\rep1\toto1 dans e:\rep2\toto1

mais je ne sais pas comment récupérer uniquement le nom d'un fichier Excel sans son emplacement complet...

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActiveWorkbook
      NomFich = .Name
      MsgBox NomFich
End With

Tu dis

A+

[sat478]

Merci cela me permet en effet de récupérer le nom du fichier.

Par contre de l'enregistrement j'ai essayé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
chemin = Sheets("Feuil1").Range("D7").value & "\" & nomFich
ActiveWorkbook.SaveAs Filename:=chemin

mais le code ne fonctionne pas et dans l'aide Excel les explications sont assez nébuleuses :-(

comment faire donc pour enregistrer un fichier dans le répertoire indiquer dans la cellule D7 de la feuille 1 (par exemple : c:\toto) avec le nom de fichier nomFich qui provient du fichier initial qui lui était dans d:\tata

j'arrive pas à bien saisir l'utilisation de saveas

[ouskel'n'or]

En principe, ton code devrait fonctionner mais je mettrais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin = Sheets("Feuil1").Range("D7").Formula & "\" & nomFich

... si tu es sûr d'avoir le volume dans D7 ("C:\NomRep\...)

A+


PS - Vérifie au pas à pas le contenu de chemin

[sat478]

J'ai trouvé l'une des erreurs : c'est tout simplement que j'avais laissé ouvert mon fichier initial, il ne pouvait donc pas enregistrer le nouveau fichier créé avec le même nom même si les volumes sont différents. Excel ne peut pas gérer deux fichiers de même noms en même temps.

Par contre lors de l'ouverture de mes fichiers initiaux le message suivant apparaît :

Le classeur que vous avez ouvert contient des liaisons avec un autre classeur. Voulez-vous mettre à jour ce classeur avec les modifications apportées à l'autre utilisateur ?
Oui/non ?

J'appuie toujours sur Non car c'est la réponse qui est adéquate à ma problématique, mais je souhaiterai savoir s'il y a moyen d'automatiser cela pour que mon code VBA clique de lui-même sur Non. Mais là j'avoue ma plus totale ignorance...

[SfJ5Rpw8]

c'est le 2° paramétre de la fonction Workbook.open..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.open "toto.xls",False

[sat478]

merci beaucoup à tous

cela fonctionne parfaitement en faisant des adaptations si nécessaire ;-)

il me reste encore à résoudre un gros problème de password pour protéger mon code ==> je mets cela dans un autre post

++