Sub Macro4() ' ' Macro4 Macro ' ' With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\ANDRECOURBE\toto.csv", _ Destination:=Range("$A$1")) .Name = "toto_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 = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub
Range("I1") = 1 'Met 1 en I1 Range("I1").Copy 'Copie I1 Range("A1:E" & i - 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False
Range("A1:E" & i - 1).Value = Range("A1:E" & i - 1).Value
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSite Web malveillant bloqué
Vous avez tenté d’accéder à :
http://fr.packupload.com/FHPDFW5Z1E0
Il s’agit d’un site Web malveillant connu. Il vous est recommandé de ne PAS visiter ce site. Le rapport détaillé décrit les risques de sécurité de ce site.
Résumé
•Menaces informatiques :
1
•Menaces portant sur l'identité :
0
•Facteurs d'ennui :
0
Menaces totales sur ce site :
1
N° seq Temps (s) Vitesse bille (mm/s) Vitesse plan (mm/s) Couple (N.m) Fz Statique (N) Fx dynamique (N)
0.0000 0.5200 0.0000 0.0000 0.0076 5.5416 -0.0003
0.0000 1.0040 0.0000 0.0000 0.0056 5.7191 -0.0002
0.0000 1.5090 0.0000 0.0000 0.0056 5.7099 -0.0002
0.0000 2.0140 0.0000 0.0000 0.0057 5.7245 -0.0002
0.0000 2.5160 0.0000 0.0000 0.0058 5.7055 -0.0002
0.0000 3.0180 3922155.2182 0.0000 0.0057 5.7232 -0.0002
0.0000 3.7380 -2611288.4276 0.0000 0.0058 5.7120 -0.0002
0.0000 4.2390 0.0000 0.0000 0.0058 5.7124 -0.0002
0.0000 4.7410 0.0000 0.0000 0.0058 5.7204 -0.0002
0.0000 5.2430 0.0000 0.0000 0.0059 5.7040 -0.0002
0.0000 5.7440 0.0000 0.0000 0.0058 5.7216 -0.0002
0.0000 6.2450 0.0000 0.0000 0.0058 5.7064 -0.0002
0.0000 6.7460 3930015.2487 0.0000 0.0057 5.7209 -0.0002
0.0000 7.2470 0.0000 0.0000 0.0056 5.7068 -0.0002
N° seq Temps (s) Vitesse bille (mm/s) Vitesse plan (mm/s) Couple (N.m) Fz Statique (N) Fx dynamique (N) 0.0000 0.5200 0.0000 0.0000 0.0076 5.5416 -0.0003 0.0000 1.0040 0.0000 0.0000 0.0056 5.7191 -0.0002 0.0000 1.5090 0.0000 0.0000 0.0056 5.7099 -0.0002 0.0000 2.0140 0.0000 0.0000 0.0057 5.7245 -0.0002 0.0000 2.5160 0.0000 0.0000 0.0058 5.7055 -0.0002 0.0000 3.0180 3922155.2182 0.0000 0.0057 5.7232 -0.0002 0.0000 3.7380 -2611288.4276 0.0000 0.0058 5.7120 -0.0002 0.0000 4.2390 0.0000 0.0000 0.0058 5.7124 -0.0002 0.0000 4.7410 0.0000 0.0000 0.0058 5.7204 -0.0002 0.0000 5.2430 0.0000 0.0000 0.0059 5.7040 -0.0002 0.0000 5.7440 0.0000 0.0000 0.0058 5.7216 -0.0002 0.0000 6.2450 0.0000 0.0000 0.0058 5.7064 -0.0002 0.0000 6.7460 3930015.2487 0.0000 0.0057 5.7209 -0.0002 0.0000 7.2470 0.0000 0.0000 0.0056 5.7068 -0.0002
Chemin = Application.GetOpenFilename("Texte, *.txt") 'Boite de dialogue
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Documents and Settings\MAGIC DD\Bureau\FICHIER DE TEST.csv", _ Destination:=Range("$A$1"))
Si tu es intéressé, j'ouvre une autre discussion pour grappiller des dizaines de secondes à mon code. Sinon j'attendrai 2 min devant mon pc que tout se charge
Range("I1") = 1 'Met 1 en I1 Range("I1").Copy 'Copie I1 Range("A1:E" & i - 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False*
Range("A1:E" & i - 1)=1