[MACRO] Erreur 400

_matt_44

XLDnaute Nouveau
Bonjour,

Voila je dois faire migrer une macro existante qui fonctionnait sous excel 2003 auparavant vers excel 2007.

Le fonctionnement de cette macro est le suivant :

1- une fenetre s'ouvre pour que l'on puisse parcourir le poste de travail et sélectionner un fichier texte préalablement générer par un logiciel métier.

2- On ouvre se fichier texte et la macro s'occupe de mettre en forme le contenu du fichier.

3-Une fois le traitement terminé, on peut enregistrer le fichier texte modifié par dessus celui que l'on vien d'ouvrir afin de pouvoir l'exploiter dans un logiciel nommé "NSBARCODEKEY".



Pour cela, j'ai modifier le ruban avec custom UI editor. Dont le code est présent ci dessous.

HTML:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id = "Macro" label="Macro" insertAfterMso="TabView">
<group id="Message" label="Message">
<button id="BxTrad" label="BxTrad" onAction="ThisWorkbook.Init" size="large" imageMso="HappyFace" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>


Ensuite j'ai ouvert le fichier excel en question et insérer la macro dans le "ThisWorkbook" a l'aide de l'éditeur visual basic. Dont le code est également présent ci dessous.


Code:
Option Explicit

Dim nbLignes As Integer

Sub Init(ByVal control As IRibbonControl)

Dim cellule As Range
Dim cellule2 As Range

' Lancement des différentes procédures

' 1 -> Récupération du nom de fichier
Dim fichier As String   ' Le fichier texte
Dim chemin As String    ' le chemin du fichier

    fichier = GetImportFileName("Fichier texte (*.txt), *.txt," & _
                                "Fichier délimité par des virgules (*.csv), *.csv," & _
                                "Tous les fichiers (*.*),*.*", _
                                1, "Fichier à traiter :")
    chemin = ExtractPath(fichier)
    ChDir chemin
    
' 2-> Ouverture du fichier
    Workbooks.OpenText filename:=fichier, _
                        Origin:=xlWindows, _
                        StartRow:=1, _
                        DataType:=xlDelimited, _
                        TextQualifier:=xlDoubleQuote, _
                        Tab:=False, _
                        semicolon:=True, _
                        Comma:=False, _
                        Space:=False, _
                        FieldInfo:=Array(Array(1, 2), _
        Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
        Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 1), Array(13, 2), Array(14, 2), Array(15 _
        , 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2), _
        Array(22, 2), Array(23, 2), Array(24, 2), Array(25, 2), Array(26, 2), Array(27, 2), Array( _
        28, 2), Array(29, 2), Array(30, 2), Array(31, 1), Array(32, 1), Array(33, 2), Array(34, 2), _
        Array(35, 2), Array(36, 2), Array(37, 2), Array(38, 2), Array(39, 2), Array(40, 2), Array( _
        41, 2), Array(42, 2))

' 3-> Comptage des lignes à modifier. On se base sur la colonne n°4 (SSCC)
    nbLignes = 0
    Range("D1").Select
    Range(Selection, Selection.End(xlDown)).Select
    For Each cellule In Selection
        If cellule.Value <> "" Then
            nbLignes = nbLignes + 1
        End If
    Next

