bonjour Creepy , Jepi67 et G'Claire
Creepy , merci pour ton utilitaire que je vais tester de ce pas
Jepi67 , ci joint une macro pour retrouver le chemin du repertoire SendTo
Sub informationsRepertoire_SendTo()
Const Cible = &H9 'SendTo
Dim objShell As Object, objFolder As Object, objFolderItem As Object
Set objShell = CreateObject('Shell.Application')
Set objFolder = objShell.NameSpace(Cible)
Set objFolderItem = objFolder.Self
MsgBox objFolderItem.Path
End Sub
bonne journée
MichelXld