Erreur sur un code VBA (variable "ENTIER")

Question

Je souhaite créer un fichier XML à partir de 2 fichiers Excel. Pour cela j'ai un fichier de "configuration" Excel, qui contient un bouton, par lequel j'envoie dans un ordre précis mes deux fichiers Excel. Le premier fichier passe sans problème, le second fichier bloque sur deux lignes d'instructions. N'y connaissant rien en VBA, je serai ravi d'avoir votre avis sur la question. Voici le bout de code que je peux vous donner et l'endroit où ça bloque. C'est sur les deux lignes qui sont dans le bloc IF - END IF, juste avant le END IF pour la variable "ENTIER". Juste après la ligne "decalage = ajuster(decalage, 2) Je ne sais pas si je suis d'être très clair, en tout cas MERCI par avance : XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ' --------------------------------------------------------------------------------------------------------- ' GoTo contrainte ' --------------------------------------------------------------------------------------------------------- ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ' Attribut + Components '------------------------------------------------ ' 'Doit présenter dans l'ordre : '- Nom Attribut (pas de + , ; * ' " - \ / Ø) '- Nom Solver (pas de - * / \ , ;) '- Type (Détail / Numérique entier) '- Type Attribut (pas de - * / \ , ;) '- Visible (Oui / Non) '- Calcul '- en-US (pas de + , ; * ' " - \ / Ø) '- fr (pas de + , ; * ' " - \ / Ø) wbSource.Activate 'wsSource03.Select 'wsSource03.Range("A2:BR20000").Clear 'wsSource03.Cells(1, 1).Select intCheck = 2 ListeFait = "§" For i = 2 To UBound(DataDest02, 1) If (InStr(1, ListeFait, "§" & DataDest02(i, 4) & "§") = 0) Then ListeFait = ListeFait & "§" & DataDest02(i, 4) & "§" ' Attributs ' ---------------------------------------------------- XMLAttributTypeTextStart = decalage & "&lt;EcoResAttributeType" XMLAttributTypeTextEnd = decalage & "&lt;/EcoResAttributeType&gt;" & vbCrLf XMLAttributTypeTextStart = XMLAttributTypeTextStart & " Name=""" & HTMLEntititesEncode(DataDest02(i, 4)) & """" If (Left(UCase(DataDest02(i, 3)), 6) = "ENTIER") Then Valeurs = Split(DataDest02(i, 3), ",") ' EcoResAttributeType XMLAttributTypeTextStart = XMLAttributTypeTextStart & _ " DataType=""" & 4 & _ """ IsEnumeration=""0"" HasBounds=""1""&gt;" & vbCrLf ' EcoResBoundedAttributeTypeValue decalage = ajuster(decalage, 2) XMLAttributTypeTextStart = XMLAttributTypeTextStart & decalage & _ "&lt;EcoResBoundedAttributeTypeValue Lower=""" & Valeurs(1) & """ Upper=""" & Valeurs(2) & """ /&gt;" & vbCrLf End If If (UCase(DataDest02(i, 3)) = "TEXTE") Then ' EcoResAttributeType XMLAttributTypeTextStart = XMLAttributTypeTextStart & _ " DataType=""" & 5 & _ """ IsEnumeration=""0"" HasBounds=""0"" /&gt;" & vbCrLf decalage = ajuster(decalage, 2) XMLAttributTypeTextEnd = "" End If Merci d'avance Jean-Luc...

h2so4 · Accepted Answer

Comme l'indique le message d'erreur, le problème est en ligne 4 où Entier doit être suivi de 2 nombres séparés par des virgules (en tout cas c'est ce que ton code attend et ne gère pas le cas s'ils sont absents). Si tu sais ce qu'il faut faire dans ce cas (cad quelle syntaxe XML faut-il prévoir dans ce cas ? *), je veux bien essayer d'adapter ta macro. * j'aurais bien une idée, mais pas de certitude, car tout dépend du programme qui exploitera ce fichier XML par la suite. If (Left(UCase(datadest02(i, 3)), 6) = "ENTIER") Then Valeurs = Split(datadest02(i, 3), ",") If UBound(Valeurs) &lt; 2 Then 'entier sans les 2 nombres qui suivent ' EcoResAttributeType XMLAttributTypeTextStart = XMLAttributTypeTextStart & _ " DataType=""" & 4 & _ """ IsEnumeration=""0"" HasBounds=""0"" /&gt;" & vbCrLf Else 'entier avec les 2 nombres qui suivent ' EcoResAttributeType XMLAttributTypeTextStart = XMLAttributTypeTextStart & _ " DataType=""" & 4 & _ """ IsEnumeration=""0"" HasBounds=""1""&gt;" & vbCrLf ' EcoResBoundedAttributeTypeValue decalage = ajuster(decalage, 2) XMLAttributTypeTextStart = XMLAttributTypeTextStart & decalage & _ "&lt;EcoResBoundedAttributeTypeValue Lower=""" & Valeurs(1) & """ Upper=""" & Valeurs(2) & """ /&gt;" & vbCrLf End If End If edit correction du code proposé...

h2so4 · Answer

Quel message d'erreur reçois-tu ? selon moi le problème est lié à tes données. Sans ton fichier ça va être difficile de dire où est l'erreur...

h2so4 · Answer

Remplace ton code ENTIER par celui-ci cela devrait afficher la ligne de la table datadest02 qui contient des données incorrectes. mais comme tu n'as pas mis tout ton code, je ne peux pas déterminer à quelle feuille ni à quelle cellule cela correspond, If (Left(UCase(DataDest02(i, 3)), 6) = "ENTIER") Then Valeurs = Split(DataDest02(i, 3), ",") if ubound(valeurs)&lt;2 then msgbox "erreur de données trouvées en ligne " & i & " valeurs trouvées " & datadest02(i,3) '&lt;-------- à ajouter ' EcoResAttributeType XMLAttributTypeTextStart = XMLAttributTypeTextStart & _ " DataType=""" & 4 & _ """ IsEnumeration=""0"" HasBounds=""1""&gt;" & vbCrLf ' EcoResBoundedAttributeTypeValue decalage = ajuster(decalage, 2) XMLAttributTypeTextStart = XMLAttributTypeTextStart & decalage & _ "&lt;EcoResBoundedAttributeTypeValue Lower=""" & Valeurs(1) & """ Upper=""" & Valeurs(2) & """ /&gt;" & vbCrLf End If...