Importation de données dans un nouvel onglet

Bonjour,

Cela faut deux jours que je suis sur ce code VBA, et j'ai toujours le même message d'erreur.

Mon but est d'ouvrir un fichier Excel au choix de l'utilisateur ( cette étape ne pose pas de soucis particuliers).

Par le suite, l'utilisateur choisi un fichier de données afin de l'importer dans un nouvel onglet sous Excel. Mon probléme se situe à ce niveau la. j'ai comme retour l'erreur :

"Erreur d'éxecution 1004" Erreur définie par l'application ou par l'objet

Je n'ai que tres peu d'experience en VBA et j'ai tenté d'écumer le net avant de poster ici...

D'avance merci,

Maxime

PS: Je joins le code:

' Choix du fichier PV

Classeur = Application.GetOpenFilename("Classeurs Excel,*.xls")

If Classeur = False Then Exit Sub

Workbooks.Open Filename:=Classeur

' Selection des données

Dim monFich As String

monFich = Application.Dialogs(xlDialogOpen).Show

' Creation du nouvel onglet

ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _

monFich, Destination:=Range("$A$1"))

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFilePromptOnRefresh = False

.TextFilePlatform = 1252

.TextFileStartRow = 1

.TextFileParseType = xlDelimited

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = False

.TextFileTabDelimiter = True

.TextFileSemicolonDelimiter = False

.TextFileCommaDelimiter = False

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

' Renomme le nouvel onglet

Sheets("Feuil1").Select

Sheets("Feuil1").Name = "Releve_banc"

End Sub

Bonjour,

Dis nous sur quelle ligne se produit l'erreur (elle est surlignée en jaune)

quelqu'un ici pourra alors te répondre efficacement

je n'ai pas trop le temps; donc je fais appel à mes petits camarades du forum !

Tout d'abord, merci de votre réponse.

L'erreur apparait sur la ligne suivante:

With ActiveSheet.QueryTables.Add(Connection:= _

monFich, Destination:=Range("$A$1"))

Cordialment,

Maxime