Transformer x onglets excel en x pdf

T

titiborregan5

XLDnaute Accro

• 23 Avril 2013

• #2

Re : Transformer x onglets excel en x pdf

Bonjour nat54, le forum,
j'ai fait qqch mais je n'arrive pas à enregistrer le nom du pdf de manière relative.
Sur un fichier excel ok mais pas sur du pdf...
Remplace le chemin par l'endroit où tu veux le sauvegarder puis renomme le nom du pdf!
APrès peut-être que ton logiciel de pdf le fera directement chez toi. Chez moi il prend la date et l'heure.
Si le tien prends le nom du fichier d'origine ça collera!
enfin voilà dis moi si ça t'avance!

Tibo

 

Pièces jointes

• Test_pdf.xlsm

  19.9 KB · Affichages: 42

Dernière édition: 23 Avril 2013

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 23 Avril 2013

• #3

Re : Transformer x onglets excel en x pdf

Bonjour,

Lorsque je clique sur le bouton il me dit que ça ne trouve pas la macro.

je la lance alors via altF8 mais ça me met débogage sur la ligne du nom du pdf
et surtout le fichier n'a plus que l'onglet A3580 sans aucun pdf crée

ps : suis sous 2003 comme indiqué dans le titre

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 23 Avril 2013

• #4

Re : Transformer x onglets excel en x pdf

je la lance alors via altF8 mais ça me met débogage sur la ligne du nom du pdf

Cliquez pour agrandir...

celle qui commence par fichier=?
comment s'appelle ton classeur avec tes données? chez moi test_pdf .
mais si c'est "que ça" mets un nom absolu pour le moment et vois si la suite fonctionne...

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 23 Avril 2013

• #5

Re : Transformer x onglets excel en x pdf

Comme je ne comprends pas le fonctionnement de la macro c'est compliqué
ça debug en gras (même en mettant .xls au lieu de xlsx comme je suis sous excel 2003)
mais pas sûre que mon fichier = soit adapté..

Sub imprimPDF()
Sheets("accueil").Activate
Range("b10").Select
Do While ActiveCell.Offset(1, 0) <> ""
nomfeuille = ActiveCell.Offset(1, 0).Value

Sheets("A" & nomfeuille).Activate
' MsgBox "vous êtes sur la feuille " & nomfeuille
' Sheets("A" & nomfeuille).Select
' ActiveSheet.Buttons.Add(303, 38.25, 75.75, 43.5).Select
Sheets("A" & nomfeuille).Copy
fichier = "drh.pdf"

chemin = "C:\test" 'là où tu veux sauvegarder
MsgBox fichier
ActiveWorkbook.SaveAs Filename:= _
chemin & fichier & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Application.ActivePrinter = "PDFCreator sur Ne00:"
ExecuteExcel4Macro "PRINt"
ActiveWorkbook.Close

' ExecuteExcel4Macro _
' "PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"
Sheets("accueil").Activate
ActiveCell.Offset(1, 0).Select

Loop
End Sub

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 23 Avril 2013

• #6

Re : Transformer x onglets excel en x pdf

Rajoute un \ après test pour avoir chemin="C:\test\"

et enlève le .pdf pour le fichier pour l'instant.
je ne sais pas si ça vient de là mais avoir 2 . dans le nom pas sur que ce soit top!

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 23 Avril 2013

• #7

Re : Transformer x onglets excel en x pdf

re,

même erreur
mais je ne comprends pas à quoi sert cette ligne puisque j'ai l'impression qu'on crée un nouveau fichier excel (.xls)

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 23 Avril 2013

• #8

Re : Transformer x onglets excel en x pdf

Quelle ligne? fichier ou chemin?

sur ton ordi tu as bien un dossier test dans C:\?
Si non, mets un raccourci qui existe, celui du bureau par exemple!

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 23 Avril 2013

• #9

Re : Transformer x onglets excel en x pdf

Bonjour le fil 🙂
Pas sûr que 2003 puisse enregistrer en xlsx, ni avec un format xlOpenXMLWorkbook, même avec l'adaptateur... 😱
Par contre, fait un pdf au nom du fichier de départ et utilises Name pour renommer le fichier 🙂
Bonne suite 🙂

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 23 Avril 2013

• #10

Re : Transformer x onglets excel en x pdf

JNP à dit:

Bonjour le fil 🙂

Par contre, fait un pdf au nom du fichier de départ et utilises Name pour renommer le fichier 🙂
Bonne suite 🙂

Cliquez pour agrandir...

Bonjour,
comment on fait ça? car chez moi c'est un 20130423163815 qui s'affiche (date et heure)... du coup comment le récupérer?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 23 Avril 2013

• #11

Re : Transformer x onglets excel en x pdf

Re,
Je n'utilises pas PDFCreator, mais stocke à ce moment la date et l'heure avant de le créer...
Bon courage 🙂

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 24 Avril 2013

• #12

Re : Transformer x onglets excel en x pdf

re,

je suis larguée dans votre discussion ... 🙁

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 24 Avril 2013

• #13

Re : Transformer x onglets excel en x pdf

N'ayant pas 2003 j'ai du mal à t'aider d'avantage.

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 25 Avril 2013

• #14

Re : Transformer x onglets excel en x pdf

re,

Ok.

Quelqu'un d'autre pourrait prendre le relais ?

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 13 Mai 2013

• #15

Re : Transformer x onglets excel en x pdf

Re,

Personne ? Je sèche complètement ..

 

Vote positif 0 Vote négatif