Signets : aimentation par userform et remise à zéro avant de qui tt
4 réponses
Petipeton
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui
s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non,
les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui,
comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre
réponse éclairée !
--
Petipeton
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des données saisies à côté (un seul mot saisi) :
Sub Macro1() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox1 Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox2 Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox3 'effacer test End Sub Sub test() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non, les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui, comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre réponse éclairée ! -- Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des
données saisies à côté (un seul mot saisi) :
Sub Macro1()
Selection.GoTo What:=wdGoToBookmark, Name:="Toto1"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox1
Selection.GoTo What:=wdGoToBookmark, Name:="Toto2"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox2
Selection.GoTo What:=wdGoToBookmark, Name:="Toto3"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox3
'effacer
test
End Sub
Sub test()
Selection.GoTo What:=wdGoToBookmark, Name:="Toto1"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
Selection.GoTo What:=wdGoToBookmark, Name:="Toto2"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
Selection.GoTo What:=wdGoToBookmark, Name:="Toto3"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui
s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non,
les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui,
comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre
réponse éclairée !
--
Petipeton
D'une part ajout des données à côté des signets, puis effacements des données saisies à côté (un seul mot saisi) :
Sub Macro1() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox1 Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox2 Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox3 'effacer test End Sub Sub test() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non, les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui, comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre réponse éclairée ! -- Petipeton
Petipeton
Merci beaucoup !
Je suis débutante en VBA...
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et ne souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des données saisies à côté (un seul mot saisi) :
Sub Macro1() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox1 Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox2 Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox3 'effacer test End Sub Sub test() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non, les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui, comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre réponse éclairée ! -- Petipeton
Merci beaucoup !
Je suis débutante en VBA...
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du
document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et ne
souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des
données saisies à côté (un seul mot saisi) :
Sub Macro1()
Selection.GoTo What:=wdGoToBookmark, Name:="Toto1"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox1
Selection.GoTo What:=wdGoToBookmark, Name:="Toto2"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox2
Selection.GoTo What:=wdGoToBookmark, Name:="Toto3"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox3
'effacer
test
End Sub
Sub test()
Selection.GoTo What:=wdGoToBookmark, Name:="Toto1"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
Selection.GoTo What:=wdGoToBookmark, Name:="Toto2"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
Selection.GoTo What:=wdGoToBookmark, Name:="Toto3"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui
s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non,
les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui,
comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre
réponse éclairée !
--
Petipeton
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et ne souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des données saisies à côté (un seul mot saisi) :
Sub Macro1() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox1 Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox2 Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox3 'effacer test End Sub Sub test() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non, les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui, comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre réponse éclairée ! -- Petipeton
AB
Bonjour, "Elliac" étant peut-être à la plage, je me permets de répondre à sa place : Pour qu'une macro exécute automatiquement à la fermeture d'un document, il te faut simplement la nommer AutoClose. AB
"Petipeton" a écrit dans le message de news:
Merci beaucoup !
Je suis débutante en VBA...
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et ne souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des données saisies à côté (un seul mot saisi) :
Sub Macro1() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox1 Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox2 Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox3 'effacer test End Sub Sub test() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non, les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui, comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre réponse éclairée ! -- Petipeton
Bonjour,
"Elliac" étant peut-être à la plage, je me permets de répondre à sa place :
Pour qu'une macro exécute automatiquement à la fermeture d'un document, il
te faut simplement la nommer AutoClose.
AB
"Petipeton" <Petipeton@discussions.microsoft.com> a écrit dans le message de
news: F4723FD4-600C-431A-AA95-89D6B727122C@microsoft.com...
Merci beaucoup !
Je suis débutante en VBA...
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du
document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et
ne
souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des
données saisies à côté (un seul mot saisi) :
Sub Macro1()
Selection.GoTo What:=wdGoToBookmark, Name:="Toto1"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox1
Selection.GoTo What:=wdGoToBookmark, Name:="Toto2"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox2
Selection.GoTo What:=wdGoToBookmark, Name:="Toto3"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox3
'effacer
test
End Sub
Sub test()
Selection.GoTo What:=wdGoToBookmark, Name:="Toto1"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
Selection.GoTo What:=wdGoToBookmark, Name:="Toto2"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
Selection.GoTo What:=wdGoToBookmark, Name:="Toto3"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform
qui
s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou
non,
les signets soient remis à zéro (contenu effacé). Est-ce possible et si
oui,
comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de
votre
réponse éclairée !
--
Petipeton
Bonjour, "Elliac" étant peut-être à la plage, je me permets de répondre à sa place : Pour qu'une macro exécute automatiquement à la fermeture d'un document, il te faut simplement la nommer AutoClose. AB
"Petipeton" a écrit dans le message de news:
Merci beaucoup !
Je suis débutante en VBA...
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et ne souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des données saisies à côté (un seul mot saisi) :
Sub Macro1() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox1 Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox2 Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox3 'effacer test End Sub Sub test() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non, les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui, comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre réponse éclairée ! -- Petipeton
Petipeton
Merci infiniment !
J'avais raisonné à l'inverse : ma macro s'éxécutait au lancement du document !
Merci à tous deux pour votre aide précieuse.
Petipeton
Bonjour, "Elliac" étant peut-être à la plage, je me permets de répondre à sa place : Pour qu'une macro exécute automatiquement à la fermeture d'un document, il te faut simplement la nommer AutoClose. AB
"Petipeton" a écrit dans le message de news:
Merci beaucoup !
Je suis débutante en VBA...
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et ne souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des données saisies à côté (un seul mot saisi) :
Sub Macro1() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox1 Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox2 Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox3 'effacer test End Sub Sub test() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non, les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui, comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre réponse éclairée ! -- Petipeton
Merci infiniment !
J'avais raisonné à l'inverse : ma macro s'éxécutait au lancement du document !
Merci à tous deux pour votre aide précieuse.
Petipeton
Bonjour,
"Elliac" étant peut-être à la plage, je me permets de répondre à sa place :
Pour qu'une macro exécute automatiquement à la fermeture d'un document, il
te faut simplement la nommer AutoClose.
AB
"Petipeton" <Petipeton@discussions.microsoft.com> a écrit dans le message de
news: F4723FD4-600C-431A-AA95-89D6B727122C@microsoft.com...
Merci beaucoup !
Je suis débutante en VBA...
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du
document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et
ne
souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des
données saisies à côté (un seul mot saisi) :
Sub Macro1()
Selection.GoTo What:=wdGoToBookmark, Name:="Toto1"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox1
Selection.GoTo What:=wdGoToBookmark, Name:="Toto2"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox2
Selection.GoTo What:=wdGoToBookmark, Name:="Toto3"
Selection.Move Unit:=wdCharacter, Count:=1
Selection = UserForm1.TextBox3
'effacer
test
End Sub
Sub test()
Selection.GoTo What:=wdGoToBookmark, Name:="Toto1"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
Selection.GoTo What:=wdGoToBookmark, Name:="Toto2"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
Selection.GoTo What:=wdGoToBookmark, Name:="Toto3"
Selection.Move Unit:=wdWord, Count:=1
Selection.Expand Unit:=wdWord
Selection = ""
End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform
qui
s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou
non,
les signets soient remis à zéro (contenu effacé). Est-ce possible et si
oui,
comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de
votre
réponse éclairée !
--
Petipeton
J'avais raisonné à l'inverse : ma macro s'éxécutait au lancement du document !
Merci à tous deux pour votre aide précieuse.
Petipeton
Bonjour, "Elliac" étant peut-être à la plage, je me permets de répondre à sa place : Pour qu'une macro exécute automatiquement à la fermeture d'un document, il te faut simplement la nommer AutoClose. AB
"Petipeton" a écrit dans le message de news:
Merci beaucoup !
Je suis débutante en VBA...
J'aimerai que tes macros s'exécutent automatiquement à la fermeture du document word. Est-ce possible ? Je n'ai pas de bouton sur mon document et ne souhaite pas en mettre.
Merci de tes réponses efficaces !
Petipeton
Bonjour,
D'une part ajout des données à côté des signets, puis effacements des données saisies à côté (un seul mot saisi) :
Sub Macro1() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox1 Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox2 Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdCharacter, Count:=1 Selection = UserForm1.TextBox3 'effacer test End Sub Sub test() Selection.GoTo What:=wdGoToBookmark, Name:="Toto1" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto2" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" Selection.GoTo What:=wdGoToBookmark, Name:="Toto3" Selection.Move Unit:=wdWord, Count:=1 Selection.Expand Unit:=wdWord Selection = "" End Sub
"Petipeton" wrote:
Bonjour !
J'alimente des signets disposés dans un publipostage via un userform qui s'active à l'ouverture d'un fichier.
J'aimerais qu'avant de quitter ledit fichier, qu'il soit enregistré ou non, les signets soient remis à zéro (contenu effacé). Est-ce possible et si oui, comment ?
Je m'attends évidemment à un code VBA. Je vous remercie par avance de votre réponse éclairée ! -- Petipeton
