erreu de compil

pascal · 29 Octobre 2005

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 · 29 Octobre 2005

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 · 30 Octobre 2005

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

erreu de compil

pascal

Guest

ERIC S

Guest

Charly2

Nous a quittés en 2006

Discussions similaires