user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

Avec cette petite macro :

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

Aujourd'hui2173
Hier2524
Cette semaine13118
Ce mois64925
Total depuis 200412821689

15
visiteurs actuellement en ligne

26 février 2021