export d'un tableau au format PDF

youky(BJ)

XLDnaute Barbatruc

• 11 Décembre 2012

• #2

Re : export d'un tableau au format PDF

Bonsoir letroubadour,
Voici un petit exemple, change selon tes besoins

Code:

dim chemin,num,tx
chemin = ThisWorkbook.Path
num = Feuil9.[D3] 'nom du pdf
'Feuil9 est la feuille à envoyer
Feuil9.Copy
tx = ActiveWorkbook.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\"  & num & ".pdf"
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\" & DF & "_" & ComboBox1 & num & ".pdf"
ActiveWorkbook.Close (False)

Bruno

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 11 Décembre 2012

• #3

Re : export d'un tableau au format PDF

Merci pour ta réponse rapide youky , mais je comprends pas tout , désolé

peux tu ma la réécrire avec la feuille = Feuil9 et le répertoire d'enregistrement = H:\tableau de travail , nom du fichier pdf = 01


merci

 

Dernière édition: 11 Décembre 2012

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 11 Décembre 2012

• #4

Re : export d'un tableau au format PDF

Re
Faut pas avoir peur de modifier le code ou même aller bugger!!

Code:

dim chemin,nom
chemin =" H:\tableau de travail\"
nom = "01" 'nom du pdf
Feuil9.Copy 'Feuil9 est la feuille à envoyer
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & num & ".pdf"
ActiveWorkbook.Close (False)[FONT=monospace

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 14 Décembre 2012

• #5

Re : export d'un tableau au format PDF

bonsoir

j'ai essayé mais j'ai une erreur de compilation ou de syntaxe sur la dernière ligne

merci

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 14 Décembre 2012

• #6

Re : export d'un tableau au format PDF

Bonsoir,
Une erreur de copie s'est glissé dans la fin de la macro.
Voici rectifié
Bruno

Code:

dim chemin,nom
chemin =" H:\tableau de travail\"
nom = "01" 'nom du pdf
Feuil9.Copy 'Feuil9 est la feuille à envoyer
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & num & ".pdf"
ActiveWorkbook.Close (False)

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 15 Décembre 2012

• #7

Re : export d'un tableau au format PDF

Bonjour

lorsque je lance la macro , ca m'ouvre un autre classeur (ça je ne souhaite pas )et ça bloque sur l'avant dernière ligne

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & num & ".pdf"

j'ai essayé en remplacant le "num" par "nom" mais ca marche toujours pas , je suis bloqué


merci

RAPHAEL

 

Dernière édition: 15 Décembre 2012

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2012

• #8

Re : export d'un tableau au format PDF

Bonjour à tous

letroubadour
Ajoute cette ligne pour tester
Msgbox chemin & num & ".pdf"
Qu'est ce qui s'affiche?

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 15 Décembre 2012

• #9

Re : export d'un tableau au format PDF

toujours pareil même en joutant la ligne précédente

merci quand même

RAPHAEL

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2012

• #10

Re : export d'un tableau au format PDF

Re


Je t'ai demandé qu'est ce qui s'affiche
C'est pour savoir si ton chemin (ou path) est bon

PS: Quand un code bugge on peut utiliser une MsgBox pour identifier l'erreur
C'est que te proposait mon précédent message.

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 15 Décembre 2012

• #11

Re : export d'un tableau au format PDF

ça ne me marque rien , juste la fenêtre du debloqeur, ce qui me gêne égalemnet c'est que ça ouvre la même feuille dans un autre classeur .

merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Décembre 2012

• #12

Re : export d'un tableau au format PDF

Bonjour à tous,

Peux-tu essayer ceci :

VB:

Option Explicit


Sub PDF()
Dim Chemin As String
Chemin = "H:\tableau de travail\"
Feuil9.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "01.pdf"
End Sub

A + à tous

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2012

• #13

Re : export d'un tableau au format PDF

Re


Donc ton chemin doit être erroné
Essaies comme ceci à tout hasard
dim chemin$,nom$
chemin ="H:\tableau de travail\"
nom = "01.pdf" 'nom du pdf
Feuil9.Copy 'Feuil9 est la feuille à envoyer
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nom
ActiveWorkbook.Close False

EDITION: Bonjour JCGL (même intuition) 😉

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 15 Décembre 2012

• #14

Re : export d'un tableau au format PDF

le code de JCGL fonctionne si je le mets tel quel mais si je change la feuille 9 pour mettre la feuille P01 ça ne fonctionne plus

Sub PDF()
Dim Chemin As String
Chemin = "H:\tableau de travail\"
Feuil9.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "01.pdf"
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2012

• #15

Re : export d'un tableau au format PDF

Re

Ton code utilisé est-il celui-ci?
Sub PDF()
Dim Chemin As String
Chemin = "H:\tableau de travail\"
Sheets("P01").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "01.pdf"
End Sub

Ta feuille se nomme bien P01 ou c'est son codename?

PS: Tu remarqueras que JCGL et moi avions supprimé l'espace dans Chemin (et qui était présent dans le code de youki)
C'est sans doute cet espace qui posait problème au départ.

 

Dernière édition: 15 Décembre 2012

Vote positif 0 Vote négatif