Vba

Résolu/Fermé

louisamiel Messages postés 67 Date d'inscription mardi 10 février 2015 Statut Membre Dernière intervention 11 novembre 2018 - Modifié par Chris 94 le 8/03/2016 à 15:23
louisamiel Messages postés 67 Date d'inscription mardi 10 février 2015 Statut Membre Dernière intervention 11 novembre 2018 - 8 mars 2016 à 21:25

Bonjour à tous

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

A voir également:

Vba
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38181 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 20 mai 2024 4 670
8 mars 2016 à 16:24

Bonjour,

Le "traduire" ... c'est à dire ?? En navaro ? :-)

PS: je déplace ta question dans le forum VBA (vu qu'il en existe 1 ).

louisamiel Messages postés 67 Date d'inscription mardi 10 février 2015 Statut Membre Dernière intervention 11 novembre 2018
8 mars 2016 à 18:04

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 :)

jordane45 Messages postés 38181 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 20 mai 2024 4 670 > louisamiel Messages postés 67 Date d'inscription mardi 10 février 2015 Statut Membre Dernière intervention 11 novembre 2018
8 mars 2016 à 18:25

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

louisamiel Messages postés 67 Date d'inscription mardi 10 février 2015 Statut Membre Dernière intervention 11 novembre 2018
8 mars 2016 à 21:25

merci pour l info

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters