Recherche

 

Avec cette petite macro à installer sur la barre d'outils ou sur le ruban :

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



On pourra ajouter un test au cas où le fichier existe. Et si le test est positif, ajouter le numéro 1 et à partir de 1, s'il existe, ajouter une variable numérique + 1.

Statistiques

France 72,1% France
Canada 7,7% Canada
Belgique 3,8% Belgique

Total:

117

Pays
018308662
Aujourd'hui: 63
Hier: 386
Cette semaine: 1.392
Semaine dernière: 2.467
Ce mois: 4.054