Discussion :

[Vincent32]

Chers tous,

J'ai trouvé dans la FAQ comment retrouver les répertoires parents, cependant je ne sais pas comment adapter ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub afficherRepertoireParent()
    If ThisWorkbook.Path = "" Then
        MsgBox "Est ce que votre classeur est sauvegardé?"
        Exit Sub
    End If
 
    ChDir (ThisWorkbook.Path)
    ChDir ".."
    MsgBox CurDir
End Sub

Ce que je souhaite c'est récupérer le chemin ou est stockée ma feuille excel contenant la macro et l'inscrire dans mon classeur excel à l'endroit désiré (feuille macro cellule E9) ?

Merci pour votre aide,

Cordialement

Vincent

[jfontaine]

Bonjour,

Si je comprend bien ta demande

Code :

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

Sheets("Mafeuille").Range("E9").Value = Thisworkbook.Path

Nous dire, si ce n'est pas ce que tu attend

[Vincent32]

Merci énormément Jérôme,

C'est si simple et tellement, ... Magique

Cordialement

Vincent