bonjour,
c'est mon premier post sur word.
j'ai un classeur excel avec des données dans des cellules bien identifiées.
j'ai créé un formulaire, je ne sais pas si c'est le terme exact, avec 7 champs texte.
Le formulaire sert à créer des attributions d'exposés à faire.
Suivant les mois il me faut 24 ou 30 formulaires à imprimer.
J'ai bien réussi à faire le transfert d'excel vers word vers un formulaire sans problème, ensuite j'ai fait un copier/coller du formulaire, j'ai modifié les 7 signets.
mais modifier 200 signets, avec les risques d'erreurs, c'est un peu galère.
comment faire pour automatiser le changement de nom du signet de chaque champ (ci-dessous les noms des signets) :
sachant que je mets 2 formulaires par page, voici la syntaxe du signet
S1=1ère semaine
eleve=nom de l'élève
P=salle principale
ce qui change c'est S2 en S3, S4 et S5, pour les semaines
et pour chaque semaine le P en 2, pour salle n°2
extrait de la macro excel :
merci de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 '----------------------------------- 'traitement 1ère semaine 1ère école '----------------------------------- WordDoc.Bookmarks("S1eleveP").Range.Text = Cells(22, 6) WordDoc.Bookmarks("S1exposeP").Range.Text = Cells(22, 1) WordDoc.Bookmarks("S1dateP").Range.Text = Cells(18, 2) WordDoc.Bookmarks("S1sourceP").Range.Text = Cells(22, 17) WordDoc.Bookmarks("S1themeP").Range.Text = Cells(22, 2) WordDoc.Bookmarks("S1cadreP").Range.Text = Cells(22, 8) WordDoc.Bookmarks("S1pointP").Range.Text = Cells(22, 7)
Partager