Bonjour,
bonjour,
 
j'ai fais une macro qui surcharge la commande "sauvegarder sous".
La macro propose à l'utilisateur un nom de fichier qui dépend d'un signet rempli par l'utilisateur dans le formulaire word
Elle marche à peu pres bien mais le résultat est un ptit peu différent de ce que j'attendais
Exemple: la valeur du signet est : "samsung"
je voulais que le nom de fichier soit : "mon_fichier_depend_du_signet Samsung"
en réalité j'obtiens : mon_fichier_depend_du_signet FormTEXT Samsung"
 
quelqu'un sait comment virer le "FormTEXT" ??
 
merci !!
 
voici la macro :
 
Public Sub FichierEnregistrerSous()
'macro écrite par anacoluthe
With Dialogs(wdDialogFileSaveAs)
    Dim MaVariable As String, MonSignet As String
    MonSignet = "fournisseur"
    If ActiveDocument.Bookmarks.Exists(MonSignet) Then
    MaVariable = ActiveDocument.Bookmarks(MonSignet).Range.Text
    End If
    .Name = "mon_fichier_depend_du_signet " & MonSignet
    .Show
End With
End Sub

Bonsoir,
je n'ai pas réussi à reproduire le pb, mais si tu ne t'en sors pas, tu peux toujours remplacer  
.Name = "mon_fichier_depend_du_signet " & MonSignet  
par
.Name = "mon_fichier_depend_du_signet " & Right(Len(MonSignet) - 9)
 
si c'est monsignet que tu utilises, je crois que c'est Mavariable que tu pensais mettre
Cordialement

Bonsoir !
merci beaucoup
j'ai trouvé une solution qui est en fait du meme genre
MaVariable = Replace(MaVariable, " FORMTEXT ", "" )
et oui c'était bien MaVariable en effet ...
 
sinon j'ai une autre question qui doit etre toute simple pour toi .... maintenant que j'ai surchargé la commande "enregistrer sous", la macro s'execute pour tous les fichiers word auxquels je fais "enregistrer sous". J'aimerai quelle ne s'applique qu'au fichier en question bien sur !!

RE,
tu remontes le .Name au dessus du end if
ainsi tu as la valeur par défaut à condition de ne pas avoir le signet "fournisseur" présent.
 
Cordialement