Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Si tu n'es pas sur le lecteur I: au départ de ton code, il va falloir que tu utilises ChDrive "I:" avant de spécifier le dossier avec ChDir Cordialement Pascal
"ced" a écrit dans le message de news:44a901c4a144$93c0a320$ Bonjour,
j'ai ce code en dessous pour récuperer un fichier et l'ouvrir, mais, j'arrive pas à aller sur I:projet
il va ailleur
merci
Sub Recup_dir_compresseur()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) ChDir Rep
Workbooks.Open Fichier
end sub
Bonjour
Si tu n'es pas sur le lecteur I: au départ de ton code, il va falloir que tu
utilises
ChDrive "I:"
avant de spécifier le dossier avec ChDir
Cordialement
Pascal
"ced" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:44a901c4a144$93c0a320$a501280a@phx.gbl...
Bonjour,
j'ai ce code en dessous pour récuperer un fichier et
l'ouvrir, mais, j'arrive pas à aller sur I:projet
il va ailleur
merci
Sub Recup_dir_compresseur()
Dim Rep As String, Fichier As String
Dim CheminEtFichier As String, NFichier As String, NChemin
As String
Bonjour Si tu n'es pas sur le lecteur I: au départ de ton code, il va falloir que tu utilises ChDrive "I:" avant de spécifier le dossier avec ChDir Cordialement Pascal
"ced" a écrit dans le message de news:44a901c4a144$93c0a320$ Bonjour,
j'ai ce code en dessous pour récuperer un fichier et l'ouvrir, mais, j'arrive pas à aller sur I:projet
il va ailleur
merci
Sub Recup_dir_compresseur()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