' 4-> Insertion de la ligne de titre, des titres et formatage des colonnes
    ' Insertion ligne
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    ' colonne 1, Nombre d'exemplaire, Numérique
    Formate "A", "NBEXEMPL", "0"
    ' colonne 2, Type de la palette, AlphaNumérique
    ' Type = 1 : homogéne standard
    ' Type = 2 : homogéne non standard
    ' Type = 3 : hétérogéne standard
    ' Type = 4 : hétérogéne non standard
    Formate "B", "TYPE", "@"
    ' colonne 3, Numéro d'identifiant du SSCC, AlphaNumérique
    Formate "C", "ID_SSCC", "@"
    ' colonne 4, SSCC de la palette, AlphaNumérique
    Formate "D", "SSCC", "@"
    ' colonne 5, clé EAN de "3.ID SSCC + 4.Code SSCC", AlphaNumérique
    Formate "E", "CLE_SSCC", "@"
    ' colonne 6, Numéro d'identifiant de l'EAN13 du produit, AlphaNumérique
    Formate "F", "ID_GENCP", "@"
    ' colonne 7, "01" + "EAN13 du produit", AlphaNumérique
    Formate "G", "GENCP", "@"
    ' colonne 8, Numéro d'identifiant de la DLUO, AlphaNumérique
    Formate "H", "ID_DLUO", "@"
    ' colonne 9, DLUO, AlphaNumérique
    Formate "I", "DLUO", "@"
    ' colonne 10, Clé EAN de "6.ID produit + 7.EAN produit + 8.ID DLUO + 9.DLUO", AlphaNumérique
    Formate "J", "CLE_GD", "@"
    ' colonne 11, Numéro d'identifiant du nombre de colis dans la palette, AlphaNumérique
    Formate "K", "ID_NBCOLIS", "@"
    ' colonne 12, Nombre de colis dans la palette, Numérique
    Formate "L", "NBCOLIS", "0"
    ' colonne 13, Clé EAN de "6.ID Produit + 7.EAN Produit + 8.ID DLUO + 9.DLUO + 11.ID NB Colis + 12.Nb Colis", AlphaNumérique
    Formate "M", "CLE_GDN", "@"
    ' colonne 14, Libellé n°1 du produit, AlphaNumérique
    Formate "N", "LIB1", "@"
    ' colonne 15, Libellé n°2 du produit, AlphaNumérique
    Formate "O", "LIB2", "@"
    ' colonne 16, Libellé n°3 du produit, AlphaNumérique
    Formate "P", "LIB3", "@"
    ' colonne 17, Numéro d'identifiant du numéro du lot, AlphaNumérique
    Formate "Q", "ID_LOT", "@"
    ' colonne 18, Numéro du lot, AlphaNumérique
    Formate "R", "LOT", "@"
    ' colonne 19, Numéro d'identifiant de l'EAN du client livré, AlphaNumérique
    Formate "S", "ID_GENCL", "@"
    ' colonne 20, EAN du client livré, AlphaNumérique
    Formate "T", "GENCL", "@"
    ' colonne 21, Clé EAN de "19.ID client livré + 20.EAN client livré", AlphaNumérique
    Formate "U", "CLE_CLIV", "@"
    ' colonne 22, EAN du client facturé, AlphaNumérique
    Formate "V", "GENCF", "@"
    ' colonne 23, Numéro de commande, AlphaNumérique
    Formate "W", "CDE", "@"
    ' colonne 24, Numéro d'identifiant du code postal du client livré, AlphaNumérique
    Formate "X", "ID_CP", "@"
    ' colonne 25, Code postal du client livré, AlphaNumérique
    Formate "Y", "CP", "@"
    ' colonne 26, Numéro d'identifiant de l'expédition, AlphaNumérique
    Formate "Z", "ID_EXP", "@"
    ' colonne 27, EAN du transporteur, AlphaNumérique
    Formate "AA", "GENCT", "@"
    ' colonne 28, Numéro de bordereau de déstockage, AlphaNumérique
    Formate "AB", "BDX", "@"
    ' colonne 29, Clé EAN de "24.ID CP client livré + 25.CP Client livré + 26.ID expédition +
    '                         27.EAN Transporteur + 28.N° bordereau déstockage"
    ' AlphaNumérique
    Formate "AC", "CLE_EXP", "@"
    ' colonne 30, Raison sociale n°1 du transporteur, AlphaNumérique
    Formate "AD", "RSOC1TRP", "@"
    ' colonne 31, Numéro d'ordre de la palette dans la commande, Numérique
    Formate "AE", "NOPAL", "0"
    ' colonne 32, Nombre total de palette dans la commande, Numérique
    Formate "AF", "NBPAL", "0"
    ' colonne 33, Date de livraison prévue, AlphaNumérique
    Formate "AG", "DATLIV", "@"
    ' colonne 34, Raison sociale n°1 du client livré, AlphaNumérique
    Formate "AH", "RSOC1CL", "@"
    ' colonne 35, Raison sociale n°2 du client livré, AlphaNumérique
    Formate "AI", "RSOC2CL", "@"
    ' colonne 36, Adresse n°1 du client livré, AlphaNumérique
    Formate "AJ", "ADR1CL", "@"
    ' colonne 37, Adresse n°2 du client livré, AlphaNumérique
    Formate "AK", "ADR2CL", "@"
    ' colonne 38, Ville du client livré, AlphaNumérique
    Formate "AL", "VILLECL", "@"
    ' colonne 39, Pays du client livré, AlphaNumérique
    Formate "AM", "PAYSCL", "@"
    ' colonne 40, Numéro de commande du client, AlphaNumérique
    Formate "AN", "NUMCLI", "@"
    ' colonne 41, Firme du client, AlphaNumérique
    Formate "AO", "FIRME", "@"
    ' colonne 42, Nom de l'utilisateur, AlphaNumérique
    Formate "AP", "LOGIN", "@"
    
