Discussion :

[Yvouille]

Bonsoir,

J'ai placé une macro sous "Normal", selon la copie d'écran ci-jointe. Cette macro fontionne alors pour de nouveaux documents (Documents1, Document2, etc.) si je passe pas "Développeur/Macro" et que je l'exécute de cette manière.

Comment est-il possible de lier plutôt cette macro à une combinaison de touches ?

A vous relire.

Yvouille

[Heureux-oli]

Salut,

Ça ne fonctionne pas pour les nouvelles macros enregistrées.

Parade, enregistrer une macro lui attribuer une combinaison de touches, ne rien faire.
Copier le code de la macro dans cette dernière.

[sylriviere]

Bonjour,

Je suis toute nouvelle sur ce forum, motivée par l'apprentissage de la VBA, notamment par l'intermédiaire des documents que vous avez édités.
Vous répondiez qu'il n'était pas possible de donner un raccourci clavier à une nouvelle macro, or, j'y arrive personnellement par les fonctions suivantes :

Je suis sous Word 2000 et je n'ai pas encore Word 2007

Outils/Personnaliser, Onglet Commandes cliquer sur Clavier. Dans Catégorie, descendre jusqu'à Macro, sélectionner dans l'autre case la nouvelle macro et lui attribuer une combinaison de touches.

Sous Word 2007, en revanche, je ne sais pas comment atteindre Outils/Personnaliser...

[Heureux-oli]

Salut,

Exact, ça fonctionne aussi sous 2003.
Pour 2007, il faudra attendre ce soir que je teste.

Encore Merci.

[Yvouille]

Salut Olivier,

Merci pour tes conseils, ça fonctionne bien .... à un détail prêt.

Si j'utilise un nouveau document, ça joue, la macro complète est exécutée.
Par contre si je veux utiliser ce code pour un ancien document (uniquement ceux créés avec Word 2007), le pied-de-page est ouvert, mais le nom du document n'y est pas inscrit.

Y a-t-il un remède ?

A te relire.

Yvouille

[Heureux-oli]

Salut,

Pour Word 2007.

Bouton Office.
Options Word.
Personnaliser
Choisir Macro
Ensuite Raccourcis Clavier : Personnaliser.

Pour ta macro,

Peut-être en la modifiant en ce sens :

Code :

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

1
2
3
4
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldFileName
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Select
Selection.Fields.Update
ActiveWindow.View.Type = wdPrintView

[Yvouille]

Salut Olivier,

Je ne suis pas arrivé à savoir où placer tes lignes dans mon code ou alors quelles lignes devaient être remplacées.

Peux-tu encore m'aider ?

Bonne journée.

Yvouille

[Heureux-oli]

Salut,

Ces lignes juste après le End With à la place de autres lignes.

Code :

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

1
2
3
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Select
Selection.Fields.Update
ActiveWindow.View.Type = wdPrintView

Elles ont pour but la élection du pied de page pour mettre le champ à jour.