utilisation de findfile sous VB Excel

utilise Application.GetOpenFilename pour recup le nom de ton ficher...
denis p.

Sub choix_file()
Dim NomFichier
ChDrive "c:" 'ton disque
ChDir "c:" 'ton répertoir
NomFichier = Application.GetOpenFilename 'récup nom complait du fichier
MsgBox NomFichier
End Sub

"b42" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:01be01c4e749$96b7e700$3a01280a@phx.gbl...
J'utilise la méthode Findfile pour pouvoir choisir
l'ouverture d'un .csv . Je ne sais pas comment ouvrir la
boite de dialogue dans un répertoire donné et tester le
retour de l'appel de cette méthode.

Merci pour les pistes!

bonjour,

une méthode pour chercher un fichier et pour l'ouvrir. Tu peux l'adapter. Tu
noteras que la lisaison employée est la lisaison longue. Si tu veux utiliser
la liaison courte il te faut mettre dans ton projet une référence à Windows
Script Host Object Model

Set fso = CreateObject("Scripting.FileSystemObject")

ctrl1 = False

A+

While ctrl1 = False
Set filetopen = Nothing
filetoopen = Application.GetOpenFilename
If filetoopen <> False Then
If (fso.GetFile(filetoopen).Type <> "File" And
fso.GetFile(filetoopen).Type <> "Document texte") Then
MsgBox "Vous avez choisi un fichier dont le type n'est pas document
texte ou sans extension" & Chr(13) & "vous devez choisir un autre fichier ou
Annuler"
Else
ctrl1 = True
End If
Else
Set fso = Nothing
With Application
.DisplayAlerts = True
.ScreenUpdating = True
.AskToUpdateLinks = True
.EnableCancelKey = xlInterrupt
End With
Exit Sub
End If
Wend

Set fso = Nothing


Workbooks.OpenText Filename:=filetoopen, Origin:=xlWindows, Tab:=True,
Other:=True, OtherChar:="!"

J'utilise la méthode Findfile pour pouvoir choisir
l'ouverture d'un .csv . Je ne sais pas comment ouvrir la
boite de dialogue dans un répertoire donné et tester le
retour de l'appel de cette méthode.

Merci pour les pistes!