' 5-> Création du nom de la table
    Set cellule = Range("A1")
    Set cellule2 = cellule.Offset(nbLignes, 42)
    Range(cellule, cellule2).Name = "Data"

' 6-> Sauvegarde du fichier
    ActiveWorkbook.SaveAs filename:="EAN128.xls", _
                          FileFormat:=xlExcel9795, _
                          Password:="", _
                          WriteResPassword:="", _
                          ReadOnlyRecommended:=False, _
                          CreateBackup:=False


End Sub

Function NewExt(fichier As String, ext As String)

' Change l'extension du fichier

    If Mid(fichier, Len(fichier) - 3, 1) <> "." Then
        Exit Function
    End If
    NewExt = Left(fichier, Len(fichier) - 4) & ext

End Function

Sub Formate(colonne As String, titre As String, format As String)

' Formate le texte des cellules
' depuis la ligne 2 jusqu'à la ligne nbLignes

Dim texte As String
Dim cellule As Range
Dim cellule1 As Range
Dim cellule2 As Range
Dim jour As String
Dim mois As String
Dim annee As String
    
    Range(colonne & "1").Select
    Selection.Value = titre
    Set cellule1 = Range(colonne & "2")
    Set cellule2 = cellule1.Offset(nbLignes - 1, 0)
    Range(cellule1, cellule2).Select
    Selection.NumberFormat = "0"    ' pour éviter que les nombres soient en notation exponentielle
    If format = "@" Then
        For Each cellule In Selection
            texte = cellule.Text
            If Left(texte, 1) = " " Then
                texte = Right(texte, Len(texte) - 1)
            End If
            texte = "'" & texte
            If titre = "DATLIV" Then
            ' Mise en forme de la date
                If Len(texte) = 6 Then
                    texte = "'0" + Right(texte, 5)
                End If
                jour = Mid$(texte, 6, 2)
                mois = Mid$(texte, 4, 2)
                annee = Mid$(texte, 2, 2)
                texte = "'" + jour + "/" + mois + "/" + annee
            End If
            cellule.Value = texte
        Next cellule
    End If
    Selection.NumberFormat = format
    Range(colonne & "1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Columns.AutoFit

End Sub

Function ExtractPath(f As String) As String

Dim i As Integer
    
    For i = Len(f) To 1 Step -1
        If Mid(f, i, 1) = "\" Then
            ExtractPath = Left(f, i)
            Exit Function
        End If
    Next i

End Function

Function GetImportFileName(Filt As String, FilterIndex As String, Prompt As String) As String

'Selects a single file for import
    Dim filename As Variant
    
'
'Selects a file for export
'
'Use the following format to set up the filter
'    Filt = "Text Files (*.txt),*.txt," & _
'           "Lotus Files (*.prn),*.prn," & _
'           "Comma Separated Files (*.csv),*.csv," & _
'           "ASCII Files (*.asc),*.asc," & _
'           "XML Files (*.xml),*.xml," & _
'           "All Files (*.*),*.*"
'
' The Filter Index controls what filter is selected by default.  It starts
' at zero.  For the above example, you would set the filter index to 5 to
' select "All Files"


'   Get the file name
    filename = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Prompt)

