Rapport de message :*
 

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