Discussion :

[Carmano37]

Bonjour,

Je dois faire une macro VBA pour BO XI R2.
Sur un rapport, je dispose d'un tableau avec une liste de numéro. (une seule colonne, plusieurs lignes avec des numéros dans chaque cellule)
Je veux parcourir cette liste de numéro avec une boucle mais je ne vois pas comment faire.
J'ai une variable "Rep" qui contient le rapport contenant tableau, c'est à dire que si je fais "Rep.ExportAsPDF (...)", j'obtient le PDF avec le tableau. Mais je voudrais faire un truc du genre:

For i = 1 To [nombre de ligne dans mon tableau]
Debug.print [la variable en cours, c-à-d une cellule du tableau]
[passer à la variable suivante en utilisant "i"+1]
Next i

En gros je ne vois pas comment manipuler le contenu d'un rapport. J'ai vu dans la FAQ des utilisation de AddComplexFilter mais je ne pense pas que ce soit ca qu'il faille utiliser.

[Carmano37]

J'ai farfouillé sur le net mais je n'ai rien trouvé. Ce n'est peut être tout simplement pas possible de le faire.
Si jamais quelqu'un aurait une idée, un lien ou une solution de contournement, je suis preneur!

[Carmano37]

J'ai trouvé la solution dans un forum anglais
je vous donne la portion de code avec les commentaires.
Sachez que j'ai un tableau a une colonne avec des nombres (intitulé CF dans mon appli)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'Cette méthode supprime ou autorise (False/True) les demandes de confirmation et les notifications à l'utilisateur
Application.Interactive = True
 
Set Doc = Application.ActiveDocument
Set DocVars = Doc.DocumentVariables
 
'On stocke les différents CF sous forme de tableau dans la variable listCF
Set DocVar = DocVars("VF - CF Numéro(périmètre)")
listCF = DocVar.Values(boUniqueValues)
 
'On stocke le nombre de CF dans une variable
intNumValues = UBound(listCF)

Et après il n'y a plus qu'à parcourir. Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To intNumValues
   Debug.Print listCF(i)
Next i

affiche la liste des valeurs du tableau.