Discussion :

[Lee_Conoclaste]

Bonjour,
J'ai un dossier "week-xx" ( qui peut se trouver n'importe ou sur l'ordi) dans lequel se trouve le classeur "reporting".
La fin de ma macro doit enregistrer le classeur comme suit "reporting week-xx"
J'utile

Code :

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

ThisWorkbook.Path

pour avoir le chemin complet: par exemple "c:\Users\Lee\Documents\report\week_xx" dont je ne veux que garder ce qui est en gras mais j'y arrive pas... . !!! le chemin peut varier du tout au tout !!!
Si quelqu'un a une solution avec ou sans ce code, je suis preneur...

Merci d'avance

[78chris]

Bonjour

Voir la commende split pour découper la chaîne du chemin dans un tableau (array) sur le \

Le dernier élément du Tableau (ubound) est ce que tu cherches

[joe.levrai]

Bonjour,

une autre méthode si l'on n'est pas à l'aise avec la manipulation des tableaux vba :

- localiser le dernier "\" via InstrRev
- récupérer la portion en partant de la droite, dont le nombre de caractère est "Longeur du chemin - position du dernier "\"

Code :

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

1
2
3
4
5
Sub toto()
Dim Chemin As String
    Chemin = ThisWorkbook.Path
    MsgBox VBA.Right(Chemin, Len(Chemin) - InStrRev(Chemin, "\"))
End Sub

[Lee_Conoclaste]

Bonjour,

une autre méthode si l'on n'est pas à l'aise avec la manipulation des tableaux vba :

- localiser le dernier "\" via InstrRev
- récupérer la portion en partant de la droite, dont le nombre de caractère est "Longeur du chemin - position du dernier "\"

Code :

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

1
2
3
4
5
Sub toto()
Dim Chemin As String
    Chemin = ThisWorkbook.Path
    MsgBox VBA.Right(Chemin, Len(Chemin) - InStrRev(Chemin, "\"))
End Sub

Je ne suis ni à l'aise avec les tableaux ni avec VBA dans son ensemble...
J'ai essayé avec InsStrRev mais je ne trouvais pas la bonne combinaison.
Un tout grand merci Joe.levrai