export d'un tableau au format PDF

[letroubadour]

Bonsoir

je cherche une macro qui me permettrait d'enregistrer une feuille (essai) dans un répertoire quelconque (essai 2) au format PDF

merci

 

[youky(BJ)]

Re : export d'un tableau au format PDF

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

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

 

[letroubadour]

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

 

[youky(BJ)]

Re : export d'un tableau au format PDF

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

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

 

[letroubadour]

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

 

[youky(BJ)]

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

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)

 

[letroubadour]

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

 

[Staple1600]

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?

 

[letroubadour]

Re : export d'un tableau au format PDF

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

merci quand même

RAPHAEL

 

[Staple1600]

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.

 

[letroubadour]

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

 

[JCGL]

Re : export d'un tableau au format PDF

Bonjour à tous,

Peux-tu essayer ceci :

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

 

[Staple1600]

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)

 

[letroubadour]

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

 

[Staple1600]

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.