Discussion :

[8e8eClo]

Bonjour,

J'avais demandé il y a quelque temps que l'on m'aide à construire un chemin d'accès par rapport au nom du fichier.
J'aimerai que l'on m'aide à le déchiffrer.
Voici le code :

Code :

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

Fichier = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1) & ".dot"

Je le comprends globalement mais pas assez pour l'améliorer.
Dites moi si j'ai bon :
1° Left : parce qu'on part de la gauche
2° Fullname : parce qu'on prend le nom complet (y compris le chemin d'accès)
3° .dot : parce qu'il s'agit de l'extension du fichier.

Par exemple : pourquoi le "-1" ?
Comment insérer un élément supplémentaire ? Par exemple le nom du fichier + "test" avant le ".dot".

Merci

[jfontaine]

Bonjour,

Retourne le chemin complet du fichier ainsi que son nom

Code :

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

ThisWorkbook.FullName

Retourne la position du point dans la chaine de caractère (le -1 signifie que l'on souhaite la position du caractère avant le point)

Code :

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

InStrRev(ThisWorkbook.FullName, ".")

Retourne la partie gauche jusqu'au caractère précédent le . d'extension de fichier

Code :

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

Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1) & ".dot"

Pour ajouter Test à la fin du nom de fichier

Code :

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

Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1) & "Test.dot"

[8e8eClo]

merci beaucoup.

[kiki29]

Salut, sans oublier F1 et l'aide en ligne