oguruma
XLDnaute Impliqué
Bonjour le Forum,
cette livraison fait suite à cette discussion ICI
Nouvelle version d'un Export XML
J'ai tenu compte des suggestions de P. TOULON en ajoutant une option dans l'instanciation : le fait de retenir ou pas la ligne total dans le databody... car pas certain que l'on en ait toujours besoin.... ça reste donc au choix
voir le code de Test de classe... avec de nombreux cas testés... je n'ai pas mis les boutons... pas trop le courrr...ge
Pour conclure sur sujet... ça reste ensuite à la liberté du développeur Excel qui reprendra ce code pour l'adapter ou le corriger selon ses besoins...
ça n'est pas une livraison de voiture clef en main avec l'extension de garantie à vie du constructeur... 🙂 😀
cet ensemble de classes va déjà assez loin avec une très bonne contribution d'un membre chevronné en VBA du Forum 😉 🙂 merci
cette livraison fait suite à cette discussion ICI
Nouvelle version d'un Export XML
J'ai tenu compte des suggestions de P. TOULON en ajoutant une option dans l'instanciation : le fait de retenir ou pas la ligne total dans le databody... car pas certain que l'on en ait toujours besoin.... ça reste donc au choix
VB:
If hTotalBody Then
phasTotalRow = wk.ListObjects(hTB).ShowTotals = True
If phasTotalRow Then
Set pDataBody = pTable.DataBodyRange.Resize(pTable.DataBodyRange.Rows.Count + 1)
Else
Set pDataBody = pTable.DataBodyRange
End If
Else
Set pDataBody = pTable.DataBodyRange
End If
voir le code de Test de classe... avec de nombreux cas testés... je n'ai pas mis les boutons... pas trop le courrr...ge
Pour conclure sur sujet... ça reste ensuite à la liberté du développeur Excel qui reprendra ce code pour l'adapter ou le corriger selon ses besoins...
ça n'est pas une livraison de voiture clef en main avec l'extension de garantie à vie du constructeur... 🙂 😀
cet ensemble de classes va déjà assez loin avec une très bonne contribution d'un membre chevronné en VBA du Forum 😉 🙂 merci
Pièces jointes
Dernière édition: