boite de dialogue OPEN

fifi

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 816
Messages
2 092 360
Membres
105 378
dernier inscrit
y07