Le VBA Word est il le même que celui d'Excel

Bonjour,

Le VBA Excel peut il fonctionner pour du Word?? Je n'ai pas trouvé de forum Word

j'ai une petite macro qui me transforme un fichier Word en PDF.

j'aimerais que le nom du fichier créé tienne compte du mon indiqué dans Word, dans une liste comme du type "validation des données".

Dans le fichier joint, le quidam s'appelle "TOTO" donc si le fichier pouvait s’appeler " Carte TOTO.pdf " ce serait le top!!!!

PS: si mon message n'a rien a faire sur ce forum, effacez le et toutes mes excuses!!!

merci

Bonjour Bayard,

Je confirme : le VBA est bien le même en WORD qu'en EXCEL (même chose pour OUTLOOK, POWERPOINT, ACCESS).

Donc, pour ton problème, je te suggère :

1. Nom donner un titre à la liste déroulante des Noms (dans l'exemple joint j'ai arbitrairement choisi 'NomAdherent')
2. Tu modifie le Module1 de la façon suivante :

Sub VersPDF()

Dim nfichier As String, intpos As Byte
Dim sNom As String

sNom = RecupNomAdherent
nfichier = ActiveDocument.Name
'trouve la position de l'extension
intpos = InStrRev(nfichier, ".")
nfichier = Left(nfichier, intpos - 1) & "_" & sNom
'enregistre dans le dossier en cours
'ActiveDocument.SaveAs2 FileName:=nfichier, fileformat:=wdFormatPDF
ActiveDocument.ExportAsFixedFormat OutputFileName:=nfichier, ExportFormat:=wdExportFormatPDF
End Sub
Function RecupNomAdherent() As String
    Const cNomControl = "NomAdherent"
    Dim oControl As ContentControl

    For Each oControl In ThisDocument.ContentControls
        If oControl.Title = cNomControl Then
              RecupNomAdherent = oControl.Range.Text
        End If
    Next

End Function

NB : Si tu choisis un autre titre que le mien, n'oublies pas de modifier la valeur de la constante 'cNomControl' en conséquence...

oups...

Je joins mon doc d'essai :

Bonjour GVIALLES,

Bon ben ça marche bien mais par contre je pensais qu'il était censé se mettre (le fichier .pdf) dans le dossier où se trouve le modèle de départ, là il va dans le dossier "mes documents".

Est il possible de lui donner la bonne direction???

Et encore merci pour ton boulot!!

PS: désolé, c'est bon, une erreur de ma part

Bonne soirée