Bonjour,
Je cherche à créer une Macro qui, à partir d'un fichier Excel, ira ouvrir un autre fichier Excel qui se trouve dans Mes documents et cela sur nimporte quel PC car ces fichiers servent à plusieurs personnes sur des PC différents.
Voici la macro telle que je l'ai écrite et qui ne fonctionne pas car elle me renvoie un message me disant que le nom du fichier est inconnu.
Sub Ouverture()
With ActiveWorkbook
Dim chemind As String
'renvoie le chemin du bureau de l'utilisateur windows
chemind = CreateObject("WScript.Shell").specialFolders("MyDocuments")
'ouvre le fichier Excel
Workbooks.Open Filename:="chemind\Mot de Passe 54.xls"
Range("A1").Select
End With
End Sub
Message ci-joint
Merci pour votre aide.
François
Je cherche à créer une Macro qui, à partir d'un fichier Excel, ira ouvrir un autre fichier Excel qui se trouve dans Mes documents et cela sur nimporte quel PC car ces fichiers servent à plusieurs personnes sur des PC différents.
Voici la macro telle que je l'ai écrite et qui ne fonctionne pas car elle me renvoie un message me disant que le nom du fichier est inconnu.
Sub Ouverture()
With ActiveWorkbook
Dim chemind As String
'renvoie le chemin du bureau de l'utilisateur windows
chemind = CreateObject("WScript.Shell").specialFolders("MyDocuments")
'ouvre le fichier Excel
Workbooks.Open Filename:="chemind\Mot de Passe 54.xls"
Range("A1").Select
End With
End Sub
Message ci-joint
Merci pour votre aide.
François