inclure le texte de signets dans nom de fichier wordRésolu

Question

bonjour nouveau sur ce forum et débutant en vba.

je suis entrain de créer une macro en vba pour enregistrer automatiquement un fichier Word qui à été créer à partir d'un modèle.

je désirerais insérer le texte de deux signets dans le nom du fichier mais je rencontre un problème une erreur 

 voici le code que j'ai écris

Objet = ActiveDocument.Bookmarks("signet").Range.TextEnvoie = ActiveDocument.Bookmarks("signet3").Range.TextActiveDocument.SaveAs FileName:=Objet & Envoie & ".doc"

Objet désigne l'objet de mon courrier c'est du texte faisant partie de mon document que écris a chaque nouveau document.

Envoie désigne le mode d'envoie du courrier (fax, lettre simple, recommandé etc ...) c'est du texte faisant partie d'une liste déroulante incluse dans mon document.

que je mette soit Objet ou Envoie tout seul le résultat est le même.

pourtant le texte de Objet et Envoie sont bien récupéré mais le fichier ne s'enregistre pas : ERREUR

erreur d'exécution '5487':

Impossible de terminer l'enregistrement:erreur d'autorisation d'accès au fichier.

si quelqu'un pouvais me donner un coup de main ca serait super sympa, merci

jordane45 · Answer

Bonjour,

Tu peux essayer comme ça :

Objet = ActiveDocument.Bookmarks("signet").Range.Text
Envoie = ActiveDocument.Bookmarks("signet3").Range.Text
newName = Objet & Envoie & ".doc"
Debug.Print newName
ActiveDocument.SaveAs FileName:=newName
 
Au cas où.. tu n'as pas de caractères spéciaux dans tes variables ?
 - retour à la ligne
 - Slash 
 - Apostrophes .. 
 - Points d'interrogation ou d'exclamation...
???
 
Si ça ne fonctionne toujours pas, marques nous ici ce que donne le résultat de : Debug.Print newName

Over.Slash · Answer

je ne sais pas si je peux ajouter cela a ce pose ou si il faut que j'en ouvre un autre pour traiter un autre sujet toujours lié a ce même code pour y ajouté des commandes

car je m'aperçois maintenant que dans mon nom de fichier j'ai parfois des espaces de trop due au champs vide si ils ne sont pas renseignés.

je pensais ajouté une fonction If de cette façon.

ActiveDocument.SaveAs FileName:=... & If (attention="" then "" else attention & " ")  ... & ".doc" 

si le champ attention  est vide vba le désigne comme "".

si c'est le cas je voudrais que " " devienne "" dans mon nom de fichier, 

si non que le champ attention apparaisse suivie d'un " ".

et ainsi de suite pour tous les autres champs inclus dans mon nom de fichier.

je sais utiliser la fonction SI sous excel et IF en basic mais en vba, quelqu'un pourrais me renseigner ?

merci par avance.

jordane45 · Answer

Pas de soucis.
Par contre : 
1 - vu que ta question est résolue ( ta seconde question ayant été également traitée dans ton autre discussion), merci de passer le sujet en clos en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de ta question.

2 - Dans ta concaténation... attention à ce que ton nom de fichier + le chemin où tu le stockes ne dépasse pas les 256 caractères (Windows a tendance à ne pas aimer...)

3 - Il existe une fonction en VBA qui permet de retirer les espaces qui se trouvent avant et après une chaine de caractères... ainsi plus besoin de tes if.. TRIM

Objet = trim(ActiveDocument.Bookmarks("Objet").Range.Text)
Envoie = trim(ActiveDocument.Bookmarks("Envoie").Range.Text)


Tu pourrais même te faire une fonction de "nettoyage" de tes chaines de caractères pour retirer tous les caractères "gênants"

Function strClean(str) As String
' Fonction de nettoyage de chaine de caractères
    If IsEmpty(str) Then strClean ""
    Dim strTmp As String
    str = Replace(str, "'", "")
    str = Replace(str, Chr(8), "")
    str = Replace(str, Chr(9), "")
    str = Replace(str, Chr(10), "")
    str = Replace(str, Chr(11), "")
    str = Replace(str, Chr(12), "")
    str = Replace(str, Chr(13), "")
    str = Replace(str, "?", "")
    str = Replace(str, "!", "")
    str = Replace(str, "/", "")
    str = Replace(str, "\", "")
    str = Replace(str, ":", "")
    str = Replace(str, ";", "")
    str = Replace(str, ",", "")
    str = Replace(str, "$", "")
    str = Replace(str, " ", "")
    str = Replace(str, """", "")
    ' On retourne la chaine néttoyée
    strClean = Trim(str)
End Function

( normalement je te l'aurai fait via un REGEX (expréssions régulières) mais ça complique les choses pour pas grand chose...)

et donc pour récupérer tes variables tu ferais :

Objet = strClean(ActiveDocument.Bookmarks("Objet").Range.Text)
Envoie = strClean(ActiveDocument.Bookmarks("Envoie").Range.Text)

Voilou.
Cordialement,
Jordane.

Inclure le texte de signets dans nom de fichier word

3 réponses

Votre réponse

Discussions similaires