erreu de compil

[pascal]

bonjour,
Pourquoi j'ai une erreur de compil (débutant)
merci
Sub Macro2()


Dim L As Integer
L = Sheets('feuil1').Range('a65536').End(xlUp).Row + 1

With ActiveSheet.QueryTables.Add(Connection:= _
'TEXT;C:\\Documents and Settings\\Pascal\\Bureau\\Nouveau dossier\\05081300.ALG', _
Destination = Sheets('feuil1').Range('A' & L))

.Name = '05081300_1'
.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 = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(5, 9, 5, 3, 50)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

 

[ERIC S]

bonsoir

normalement excel te signale la ligne où ily a erreur de compil. Sinon commence par mettre en commentaire ( signe ' en début de ligne) les lignes entre with et end with

je ne connais pas le code que tu utilises mais il me semble que tu mets un chemin sans '\\' est-ce normal ?
(Cocuments and SettingsPascalBureauNouveau Dossier5081300.ALG)

exemple:

With ActiveSheet.QueryTables.Add(Connection:= _
'TEXT;Cocuments and SettingsPascalBureauNouveau dossier5081300.ALG', _
Destination = Sheets('feuil1').Range('A' & L))

'.Name = '05081300_1'
'.FieldNames = True
.....
End With

 

[Charly2]

Bonsoir pascal et ERIC S, bonsoir le forum,

Je n'utilise pas non plus cette instruction mais, mis à part le fait que tu oublies peut-être les 'back-slash' dans le chemin d'accès, je vois une erreur flagrante. Lorsqu'on indique un paramètre nommé, on utilise ':=' et non pas '=' :

Destination = Sheets('feuil1').Range('A' & L)

devrait être écrit ainsi

Destination := Sheets('feuil1').Range('A' & L)

Amicalement
Charly