Conversion d'un Excel en PDF

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Conversion d'un Excel en PDF

kabutosan

Bonjour a tous,
J'ai cree une petite macro permettant de de convertir une plage donnee d'une feuille excel en pdf; le probleme, c'est qu'une fois la macro activee, je dois donner un nom au fichier pdf cree et specifier un emplacement pour l'enregistrer. Est il possible d'integrer directement dans la macro le nom a donner au pdf cree (qui sera toujours le meme), ainsi que le lieu d'enregistrement?
Merci beaucoup!

Message cité 2 fois

Publicité

jpcheck

Pioupiou

kabutosan a écrit :

ta mcro va en intéresser plus d'un, et moi le premier :pt1cable:
je ne sais pas si VB s'active sur les logiciels type adobe, mais la ligne de code pour sauvegarder un fichier ca sera
with ton_document_pdf 'syntaxe à voir
.SaveAs ="chemin_d'enregistrement"

Soso1981

kabutosan a écrit :

En effet, ton code risque d'en intéresser plus d'un je rencontres d'ailleurs à leur actuel le problème. Alors si tu pouvais me donner quelques pistes sur comment tu as faits ça m'arrangerait.
Merci beaucoup !

Profil supprimé

Oh oh intéressant, quand ce sera finalisé

kabutosan

J'ai trouve..
...comment convertir une plage excel en PDF, en specifiant pour le PDF cree un nom et un dossier de destination.
Pour peu que vous ayez une imprimante PDF, la conversion d'une plage se fait facilement par record macro; mais comme le fichier PDF cree a par defaut le nom du workbook, qu'il est stocke par defaut dans un dossier, il faut, pour intercepter la fenetre 'Save as', copier le fichier cree, le stocker dans le repertoire voulu, et detruire le premier fichier cree...
Il faut introduire des pauses dans le programme et c'est pas simple...
Si ca interesse qqn, je lache le code..

Arjuna

Aircraft Ident.: F-MBSD

sinon, en jouant avec l'objet "WshShell", on peut tout à fait intercepter n'importe quelle fenêtre :

Code :

Option Explicit
Sub test()
Dim wsh As WshShell
Set wsh = New WshShell
wsh.AppActivate "cmd.exe"
wsh.SendKeys "shutdown /s /t 10 /c ""dtc.com"" /f" & vbCrLf
End Sub

Par exemple, tu fous ça dans une macro.
Tu démarre une fenêtre CMD.
Tu lance ta macro.
Et pof, ton PC reboote.

Pkoi ? Simplement parceque l'objet WshShell est capable de retrouver une fenêtre (le paramètre, c'est le titre de la fenêtre) et ensuite on peut jouer avec (ici j'écris une commande pour rebooter la machine)

Arjuna

Aircraft Ident.: F-MBSD

A priori, en combinant tout ça, y'a moyen de moyenner

Arjuna

Aircraft Ident.: F-MBSD

Appelez-moi Dieu :sol:

Marche avec PDF995 :

=> Démarrez la macro, puis lancez une impression PDF avec PDF995

Et hop :sol:

Code :

Sub test2()
Dim wsh As WshShell
Set wsh = New WshShell
Do While Not wsh.AppActivate("Pdf995 Save As" )
DoEvents
Loop
wsh.SendKeys "grosse cacahuète dans la lucarne.pdf" & vbCrLf
End Sub

Message édité par Arjuna le 22-08-2006 à 14:41:51

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Conversion d'un Excel en PDF

Sujets relatifs
[WORD] Publipostage à partir d'Excel	VBA/Excel : Taille de la police et d'une zone de texte
[VBA] conversion ASCII en nombre	Import / Export Excel sous Access
Problème avec Excel	[VB & EXCEL] Problème de récupération de date
Export Excel probleme	[ASP.NET] Export Gridview vers Excel
copier une plage d'un fichier Excel non ouvert vers la feuille en cour	Récupérer nom du fichier Excel en ouverture
Plus de sujets relatifs à : Conversion d'un Excel en PDF

Page générée en 0.071 secondes