Pb - Importation de données

[nico0007]

Bonjour le forum,

J'ai un soucis avec mon code. Je désire importer les données d'un fichier .csv sur une des feuilles Excel de mon classeur après le clic sur un bouton. Voici mon code:

Dim MonFichier As Variant

MonFichier = Application.GetOpenFilename("Text Files (*.txt), *.txt, (*.csv), *.csv")
With ActiveSheet.QueryTables.Add(MonFichier, Destination:=Feuil2.Range("A1"))
        .Name = "Test"
        .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 = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

J'ai une erreur sur la ligne

With ActiveSheet.QueryTables.Add(MonFichier, Destination:=Feuil2.Range("A1"))

le débogueur me dit:"La plage de destination n'est pas la même feuille de calcul que celle dans laquelle la table de requête est créée."
J'avoue ne pas trop saisir, car c'est ce que je veux exactement --> charger les données sur la feuille 2 alors que mon bouton est sur la feuille 1.

Merci pour votre aide,
Nico

 

[nico0007]

Re : Pb - Importation de données

Re,

Bon je viens de trouver mon erreur.

Sujet fermé...