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

Titan1601 3 Messages postés jeudi 5 juillet 2007Date d'inscription 6 juillet 2007 Dernière intervention - 5 juil. 2007 à 15:58 - Dernière réponse : Titan1601 3 Messages postés jeudi 5 juillet 2007Date d'inscription 6 juillet 2007 Dernière intervention
- 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

jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 5 juil. 2007 à 16:08
+3
Utile
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 ?
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jmfmarques
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 5 juil. 2007 à 20:28
+3
Utile
"...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 #   
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_casy
Titan1601 3 Messages postés jeudi 5 juillet 2007Date d'inscription 6 juillet 2007 Dernière intervention - 5 juil. 2007 à 20:45
+3
Utile
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!
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Titan1601
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 6 juil. 2007 à 08:23
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jrivet
Titan1601 3 Messages postés jeudi 5 juillet 2007Date d'inscription 6 juillet 2007 Dernière intervention - 6 juil. 2007 à 11:25
0
Utile
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.