chercher un graphique feuille excel, imprimer en pdf , enregister dans repertoire 2

Salut Abertaud,

Déja merci pour ton aide car en trouver sur ce sujet est vraiment pas faicile pour moi

Citation:

---

Envoyé par abertaud

pour le point 2, rien n'est sûr mais il est possible que cela soit du au fait que des espaces sont présents dans ton nouveau chemin (Document and settings).

Essaie avec

Code:

---

AutosaveDirectory = Chr(24) & "C:\Documents and Settings\user\Bureau\VBS" & Chr(34)

---

qui est identique à

Code:

---

AutosaveDirectory = """C:\Documents and Settings\user\Bureau\VBS"""

---

---

J'ai repris avec ces poits ci dessus mais ca n'a pas fonctionné. A force de lire sur les forum je pense que c'est du au fait que dans ma procédure a moi je n'ai pas d'objet PDF creator. J'ai assayer de le faire en calquant sur le code recupérer dans le site anglais et en modifiant comme tu as dit mais j'ai des erreurs:

En commentaire en blue le code d'origine et en rouge c'est le modifié

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Set myPDFCreator = CreateObject("clsPDFCreator") 'Set myPDFCreator = New PDFCreator.clsPDFCreator With myPDFCreator If .cStart("/NoProcessingAtStartup") = False Then MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator" Exit Sub End If .cOption("UseAutosave") = 1 .cOption("UseAutosaveDirectory") = 1 .cOption("AutosaveDirectory") = theFileRoot .cOption("AutosaveFilename") = outName .cOption("AutosaveFormat") = 0 ' 0 = PDF .cClearCache End With

---

Ca me retourne ici comme erreur qu'un composant Activex ne peut créer un objet PDFcreator et ca ne reconnais le Exit pres de Sub. Que faire donc pour le créer ?

Ci dessous tu as le bout de code qui changera le nom du document a imprimer

Code:

---

1 2 3 4 5 6

outName = Left('outName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "-" _ '& Application.ActiveSheet.Name & "-" _ '& Format((Now), "HHNN-SS") & Format((Timer() * 100) Mod 100, "00") & ".PDF" , Len(ActiveWorkbook.Name) - 4) & "-" _ & Application.ActiveSheet.Name & "-" _ & Format((Now), "HHNN-SS") & Format((Timer() * 100) Mod 100, "00") & ".PDF"

---

Je ne sais pas par quoi changer ces deux en rouge:

Pour ActiveWorkbook.Name je vais assayer avec WScript.ScriptFullName ou WScript.ScriptName comme tu as dit mais pour Application.ActiveSheet.Name je ne sais pas trop ????????? une proposition

Citation:

---

Envoyé par bourbe

Ca me retourne ici comme erreur qu'un composant Activex ne peut créer un objet PDFcreator et ca ne reconnais le Exit pres de Sub. Que faire donc pour le créer ?

---

ce qui signifie que ta création d'objet ne fonctionne pas. Le nom que tu mets en paramètre de CreateObjet est peut êtr erroné.
Pour le Exit Sub, je mettrai plutot d'instinct "END SUB". Même si j'en suis quasi certain, jte laisse vérifier.

Citation:

---

Envoyé par bourbe

Pour ActiveWorkbook.Name je vais assayer avec WScript.ScriptFullName ou WScript.ScriptName comme tu as dit mais pour Application.ActiveSheet.Name je ne sais pas trop ????????? une proposition

---

Je n'ai pas la réponse la non plus. Mais tu trouveras la solution en utilisant Microsoft Visual basic en faisant Alt+F11 à partir de Excel par exemple (ou access, ou autre)

Comme ca tu pourras refaire le code que tu voudrais modifier pour en observer le comportement. Une fois que tu sauras ce que renvoie ActiveWorkbook.Name et Application.ActiveSheet.Name, tu pourras plus facilement trouver comment les obtenir en VBScript

Bon courage