'   Exit if dialog box canceled
    If filename = False Then
        GetImportFileName = ""
    Else
        GetImportFileName = filename
    End If
   
End Function

Mon problème est le suivant : J'ai une "erreur 400" entre l'étape 2 & 3 a la mise en forme du contenu du fichier texte et je n'arrive pas a voir d'ou elle provient? d'autre part, est t'il possible de faire en sorte de faire fonctionner la macro en dehos du "Thisworbook" et plutot dans un module ? Si oui, comment ? Je n'y suis pas arrivé.

Merci d'avance,
Matthieu
 

JNP

XLDnaute Barbatruc
Supporter XLD
Re : [MACRO] Erreur 400

Bonjour Mat44 :),
Si tu mets juste le nom de la macro
Code:
[COLOR=#000080]<button id=[COLOR=#0000ff]"BxTrad"[/COLOR] label=[COLOR=#0000ff]"BxTrad"[/COLOR] onAction=[COLOR=#0000ff]"Init"[/COLOR] size=[COLOR=#0000ff]"large"[/COLOR] imageMso=[COLOR=#0000ff]"HappyFace"[/COLOR] />[/COLOR]
tu peux mettre la macro où tu veux (mais Init n'est pas vraiment approprié comme nom de macro et est peut-être mal interprétée par le système, mieux vaux utiliser le français Sub Initialiser() qui ne fait pas courir de risque...
Personnelement, je préfère passer par le tag pour envoyer le nom de la macro
Code:
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]<[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#800000][SIZE=2][COLOR=#800000]button [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]id[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Férié[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]label[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Férié[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]imageMso[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]AppointmentColor10[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]tag[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Férié[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]onAction[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]=[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]ChoixMacro[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]/> [/COLOR][/SIZE][/COLOR][/SIZE]
avec la macro suivante
Code:
' Lance la macro choisie dans les menus
Sub ChoixMacro(control As IRibbonControl)
    Run (control.Tag) ' A remplacer par Run
End Sub
Bonne soirée :cool:
 

_matt_44

XLDnaute Nouveau
Re : [MACRO] Erreur 400

Bonjour,
merci pour votre réponse, cependant quand vous dites en commentaire dans le code suivant : "A Remplacer par Run" qu'entendez vous par la?

Code:
' Lance la macro choisie dans les menus
Sub ChoixMacro(control As IRibbonControl)
    Run (control.Tag) ' A remplacer par Run
End Sub

En fait, j'avais deja plus ou moins essayer d'essayer d'appeller la macro via votre solution mais une autre erreur apparait a l'execution de celle ci. En effet, au tout début du code les deux premières lignes pose un soucis visiblement.

Code:
Option Explicit

Dim nbLignes As Integer

Que signifie celles ci ?

Matthieu.
 

JNP

XLDnaute Barbatruc
Supporter XLD
Re : [MACRO] Erreur 400

Re :),
Quand vous dites en commentaire dans le code suivant : "A Remplacer par Run" qu'entendez vous par la?
C'est une vieille note. Il me semble que Call ne fonctionnait pas toujours...
En fait, j'avais deja plus ou moins essayer d'essayer d'appeller la macro via votre solution mais une autre erreur apparait a l'execution de celle ci. En effet, au tout début du code les deux premières lignes pose un soucis visiblement.
Code:
Option Explicit
Dim nbLignes As Integer
Que signifie celles ci ?
Option Explicit oblige à déclarer les variables (une très bonne chose)
Dim nbLignes As Integer déclare nbLignes comme un entier compris entre -32 768 et 32 767
Bonne journée :cool:
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
290 902
Messages
1 911 280
Membres
177 116
dernier inscrit
m1ckey
Haut Bas