Macro enregistrement fichier avec contenu TextBox

Résolu/Fermé

Flodel35 Messages postés 26 Date d'inscription jeudi 25 juin 2020 Statut Membre Dernière intervention 26 novembre 2020 - Modifié le 25 juin 2020 à 15:33
Flodel35 Messages postés 26 Date d'inscription jeudi 25 juin 2020 Statut Membre Dernière intervention 26 novembre 2020 - 26 juin 2020 à 14:26

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:

Macro enregistrement fichier avec contenu TextBox
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Ouvrir fichier .bin - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
25 juin 2020 à 13:54

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"

Flodel35 Messages postés 26 Date d'inscription jeudi 25 juin 2020 Statut Membre Dernière intervention 26 novembre 2020
Modifié le 25 juin 2020 à 15:34

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.

yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481 > Flodel35 Messages postés 26 Date d'inscription jeudi 25 juin 2020 Statut Membre Dernière intervention 26 novembre 2020
25 juin 2020 à 15:00

à quelle ligne se produit l'erreur?
merci de spécifier "basic" quand tu postes du VBA.

Flodel35 Messages postés 26 Date d'inscription jeudi 25 juin 2020 Statut Membre Dernière intervention 26 novembre 2020 > yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024
25 juin 2020 à 15:57

Au niveau de la deuxième ligne.
Très bien c'est noté!

et si tu fais

msgbox     TextBox5.Value

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,

Discussions similaires

comment donner les droits sur fichier partage

Question PIX

comment ouvrir un fichier CBR

Discussions similaires

Newsletters