Discussion :

[vyzouille]

Bonjour,

Voilà cela fait quelques heures (qui se comptent en quelques jours maintenant) que je cherche à améliorer un document Word 2002.
Voila j'ai 3 options que l'on peut choisir par des controles activex cases à cocher (mais je pourrais tout aussi bien mettre des boutons à options).
Selon la case cocher, je veux faire apparaitre soit un tableau (au format paysage) ou deux autres textes format paysage.
Donc pas de problème mes macros pour insérer au bon format le tableau ou les textes sont prêts; ce qui me pose problème est le point de départ de la macro qui doit se faire à la fin de la première page ( dans la macro est inséré le saut de page section suivante...). J'ai donc inséré un signet mais ne sais pas comment l'exploiter j'ai tenté de copier divers codes de différentes sources je n'ai pu en tirer que cela:
( je m'excuse auprès de l'auteur dont je ne peux citer le nom car je ne m'en souviens pas...)

Code :

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

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
 Dim MaVariable As String, MonSignet As String
MonSignet = "Insert_StPage"
If ActiveDocument.Bookmarks.Exists(MonSignet) Then
MaVariable = ActiveDocument.Bookmarks(MonSignet).Range.Text
Call Macro1
End Sub

Si quelqu'un avait la gentillesse de pouvoir m'aider directement ou me rediriger vers un site ( j'en ai fait quelques uns mais je n'arrive pas à utiliser le select bien que conceptuellement j'ai compris sa différence avec le range...enfin, je crois!)

Merci

Vyzouille

[vyzouille]

Bonjour,

En fait le trop étant l'ennemi du bien et l'énervement source d'idiotie, j'ai trouvé la solution qui est tout simplement:

Code :

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

ActiveDocument.bookmarks("Insert.StPage").select

En m'excusant auprès de tous pour ce dérangement.

Vyzouille
PS: Merci pour ce site et ce forum qui m'a permis de lire des discussions fortes intéressantes.

[Heureux-oli]

Salut,

Si ça fonctionne avec le signet maintenant, tant mieux.

Mais sache que l'on peut se déplacer de page en page dans un document.

Pour y parvenir, on utilise la commande GoTo.

Code :

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

1
2
3
4
5
 
Sub ChangerDePage()
ActiveDocument.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
 
End Sub

Il suffit ensuite de reculer d'un caractère pour être à la fin de la première page.

[vyzouille]

Merci de cette solution que

1. je vais essayer dans mon doc actuel
2. je vais utiliser dans mes projets futurs car je compte bien me mettre à la programmation un peu plus fortement après les vacances

A très bientôt avec mes questions farfelues, en revanche ce qui est du soutien, je vais essayer mais avec les moyens limités que sont les miens!

Bonne soirée

[Heureux-oli]

Reviens quand tu veux !