Bouton de commande (contrôle ActiveX)
Résolu
Titan1601
Messages postés
3
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
6 juillet 2007
-
5 juil. 2007 à 15:58
Titan1601 Messages postés 3 Date d'inscription jeudi 5 juillet 2007 Statut Membre Dernière intervention 6 juillet 2007 - 6 juil. 2007 à 11:25
Titan1601 Messages postés 3 Date d'inscription jeudi 5 juillet 2007 Statut Membre Dernière intervention 6 juillet 2007 - 6 juil. 2007 à 11:25
A voir également:
- Différence entre controle de formulaire et activex
- Contrôle activex - Conseils pratiques -Visual Basic / VB.NET
- Difference entre librairie et bibliotheque - Forum C / C++ / C++.NET
- Différence entre: Framework, SKD , Librairie et Api - Forum C
- Utiliser une librairie C avec C# ✓ - Forum C# / .NET
- Inclure une librairie dans dans mon projet en C# - Forum C# / .NET
5 réponses
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
5 juil. 2007 à 16:08
5 juil. 2007 à 16:08
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 ?
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 ?
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
5 juil. 2007 à 20:28
5 juil. 2007 à 20:28
"...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 #
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 #
Titan1601
Messages postés
3
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
6 juillet 2007
5 juil. 2007 à 20:45
5 juil. 2007 à 20:45
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!
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!
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
6 juil. 2007 à 08:23
6 juil. 2007 à 08:23
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Titan1601
Messages postés
3
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
6 juillet 2007
6 juil. 2007 à 11:25
6 juil. 2007 à 11:25
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
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
