user_mobilelogo

Word 365: Vous saurez tout !

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'hui1638
Hier3318
Cette semaine15055
Ce mois77852
Total depuis 200412596484

46
visiteurs actuellement en ligne

27 novembre 2020