Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1924 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2260558
Arnaud42
Cépafo!
Posté le 17-06-2015 à 16:33:19  profilanswer
 

[: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 :
http://www.kirikoo.net/images/14Anonyme-20150617-154657.png
Que je souhaite transférer dans le tableau de mon document Word :
http://www.kirikoo.net/images/14Anonyme-20150617-154744.png
 

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


 
A l’exécution de ma boucle, Microsoft Visual Basic m'indique :
http://www.kirikoo.net/images/14Anonyme-20150617-153019.png
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] NIC QuadPorts - DD WD Black 1To | [ACH] CM NN83G, Xeon E5-1680v2
mood
Publicité
Posté le 17-06-2015 à 16:33:19  profilanswer
 

n°2260625
Marc L
Posté le 18-06-2015 à 10:25:51  profilanswer
 

 
           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 …
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[VBA] problème pour coderPHPExcel comparaison cellules et boucle
Host Explorer et VBAVBA avec recherche v
Bug VBA : conversion .txt en .xlsx - Excel redémarreRé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.


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR