parcour disque dur

[john]

Bonjour tout le monde,

J'ai un petit problème, voilà je vous explique en quelques mots.

Je voudrai pouvoir parcourir mon disque dur et sélectionner un fichier par VBA (excell) et récupérer uniquement le chemin et le nom du fichier pour pouvoir le mettre dans une variable.

Je vous remercie d'avance pour votre aide.

John

PS: j'ai su le faire, mais je ne me rappel plus comment j'ai fais (et ça fait longtemps) lollll

 

[Roland]

Salut John

Dir("chemin")

Salut ++

 

[john]

Re,

Merci pour ta réponse mais ça marche pas.

Je vais expliquer en détail.

J'ai un USF, dessus j'ai un bouton, quand on clique dessus j'aimerai avoir un boite de dialogue qui s'ouvre, qui me permet de parcourir mon disque dur, de sélectionner un fichier (n'importe lequel) et puis faire OK et que tous les renseignements concernant mon fichier soit dans une variable récupérable dans VBA.

Voilà je pense avoir été plus claire cette fois-ci.

Encore merci d'avance pour vos réponses et qui sait ... peut être la solution.

John

 

[john]

re,

Sorry, pas claire..... mais clair.

John

 

[stef]

salut

Dim FileToOpen as string

FileToOpen = Application.GetOpenFilename(*.xls), *.xls", , "Choisir le fichier à ouvrir")


voir l'aide pour plus de detail !! ;-)

 

[john]

Salut Stef,

Merci pour ces renseignements, je testerai demain car maintenant je quitte le boulot.

Encore merci.

John

PS: je te dis si ça marche demain.

@++++++++

 

[stef]

slt :-D c'est Vendredi !!! ;-)

un p'tit truc encore. Suivant l'utilisation que tu en fais il est peut être necessaire de detecter une annulation de l'utilisateur.

Si FileToOpen est 'False---> y'a grosse boulette si tu essaye de l'ouvrir avec Workbooks.Open FileToOpen lol

ca donne ca en gros:

FileToOpen = Application.GetOpenFilename("(*.xls), *.xls", , "Choisir le Transfert.xls à ouvrir")
If FileToOpen = False Then
MsgBox "Opération annulée", vbExclamation
Exit Sub
End If
Workbooks.Open FileToOpen

@+

 

[stef]

oups !!


le "Choisir le Transfert.xls à ouvrir" n'a rien a faire là , c'est un copier coller un peu rapide sorry !!

 

[john]

Salut Stef,

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiii c'est exactement ce que je voulais.

Bon week end.

John