Bonjour,

je débute,
J'arrive actuellement à fusionner des informations .xls vers un .doc

Je n'arrive pas à créer une boucle qui :
si une condition est respectée (par ex : "ok" dans une ligne) fusionne les informations de la ligne et passe à la ligne suivante et recommence,.. ainsi de suite jusqu’à la fin du tableau. Par ailleurs pour le moment ma valeur est fixe ici toujours la ligne 4.


Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'on ouvre le Word
Word_Ouvrir_document mon_doc_word, True
 
Word_Application.Activate
 
Word_Début_document
 
Word_Remplacer_texte "&n_appart0", Range("h4"), True
Word_Remplacer_texte "&code_appart0", Range("g4"), True
Word_Remplacer_texte "&adresse0", Range("f4"), True
Word_Remplacer_texte "&Nom0", Range("d4"), True
Word_Remplacer_texte "&Prenom0", Range("e4"), True
Word_Remplacer_texte "&date_d_entree0", Range("a4"), True
Word_Remplacer_texte "&date_de_sortie0", Range("b4"), True
Word_Remplacer_texte "&date_du_jour0", Range("c4"), True
 
'on enregistre
Word_Enregistrer_document_sous New_document