Autres indentifier le classeur en ne connaissant que le nom d'un des module

[patricktoulon]

Bonjour à tous
je voudrais pour remonter jusqu'au classeur a partir d'un module

j'obtiens l'object vbcomponent(module) avec ceci

  Set vbComp = Application.VBE.ActiveCodePane.CodeModule.Parent

avez vous des idées?

 

[patricktoulon]

re
bon on a vu la reduction dans un bloc with
maintenant on peut parler du besoins de variabliser
c'est quoi la différence selon toi entre ça

Sub testgetwbkparente1()
    With Application.VBE.ActiveCodePane.CodeModule.Parent.Collection.Parent
       MsgBox Mid(.Filename, InStrRev(.Filename, "\") + 1)
    End With
End Sub

et ça

Sub TestGetWorkbookNameSuite()
Dim NomF As String: NomF = Application.VBE.ActiveCodePane.CodeModule.Parent.Collection.Parent.fileName
' Affichez le nom du fichier
    MsgBox Mid(NomF, InStrRev(NomF, "\") + 1)
End Sub

 

[patricktoulon]

re
et ben non ce n'est pas identique du tout
tu n'a pas compris le sens de la démarche
ma fonction me renvoie le classeur contenant le module actif dans vbe il n'est pas forcé que se soit le classeur contenant la macro
ton truc a toi renvoie celui contenant de la macro

edit:et en plus ça marche pas ton truc

 

[patricktoulon]

ok allez prépare nous une belle source
je viendrais à grand coups de hache dans tes codes a rallonge