PierreLeroux
XLDnaute Nouveau
Bonjour amis internautes,
Je commence tout juste le VBA, et me voici face à un problème au dessus de mes moyens. Le code suivant fonctionne sur les ordinateurs de mes collègues, mais chez moi après un temps d'execution assez long cela indique : erreur 1004. En mode execution pas à pas le code bug un moment avant d'indiquer l'erreur, et ce lors du passage à la ligne : .Refresh backgroundQuery:=False.
Avec excel 2016. J'ai recu ce code en editeur de texte, donc ça plante peut etre à cause de la façon dont je l'ai integrer à excel (en copiant collant dans la fenetre du mode developeur qui s'appelle par défaut ThisWorkBook, juste sous Feuil1)
Avez vous une idée d'ou ça peut venir ??
Merci pour toute infos !
Voici le code :
Sub Macro1()
'
' Macro1 Macro
'
'
Dim i As Integer
For i = 1 To 22
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Z:\R&D\Product development\bCores\Coating\peel test\raw data\171303 peel test\171303 peeling test" & i & ".TRA" _
, Destination:=ActiveSheet.Range("$A$1"))
.Name = "171303 peeling test" & i & ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
ActiveSheet.Name = [C2].Value
End With
Sheets.Add
Next
End Sub
Je commence tout juste le VBA, et me voici face à un problème au dessus de mes moyens. Le code suivant fonctionne sur les ordinateurs de mes collègues, mais chez moi après un temps d'execution assez long cela indique : erreur 1004. En mode execution pas à pas le code bug un moment avant d'indiquer l'erreur, et ce lors du passage à la ligne : .Refresh backgroundQuery:=False.
Avec excel 2016. J'ai recu ce code en editeur de texte, donc ça plante peut etre à cause de la façon dont je l'ai integrer à excel (en copiant collant dans la fenetre du mode developeur qui s'appelle par défaut ThisWorkBook, juste sous Feuil1)
Avez vous une idée d'ou ça peut venir ??
Merci pour toute infos !
Voici le code :
Sub Macro1()
'
' Macro1 Macro
'
'
Dim i As Integer
For i = 1 To 22
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Z:\R&D\Product development\bCores\Coating\peel test\raw data\171303 peel test\171303 peeling test" & i & ".TRA" _
, Destination:=ActiveSheet.Range("$A$1"))
.Name = "171303 peeling test" & i & ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
ActiveSheet.Name = [C2].Value
End With
Sheets.Add
Next
End Sub