VBA Excel - Nom de fichier

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...

Code:

---

1 2 3 4

With ActiveWorkbook NomFich = .Name MsgBox NomFich End With

---

Tu dis

A+

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:

---

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

En principe, ton code devrait fonctionner mais je mettrais

Code:

---

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

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 :

Citation:

---

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...

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

Code:

---

Workbooks.open "toto.xls",False

---

:wink:

merci beaucoup à tous :D

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

++