Macro WORD

[DGIOUI]

Je voudrais creer une macro qui enregistre mon document avec comme nom de documment la date du jour + du texte fixe.

exemple 05062007xxxxx.doc

Merci de votre aide .

 

[zeb]

Utilise l'enregistreur de macro et adapte le code obtenu.

 

[hoegarden31]

ou tu creer une boite de type :

folder = InputBox(ct, "Entrer un nom pour enregistrer : ", "nom type : date+nom")

et apres tu untilise cette variable de type string pour enregistrer

Vous devez être connecté pour voir les images.

 

[DGIOUI]

Super sympa pour vos réponses mais je n'y connais vraiment rien en VB
Par exemple comment initialliser la variable FileName avec la date du jour + "xxxx"
Moi pour le moment je ne sais pas faire
Aller y aurait pas quelqu'un qui me ferait une petite macro de base que je pourais
reprende par un copier coller
Par avence M E R C I E

 

[hoegarden31]

ton document en question il est deja ouvert ou il faut l'ouvrir a l'aide d'un macro ?

 

[zeb]

En VB, "maintenant" se dit Now. L'opérateur de concaténation est le signe & et si tu veux mettre un texte en forme, la fonction Format est faite pour toi.

Enjoy!

 

[DGIOUI]

ton document en question il est deja ouvert ou il faut l'ouvrir a l'aide d'un macro ?

Il est deja ouvert .

 

[hoegarden31]

ok donc pourquoi l'enregistrer avec une macro ?

 

[zeb]

Pour changer son nom de Document1 en Format(Now,"ddmmyyyy")&"xxx.doc"

 

[DGIOUI]

ok donc pourquoi l'enregistrer avec une macro ?

Je veux imposer le nom du document pour la sauvegarde

 

[hoegarden31]

ben si tu fait enregistrer sous tu choisi ce que tu veux lol

 

[DGIOUI]

ben si tu fait enregistrer sous tu choisi ce que tu veux lol

Oui mais moi je dois recupérer des noms de documents bien précis et si je laisse la possibillité de choisir le nom du document il vont me maitre tout en n'importe quoi.Il faut de j'impose le nom du document !

 

[hoegarden31]

ok et qui entre le nom ? c toi qui l'impose par une sorte de liste ?

 

[DGIOUI]

ok et qui entre le nom ? c toi qui l'impose par une sorte de liste ?

Oui je veux maitre dans la macro la date + le code de leur service comme nom de fichier. Comme il y a une 10'n de services
je modiffirai le code service en dure dans chaque macro. Ce sera pas trop long il n'y a pas beaucoup de service.
En résumé chaque service doit me créer un fichier .doc par jours!

 

[zeb]

en dure (sic)

C'est très vilain. (et je ne parle pas de l'orthographe - Euh, à ce propos, tu ne veux pas faire un effort ?)
IL FAUT PARAMETRER SES FONCTIONS.

Comment connaître le service ?
En cliquant sur le bouton Service1, en lisant le contenu d'une cellule ?

 

[hoegarden31]

il vaut mieux de creer une liste avec tout les services puis tu utilise la fonction

ActiveSheet.DropDowns.Add(266.25, 383.25, 150, 29.25).Select

sinon tu peux le faire manuellement en cliquant boutons droit sur fichier
puis de cherche dans la liste Forms (en anglais parce que j'ai la version anglaise lol) puis tu creer une combo box
apres cela, tu double clique sur le box creer puis dans un des menus tu selectione la colonne avec tout les services .

 

[hoegarden31]

voici un exemple ou l'utilisateur peut choisir le nom :
[cpp]Sub Save()
Dim chemin As String
Dim service, ww
chemin = "..."
'ex : "C:\Documents and Settings\...\Mes Documents" Attention pas de "\" a la fin
service = InputBox(ww, "Numero de service", "numero")
ActiveWorkbook.SaveAs Filename:=chemin & "\" & Format(Date, "wwmmyyyy") & service
End Sub[/cpp]

 

[zeb]

J'aime bien le principe qui dit qu'une cellule quelque part dans le classeur renseigne le numéro du service. Dans ce cas, pas besoin de demander à l'utilisateur - qui est capable de répondre "Toto" quand on lui demande son âge.

 

[hoegarden31]

oui c'est ce que je me suis dit
il faut aussi que tu bloque l'acces au code apres sinon n'importe qui peut le modifier

 

[DGIOUI]

oui c'est ce que je me suis dit
il faut aussi que tu bloque l'acces au code apres sinon n'importe qui peut le modifier

Merci à tous pour ces renseignements. Pour l'orthographe faut pas exagérer quand même
Excusez moi pour cette réponse tardive, des petits problèmes personnelles.
Je vais essayé tous ces petits renseignements et vous recontacterai sûrement dans les prochains jours.
Encore merci