Macro enregistrement fichier avec contenu TextBox

Résolu
Flodel35 Messages postés 28 Statut Membre -  
Flodel35 Messages postés 28 Statut Membre -
Bonjour,

J'ai créé un formulaire Word et je souhaite créer une macro permettant de l'enregistrer à l'emplacement souhaité et en changeant le nom du fichier pour chaque formulaire (en y intégrant l'ID client situé dans une TextBox). Je parviens à enregistrer mon fichier où je le souhaite avec la macro ci dessous : 

ChangeFileOpenDirectory "U:\DESTINATION"
ActiveDocument.SaveAs FileName:="Fiche test" & ".docm"


J'ai ensuite tenté d'insérer TextBox1.Value ou TextBox1.Text entre "Fiche test" et ".docm" mais j'ai un message d'erreur m'indiquant "Objet requis". Une idée pour résoudre ce problème?

Merci d'avance,
A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour,
merci d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
pourquoi ne pas nous montrer comment tu as tenté cette insertion?
plus simple:
ActiveDocument.SaveAs FileName:="U:\DESTINATION\Fiche test" & ".docm"
0
Flodel35 Messages postés 28 Statut Membre
 
Bonjour,

Merci pour les balises de code, je me demandais justement comment faire! Voici l'essai que j'ai fait et qui m'a renvoyé "Objet requis" : 

ChangeFileOpenDirectory "U:\LBPCS_DONNEES_UTIL\2020 - IARD"
ActiveDocument.SaveAs FileName:="Fiche apport IARD - " & TextBox5.Value & ".docm"


Et effectivement ta proposition est plus simple, merci.
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > Flodel35 Messages postés 28 Statut Membre
 
à quelle ligne se produit l'erreur?
merci de spécifier "basic" quand tu postes du VBA.
0
Flodel35 Messages postés 28 Statut Membre > yg_be Messages postés 24281 Statut Contributeur
 
Au niveau de la deuxième ligne.
Très bien c'est noté!
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > Flodel35 Messages postés 28 Statut Membre
 
et si tu fais 
msgbox     TextBox5.Value
?
0
Flodel35 Messages postés 28 Statut Membre > yg_be Messages postés 24281 Statut Contributeur
 
Bonjour, cela me donne la macro suivante (j'ai ajouté une confirmation d'enregistrement avec MsgBox qui fonctionne très bien et j'ai rénommé ma TextBox5 en "IDClient") : 

Sub ENREGISTREMENT()

If MsgBox("Enregistrer cette fiche?'", vbYesNo, "Demande de confirmation") = vbYes Then

ChangeFileOpenDirectory "U:\DESTINATION"
ActiveDocument.SaveAs FileName:="Fiche apport test" & MsgBox IDClient.Value & ".docm"
MsgBox "La fiche a bien été enregistrée"

End If
        
End Sub


Malheureusement, il me renvoie "Attendu : fin d'instruction" en surlignant "IDClient" et quand je tente d'éxecuter la macro, j'ai "Erreur de syntaxe"... C'est peut être juste une histoire de guillememets, virgules ou tirets?

Merci d'avance,
0