Re: Import de fichier |
Titre du sujet : Re: Import de fichier par Guy le 25/08/2009 20:40:48 BonjourAlragorn, Tu peux utiliser la méthode GetOpenFilename de l'objet Application. Sub ImporterFichier() On Error GoTo ImporterFichierErr Dim strTypeDeFichier As String Dim strTitre As String Dim varFichier As Variant ' La valeur de retour de GetOpenFileName est une chaîne ou un booléen strTypeDeFichier = "(*.tsv), *.tsv,Tous les fichiers (*.*), *.*" strTitre = "Importer des fichiers" varFichier = Application.GetOpenFilename(FileFilter:=strTypeDeFichier, Title:=strTitre) If varFichier <> False Then ' L'utilisateur n'a pas cliqué sur Annuler ' Effectuer le traitement ICI MsgBox "Prêt pour le traitement du fichier " & varFichier End If Exit Sub ImporterFichierErr: MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & "ImporterFichier()" End Sub Pour ce qui est du traitement du fichier à ouvrir il reste à savoir à quoi ressemblent les fichiers *.tsv. Guy |
Forums