boite de dialogue OPEN

[fifi]

re bonsoir,
j'essye de trouver comment faie apparaitre la boie de dialogue OPEN, pour pouvoir choisir un classeur excel ou TXT. j'ai le code mais ensuite la macro d'arrete et le code restant n'est pas executé :-
une petite idée?


pour le moent j'ai ca:

Dim REF, f, I, fs, Chemin As Variant

Set fs = Application.FileSearch
With fs
Chemin = Range('B1')
.LookIn = Chemin
Application.FindFile

End With


merci

 

[MichelXld]

bonjour Fifi

j'espere que ces exemples pourront t'aider


Sub boiteDialogueOuvrir_Fichiers_V01()
Dim Fichier As Variant

Fichier = Application.GetOpenFilename
If Fichier = False Then
MsgBox 'Opération Annulée'
Exit Sub
End If

MsgBox Fichier
End Sub



Sub boiteDialogueOuvrir_Fichiers_V02()
Dim Fichier As Variant

Fichier = Application.GetOpenFilename( _
'Fichiers Excel et Fichiers Texte (*.xls;*.txt),*.xls;*.txt')

If Fichier = False Then
MsgBox 'Opération Annulée'
Exit Sub
End If

MsgBox Fichier
End Sub



bonne journée
MichelXld

 

[fif]

nikel nikel

un grand merci ..