Récup valeur MsgBox et le mettre à un signet dans Word
julien_28
Messages postés
5
Date d'inscription
dimanche 20 octobre 2019
Statut
Membre
Dernière intervention
21 octobre 2019
-
20 oct. 2019 à 22:32
julien_28 Messages postés 5 Date d'inscription dimanche 20 octobre 2019 Statut Membre Dernière intervention 21 octobre 2019 - 21 oct. 2019 à 21:28
julien_28 Messages postés 5 Date d'inscription dimanche 20 octobre 2019 Statut Membre Dernière intervention 21 octobre 2019 - 21 oct. 2019 à 21:28
A voir également:
- Word vba msgbox
- Vba word msgbox - Meilleures réponses
- Word afficher signet - Meilleures réponses
- Msgbox - Conseils pratiques -Visual Basic / VB.NET
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Vba msgbox retour à la ligne ✓ - Forum Visual Basic 6
- Msgbox vbyesno - Forum Visual Basic
- Vba msgbox yes no ✓ - Forum Visual Basic
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
137
21 oct. 2019 à 08:02
21 oct. 2019 à 08:02
Bonjour,
Ce n'est pas une MsgBox qu'il faut utiliser mais une InputBox:
https://www.commentcamarche.net/faq/41585-vba-inputbox#inputbox-les-boutons
ensuite il faut faire une boucle sur tous les signets du document pour ajouter la valeur que tu récupères dans ta InputBox sous forme de variable:
http://www.faqword.com/index.php/word/environnement/534-signets-inseres-dans-word
Voilà
Ce n'est pas une MsgBox qu'il faut utiliser mais une InputBox:
https://www.commentcamarche.net/faq/41585-vba-inputbox#inputbox-les-boutons
ensuite il faut faire une boucle sur tous les signets du document pour ajouter la valeur que tu récupères dans ta InputBox sous forme de variable:
http://www.faqword.com/index.php/word/environnement/534-signets-inseres-dans-word
Voilà
21 oct. 2019 à 12:25
Faire Alt F11 pour accéder à l'éditeur. Aller dans ThisDocument en haut à gauche et mettre le code comme ceci:
d'après les sites cités
Voilà y a plus qu'à
@+ Le Pivert
21 oct. 2019 à 14:35
Fait-il que j'utilise un signet ou docvariable?
Ci-joint une capture de mon code.
Merci d'avance
21 oct. 2019 à 17:08
https://heureuxoli.developpez.com/office/word/vba-word/#LVII
voici le code:
Option Explicit Private Sub Document_Open() AfficheNomSignet End Sub 'http://www.faqword.com/index.php/word/environnement/534-signets-inseres-dans-word 'https://heureuxoli.developpez.com/office/word/vba-word/#LVII Public Sub AfficheNomSignet() 'Code écrit par Guy Moncomble 2002 Dim varSignet As Bookmark Dim NumSerie As String ' déclare en string(texte) Dim longueur As Integer NumSerie = InputBox("Numéro carte BIUT?", "Numéro de série", "20---") longueur = Len(NumSerie) 'nombre de chiffres Application.ScreenUpdating = False For Each varSignet In ActiveDocument.Bookmarks 'boucle sur les signets Selection.GoTo What:=wdGoToBookmark, Name:=varSignet Selection.Delete Unit:=wdCharacter, Count:=longueur 'supprime l'ancien NumSerie ActiveDocument.Bookmarks(varSignet).Range.Text = NumSerie 'ajoute le NumSerie Next varSignet Application.ScreenUpdating = True End Sub Sub supp_signet() Dim varSignet As Bookmark For Each varSignet In ActiveDocument.Bookmarks 'boucle sur les signets ActiveDocument.Bookmarks(varSignet).Delete 'supprime tous les signets Next varSignet End SubPour tes essais, travaille sur une copie par mesure de sécurité
@+ Le Pivert
21 oct. 2019 à 21:19
21 oct. 2019 à 21:23