Enregistrement grace à un bouton

[Marina01]

Bonjour Forum,

Est-il possible (je sais que oui lol) depuis un bouton d'enregistrer mon fichier en type jpeg avec pour nom du fichier le contenu d une TextBox saisi au préalable.

Je vous un fichier test pour vous donner des détails.

http://cjoint.com/?hnmv6xiFS4

 

[sousou]

Re : Enregistrement grace à un bouton

Bonjour Marina01.
Ce qu'il est possible de faire, c'est de l'imprimer dans un fichier pdf
Tu dois dans ce cas bien définir la mise en page, afin d'obtenir en apercu le résultat escompté,et définir pdfCreator comme imprimante au moment de l'impression.
PDFCREATOR est libre mais ce n'est pas du JPG

 

[Marina01]

Re : Enregistrement grace à un bouton

Ouais à la rigueur, ca me pose pas de problème...l idée est que ca prenne pas trop de place. Cela dit PdfCreator, je le mets a quel endroit...je comprend pas trop cette méthode.

 

[sousou]

Re : Enregistrement grace à un bouton

RE
PDFcreator est télchargeable n'importe ou et il est gratuit.
il s'installe et s'utilise comme une imprimante.
bien regarder les options pour choisir la manière dont il va fonctionner
Par contre je n'arriva pas pas programme à affecter facilement le contenu de la textbox au nom du fichier. (Je cherche.)

Exemple de mise en oeuvre:

Private Sub CommandButton2_Click()
chemin = ThisWorkbook.Path & "\" 'a toi de définir le chemin si nécessaire
Application.ActivePrinter = "PDFCreator sur Ne00:" 'voir l'appelation dans imprimantes
nom = ActiveSheet.TextBox1
Set fso = CreateObject("scripting.filesystemobject")
fichier = chemin & nom & ".pdf"
ActiveSheet.PrintOut

End Sub

 

[Marina01]

Re : Enregistrement grace à un bouton

Ok j avoue que je connaissais pas du tout, pour cela peux tu traduire le code pour que cela me permette de comprendre? Pour pdfcreator vais l installer si c'est la seule solution. Par contre tas deja essayé cette methode dans le passé ?