Bouton de commande (contrôle ActiveX) [Résolu]

Messages postés
3
Date d'inscription
jeudi 5 juillet 2007
Dernière intervention
6 juillet 2007
- - Dernière réponse : Titan1601
Messages postés
3
Date d'inscription
jeudi 5 juillet 2007
Dernière intervention
6 juillet 2007
- 6 juil. 2007 à 11:25
Bonjour,



Je travail sur Word et j’aimerais que lorsque
je clic sur le bouton de commande (contrôle ActiveX) je puisse :



<!--[if !supportLists]-->

1.      


<!--[endif]-->
Enregistrer automatiquement mon
document Word (.doc) dans le répertoire C://Mes documents/Rapport au format .pdf



<!--[if !supportLists]-->

2.      


<!--[endif]-->
Que le document enregistré prenne
automatiquement la date et l’heure du jour

(Exemple : 05 Juillet 2007 15h30.pdf)



<!--[if !supportLists]-->

3.      


<!--[endif]-->
Et pour finir que le document
enregistré (en .pdf avec date et heure) soit envoyé automatiquement par
courrier électronique.

Pour info, je dois l’envoyer à trois personnes différentes. (par exemple à [mailto:1@1.ch 1@1.ch][mailto:2@2.ch 2@2.ch][mailto:3@3.ch 3@3.ch] )




 






Un grand merci au génie qui
trouvera cette formule magique !
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Dernière intervention
22 août 2014
3
Merci
Bonjour....

Et... qu'as-tu au moins commencé à tenter comme code pour y parvenir ?
As-tu au moins tenté quelque manoeuvres avec l'enregistreur de macro ?

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 99 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmfmarques
Messages postés
7745
Date d'inscription
mercredi 1 septembre 2004
Dernière intervention
24 septembre 2014
3
Merci
"...Un grand merci au génie qui trouvera cette formule magique..."

Le grand génie pourrait etre toi.

Pour l'enregistrement du fichier, tu peux déjà commencer par lancer un enregistrement de macro. Tu fais ta manip une fois. Et une fois fini , tu arrete l'enregistrement et tu vas voir le code de la macro.

Pour l'envoie de mail, tu trouvera probablement pas mal de source ici ou sur Codyx traitant du sujet.

Mais au fait, tu nous as pas dis comment tu enregistrais un fichier Word au format PDF. Parce qu'au cas ou tu ne le saurait pas, il ne suffit pas de lui donner l'extension .pdf pour en faire un fichier PDF. Et Word (2003 en tout cas) ne gere pas en natif le format PDF.

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #   

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 99 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_casy
Messages postés
3
Date d'inscription
jeudi 5 juillet 2007
Dernière intervention
6 juillet 2007
3
Merci
Voilà ou j'en suis pour l'enregistrement automatique....

Private Sub CommandButton1_Click()
ChangeFileOpenDirectory "F:\Time"
ActiveDocument.SaveAs FileName:=Format(Date, "dd") & " " & Format(Date, "mmmm") & " " & Format(Date, "yyyy") & "," & Format(Time, "hh") & "h" & ".doc"
End Sub

Si je rajoute Format(Time, "mm"), le résultat me donne même pas les minutes!

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 99 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Titan1601
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
3
Merci
Salut,
Le format que tu recherche est :

Private Sub CommandButton1_Click()
Dim nomFichier As String
   'ATTENTION dans ton premier post tu parles de PDF et la de DOC
   nomFichier = Format(Now, "dd mmmm yyyy hh") & "h" & Minute(Time) & ".doc"
   Call ChangeFileOpenDirectory("F:\Time")
   Call ActiveDocument.SaveAs(nomFichier)
End Sub , ----
[code.aspx?ID=41455 By Renfield]
NOTE: pour utiliser les minutes dans la fonction Format il faut utiliser nn

@+: Ju£i?n
Pensez: Réponse acceptée

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 99 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
3
Date d'inscription
jeudi 5 juillet 2007
Dernière intervention
6 juillet 2007
0
Merci
Merci pour ces aides précieuses.



J’ai avancé sur mon projet, actuellement, je peux :



<!--[if !supportLists]-->

·        


<!--[endif]-->
Enregistre le document au format
date en doc (06 07 2007 11h10.doc)



<!--[if !supportLists]-->

·        


<!--[endif]-->
Enregistre le document au format
date en pdf (Time contrôle.pdf)



<!--[if !supportLists]-->

·        


<!--[endif]-->
Envoyer ce document par mail en doc (06 07 2007 11h10.doc)



Maintenant, ça parait simple, mais je rame, j’aimerais :



<!--[if !supportLists]-->

·        


<!--[endif]-->
Enregistre le document au format
date en pdf (06 07 2007 11h10.pdf et nonTime contrôle.pdf)



<!--[if !supportLists]-->

·        


<!--[endif]-->
Envoyer ce document par mail uniquement
en pdf (06 07 2007 11h10.pdf)



<!--[if !supportLists]-->

·        


<!--[endif]-->
Et si possible qu’Outlook express complète
automatiquement les 3 destinataires.



J’ai 2 boutons de commande :




Le 1er contient :






Private Sub CommandButton1_Click()



ChangeFileOpenDirectory "F:\Time"



ActiveDocument.SaveAs FileName:=Format(Date, "dd") &
" " & Format(Date, "mmmm") & " " &
Format(Date, "yyyy") & " " & Format(Time,
"hh") & "h" & Format(Time, "nn") &
".doc"



End Sub




Le 2ème contient :






Private Sub CommandButton2_Click()




   
ActiveDocument.ExportAsFixedFormat OutputFileName:= _




        "F:\Time\Time
contrôle.pdf" _




        ,
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _




        wdExportOptimizeForPrint,
Range:=wdExportAllDocument, From:=1, To:=1, _




        Item:=wdExportDocumentContent,
IncludeDocProps:=False, KeepIRM:=True, _




       
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _




        BitmapMissingFonts:=True,
UseISO19005_1:=False




        Options.SendMailAttach =
True




        ActiveDocument.SendMail



End Sub



Merci d’avance
Commenter la réponse de Titan1601

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.