J'ai un petit problème de programmation, j'aimerais pouvoir utiliser un MACRO pour importer un fichier que l'utilisateur choisi et ensuite pouvoir continuer à travailler dessus, le code que j'essaye de faire marcher est le suivant;
 
Sub Macro1()
 
 
  Dim QuelFichier
  QuelFichier = Application.GetOpenFilename("Text Files (*.csv), *.csv" )
 
 
    Application.Goto Reference:="Macro1"
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;QuelFichier", Destination:=Range("A1" ))
        .Name = "CHROMTAB"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub
 
 
Le problème se situe, je pense, au niveau du Refresh, il me dit qu'il ne trouve pas le fichier text. P-e ai-je fait une erreur au niveau de Connection:="TEXT;QuelFichier" et qu'il ne reconnait pas le chemin du fichier pour l'ouvrir.
Voilà si quelqu'un pense pouvoir m'aider se serait pas mal, merci d'avance

Bonsoir,
tu pourrais donner l'erreur générée ainsi que la ligne qui la provoque ? Ce sera plus pratique

J'ai réussi à trouver mon erreur, c'était une erreur de syntax, bref une erreur de débutant