[VBA] Renseigner des signets Word dans une boucle For.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Renseigner des signets Word dans une boucle For.

Arnaud42

Cépafo!

[:eler:1] la section Prog'!

Je viens vous consulter comme j'arrive dans une impasse sur du VBA.
Mais avant cela... J'vous présente rapidement la situation. Je travaille actuellement sur un "projet" de pilotage de document Word depuis un tableur Excel : un tiers dispose d'une liste d'élève dans un classeur Excel et souhaiterait créer et remplir une fiche élève au format Word en reprenant un "Modèle" avec les informations renseignées dans la base Excel.

J'ai travaillé là dessus sur une suite Office 2010 (avec les Librairy Word et Excel 14.0) : Impec! Je suis arrivé à une solution pleinement fonctionnelle! [:bobox360:1]

Mais! Me direz vous! Ou est le problème dans c't'histoire?
Et bien sur une suite Office 2007, c'est tout de suite moins fonctionnel... [:l'0urs:3]

J'ai donc cherché à adapter l'existant : Librairies Références 12.0, Early/Late Binding et Débug ponctuel...
Malgré tout cela, j'arrive dans une impasse...

J'ai stockées les données "Options de Cursus" situées dans 13 colonnes de mon tableur Excel dans le tableau MesSignets().
Je souhaite ensuite insérer ces données dans les signets de ma fiche élève générée depuis mon "Modèle Word".

J'utilise pour cela une boucle For. SigX étant les signets de mon document Word.
Je pensais donc insérer chacune des 13 données renseignées dans le document Excel dans chacun des 13 signets de mon document Word :
Voilà ce que ça donne dans Excel :

Que je souhaite transférer dans le tableau de mon document Word :

Code :

''''Remplissage des champs Word quand l'information est renseignée dans Excel
With AppWD.Selection
For Colonne = 1 To 13
.GoTo What:=wdGoToBookmark, Name:="sig" & Colonne
.Bookmarks("sig" & Colonne).Range = MesSignets(1, Colonne)
Next
End With

A l’exécution de ma boucle, Microsoft Visual Basic m'indique :

Ce qui me semble normal étant donné que ma valeur de Colonne évolue tout au long de l’exécution de la boucle ainsi

Une idée? :jap:

---------------
[VDS] Enermax MaxRevo 1350W - TV 22" - Samsung 913V - Dock Lenovo USB-C - Clavier/Souris MX5500 [ACH] Xeon E5-1680v2

Publicité

Marc L

Bonjour,

modifier par exemple la ligne n°2 ainsi : With AppWd.ActiveDocument.Bookmarks

puis la ligne n°5 : .Item("sig" & Colonne).Range = MesSignets(1, Colonne) …

La ligne n°4 ne sert à rien vu la ligne n°5 affectant directement le Range, à supprimer !

Mais faut-il encore que chaque signet eut été bien créé sur la largeur d'un mot ou d'une cellule si tableau …

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Renseigner des signets Word dans une boucle For.

Sujets relatifs
[VBA] problème pour coder	PHPExcel comparaison cellules et boucle
Host Explorer et VBA	VBA avec recherche v
Bug VBA : conversion .txt en .xlsx - Excel redémarre	Récupérer valeur dans un tableau avec boucle sous VBA
[BAT] Comment forcer l'exécution au sein d'une boucle ?	VBA erreur dépassement de capacité bizarre
Problème de macro et d'importation d'un fichier Word
Plus de sujets relatifs à : [VBA] Renseigner des signets Word dans une boucle For.

Page générée en 0.039 secondes