Discussion :

[holly8004]

Bonjour,
J'ai créé un document avec des textbox (zone de texte / controle activex) dont une où les personnes doivent mettre leur matricule.
Je souhaiterai récupérer le matricule saisi dans cette textbox et l'utiliser pour le mettre dans le nom du document.
je ne connais pas trop VBA word et cela ne me semblait pas trop compliqué mais je n'arrive pas à trouver.
J'ai juste trouvé le code ci-dessous qui permet d'ouvrir "enregistrer sous" en mettant la date.
Pourriez-vous svp m'aider ?


Sub FichierEnregistrerSous()
With Dialogs(wdDialogFileSaveAs)
.Name = Date & ".docx"
.Show
End With

[Nain porte koi]

Hello,

pas bien différent... avec un textbox activX :

Code :

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

1
2
3
4
5
6
Sub FichierEnregistrerSous()
    With Dialogs(wdDialogFileSaveAs)
        .Name = TextBox1 & ".docx"
        .Show
    End With
End Sub

pour un controle de contenu de texte c'est un peu plus compliqué, on ne peut pas utiliser de nom, il faut utiliser son numéro d'ordre dans le document
voir : https://faqword.com/index.php/word-f...-solutions/772

Code :

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

1
2
3
4
5
6
Sub FichierEnregistrerSous()
    With Dialogs(wdDialogFileSaveAs)
        .Name = ActiveDocument.ContentControls.Item(1).Range & ".docx"
        .Show
    End With
End Sub

[holly8004]

Bonjour, merci beaucoup.
Le 2nd code fonctionne mais avec le contrôle du contenu du texte enrichi. J'aurais préféré des textbox (zone de texte / controle activex), mais c'est déjà bien.

[Nain porte koi]

Le premier code fonctionne avec des activeX

[holly8004]

Non il ne marche pas chez moi. Cela ne renvoie rien.

[Philippe Tulliez]

Bonjour,

Non il ne marche pas chez moi. Cela ne renvoie rien.

Pour l'ActiveX, il y a lieu de placer la procédure dans le module ThisDocument

[Nain porte koi]

Hello Philippe, merci d'avoir complété, j'avais oublié ce détail

[holly8004]

Merci beaucoup pour vos réponses