erreu de compil

P

pascal

Guest
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
 
E

ERIC S

Guest
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 ?
(C:Documents and SettingsPascalBureauNouveau Dossier5081300.ALG)

exemple:

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

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

Charly2

Nous a quittés en 2006
Repose en paix
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
 

Statistiques des forums

Discussions
312 799
Messages
2 092 239
Membres
105 299
dernier inscrit
doudounapnap