Créer Nom de fichier automatique avec Word2k3 Fermé

Question

Bonjour,

je souhaite lors de l'enregistrement d'un nouveau fichier word, que le nom de fichier soit automatiquement créé avec un format bien précis.
Il faut donc que je récupère dans mon document soit des signets, soit des champs (ou autre) afin de composer le nom de mon fichier.
De plus il faut qu'en cas de fichier identique il y est une numérotation chronologique.....

J'espère avoir été assez clair.
1000 merci pour votre aide

Amicalement

m@rina · Answer

Bonjour,

Rapidement :

Supposant que le signet dans le document s'appelle "monsignet" :

Public Sub enregistre()
Dim MaVariable As String, MonSignet As String
MonSignet = "MonSignet"
If ActiveDocument.Bookmarks.Exists(MonSignet) Then
MaVariable = ActiveDocument.Bookmarks(MonSignet).Range.Text
End If
ActiveDocument.SaveAs FileName:=MaVariable
End Sub

Evidemment, faudra que tu ajoutes le le chemin de l'emplacement du dossier où tu dois enregistrer les fichiers.

Si le fichier existe, ben faudra ajouter un test, et si le test est positif, ajouter le numéro 1 et à partir de 1, s'il existe, ajouter une variable numérique + 1. 
Voilà, je te laisse faire !!! pas envie d'en faire plus pour le moment ! :D))

m@rina

Créer Nom de fichier automatique avec Word2k3

1 réponse

Discussions similaires

Newsletters