Bonsoir à toutes et à tous,
Ch'suis un p'tit nouveau ici, même si ça fait un bout de temps que je code, et je viens vous soumettre le problème qui me fait tomber par terre :
Pourquoi le code ci-dessous (très fortement inspiré d'Activexperts.com), inséré dans la procédure Auto_Open d'un classeur Excel vide, me retourne-t-elle "Fichier introuvable", quand le même code (au nom de fichier près) dans un autre classeur fonctionne ?
Enfin, "fonctionne", manière de dire, car dans ce cas le fichier est dans un dossier posé sur le "Bureau" et le path renvoyé concerne "Mes Documents" !
C'est très très très moyen, tout ça...
Merci de vos idées et lumières,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Auto_Open() Dim sPath As String Dim objFSO As FileSystemObject Dim objFile As File Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("test.xls") ' tout faux : renvoie Mes Documents ! ! ! sPath = objFSO.GetAbsolutePathName(objFile) MsgBox sPath sPath = objFSO.GetParentFolderName(objFile) MsgBox sPath Set objFSO = Nothing End Sub
--
Jean-Pierre
Partager