Fermer Boite de dialogue : GetOpenFilename

[carlos]

Bonjour le forum

Voir PJ

J'extrais au travers d'une boite de dialogue : GetOpenFileneme, le chemin d'un fichier.
Une fois ce fichier trouvé et selectionner , j'aimerais fermer cette boite.

Merci

Carlos [file name=FermerBoiteGetOpenFilename.zip size=6726]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FermerBoiteGetOpenFilename.zip[/file]

 

[excalibur]

bonjour carlos le forum une macro qui marche si tu peus t en inspirer Sub chercher1()
Dim Filt As String
Dim Fichier As Variant
Dim IndexFiltre As Integer
Dim Titre As String
Filt = 'Fichiers texte (*.txt),*.txt,' & _
'Fichiers Lotus (*.prn),*.prn,' & _
'Fichiers séparés par des virgules (*.csv),*.csv,' & _
'Fichiers ASCII (*.asc),*.asc,' & _
'Tous les fichiers (*.*),*.*'
IndexFiltre = 5
Fichier = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=IndexFiltre, _
Title:=Titre)
If Fichier = False Then
MsgBox 'Aucun fichier n'a été sélectionné.'
Exit Sub
End If
MsgBox Fichier
End Sub'salutations

 

[carlos]

bonsoir Excalibur , bonsoir le forum

merci pour ton inspiration .

Je pense qu'elle me sera d'une tres grande utilité .

A plus

carlos