Vba
Résolu
louisamiel
Messages postés
67
Statut
Membre
-
louisamiel Messages postés 67 Statut Membre -
louisamiel Messages postés 67 Statut Membre -
Bonjour à tous
Quelqu'un pourrai m'aider à traduire le visual basic ci dessous?
Merci par avance pour votre aide
Hé oui jsuis nul en VBA
Quelqu'un pourrai m'aider à traduire le visual basic ci dessous?
Sub Commande_client_du_jour()
Workbooks.OpenText Filename:=Chemin & "CDE client du jour.xls", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 1), Array(2, 1), Array(3, 4), Array(4, 9), Array(5, 9), Array(6, 9), Array(7, 1), Array(8 _
, 9), Array(9, 9), Array(10, 1), Array(11, 9), Array(12, 9), Array(13, 1), Array(14, 9), _
Array(15, 9), Array(16, 1), Array(17, 9), Array(18, 9), Array(19, 9), Array(20, 9)), _
TrailingMinusNumbers:=True
Columns("F:F").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Windows("CDE client du jour.xls").Activate
Sheets("CDE client du jour").Select
Merci par avance pour votre aide
Hé oui jsuis nul en VBA
1 réponse
-
Bonjour,
Le "traduire" ... c'est à dire ?? En navaro ? :-)
PS: je déplace ta question dans le forum VBA (vu qu'il en existe 1 ).
-
lol :)
en fait j'utilise un fichier avec cette macro mais comme je ne sais pas du tout lire le language ou du moins tres mal,
la derniere partie j'ai compris c'est plutot la premiere partie ( Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo) et le terme "Array" que veut-il dire?
merci :)- Le plus simple lorsque l'on ne comprend pas la signification d'une fonction en VBA c'est d'utiliser l'aide disponible via la touche F1 de ton clavier....
Sinon, via google, il est facile de trouver
par exemple :
https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbooks.opentext?redirectedfrom=MSDN
-
-
