Fonction import données d'un fichier extérieur (fermé)

Bonjour à tous,

je cherche à créer une macro me permettant d'importer un fichier au format CSV ou Excel peu importe,

si je simplifie au maximum il me faudrait juste la fonction me permettant d'ouvrir la boite de dialogue qui permet de choisir le fichier à importer,

après plusieurs essais suite à différents fichiers trouvés sur le net rien ne fonctionne,

Auriez vous une idée ?

Merci d'avance de vos réponses

Bonjour

Voici un début de code

Sub Importation()
Dim nomfichier As String

Workbooks.Open Application.GetOpenFilename("CSV FIles(*.csv),*.csv")
nomfichier = ActiveWorkbook.Name

nomfichier étant le nom du fichier choisi

Si ok -->

Cordialement

super effectivement cela ouvre la bonne boite de dialogue,

en revanche comment importer le fichier sur ma feuille ?

Vous pouvez essayer avec ce code complet

Sub Importation()
Dim nomfichier As String

Workbooks.Open Application.GetOpenFilename("CSV FIles(*.csv),*.csv")
nomfichier = ActiveWorkbook.Name
With Workbooks(nomfichier)
    .Sheets(1).Copy Before:=ThisWorkbook.Sheets(1) 'on copie la feuille du fichier source en premier position
    Workbooks(nomfichier).Close False 'si le fichier source est ouvert on le ferme
End With

Cordialement

merci cela fonctionne

maintenant je dois chercher comment séparer mes données dans les cellules car elles s'insèrent en ligne complète

maintenant je dois chercher comment séparer mes données dans les cellules car elles s'insèrent en ligne complète

Utilisez la fonction excel Menu Données --> convertir