Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transformer une feuille en pdf sur excel 2007

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Dju1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

Dju1

XLDnaute Occasionnel
Bonjour, suite à des messages laissés sur le forum j'ai pu arrivé à créer la macro suivante. J'aimerais, pour terminer, que mon enregistrement en pdf sans passer par un printout. Je pense que c'est possible puisque "manuellement" il est possible de publier en pdf. Mais je trouve pas la solution. Merci par avance.

Sub Total()
Dim Chemin1$, Client$, Fichier$, Numfact$
Chemin1 = "C:\Users\Julien\Documents\AE\"
Client = Range("F5")
Numfact = Range("B12")
Fichier = Numfact & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier

Dim num As Integer
Range("B12").Select
num = Range("B12").Value
num = num + 1
Range("b12").Value = num

Sheets("FACTURES").Range("A15:A27,F15:F27,f5").ClearContents
End Sub
 
Trier par date Trier par votes
Re : Transformer une feuille en pdf sur excel 2007

Bonjour,

Dans Excel 2007, il faut utiliser
ActiveSheet.ExportAsFixedFormat ...
Le mieux si tu ne connais pas cette méthode, c'est d'utiliser l'enregistreur de macro en faisant manuellement la manip !

Caillou
 
Vote positif 0 Vote négatif
Re : Transformer une feuille en pdf sur excel 2007

C'est bon j'ai réussi, simplement en remplacant ".xls" par ".pdf" dans la ligne fichier = numfact.
Par contre quand je rouvre mon document après l'avoir enregistrer et quitté je n'ai plus ma macro. Comment je peux faire pour la garder en mémoire?
 
Vote positif 0 Vote négatif
Re : Transformer une feuille en pdf sur excel 2007

Sub Total()

Dim Chemin1$, Client$, Fichier$, Numfact$

Chemin1 = "C:\Users\Julien\Documents\AE\"
Client = Range("E5")
Numfact = Range("B12")
Fichier = Numfact
Sheets("factures").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Client & Fichier & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier

Dim num As Integer
Range("B12").Select
num = Range("B12").Value
num = num + 1
Range("b12").Value = num

Sheets("FACTURES").Range("A15:A27,F15:F27,E5").ClearContents
End Sub

Voici mes dernieres trouvailles mes rien de concrets. En attendant votre aide 😉
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
681
Phil69970
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
A
  • Question Question
Microsoft 365 Enregistrer des factures en format pdf ou image sur Excel par items
Réponses
2
Affichages
908
kiki29
  • Question Question
XL 2019 envoyer un onglet par email en format pdf
Réponses
4
Affichages
1 K
gothc
T
  • Résolu(e)
XL pour MAC création d'un dossier et enregistrement d'un fichier en pdf
Réponses
8
Affichages
2 K
tdenis
T
S
  • Question Question
Microsoft 365 Macro pour Copier une feuille Excel en tant qu'image dans outlook
Réponses
3
Affichages
2 K
fanch55
O
  • Question Question
XL 2016 comment envoyer fichier excel en pièce jointe
Réponses
4
Affichages
1 K
OIiv109
O
S
  • Résolu(e)
XL 2013 Créer un bouton sur une feuille pour Export PDF d'une autre feuille...
Réponses
4
Affichages
2 K
Staple1600
A
  • Question Question
XL 2016 VBA - numérotation automatique facture + sauvegarde en pdf avant de réinitialiser
Réponses
4
Affichages
5 K
chris63*
C
O
  • Résolu(e)
XL 2016 Macro pour enregistrer fichier excel en pdf ern pièce jointe d'un mail
Réponses
3
Affichages
1 K
Lolote83
L
J
  • Question Question
XL pour MAC code à insérer dans mon VBA pour enregistrer et archiver en pdf
Réponses
0
Affichages
1 K
julie13
J
S
  • Question Question
XL 2016 copier les données d'un fichier csv vers une feuille excel
Réponses
0
Affichages
767
Slakhdine
S
O
  • Résolu(e)
Macro enregistrer en pdf feuille excel avec nom d'une cellule contenant formule
2
Réponses
20
Affichages
9 K
Staple1600
H
  • Question Question
XL 2013 bloquer sur cette macro ! une petite aide serait la bienvenue
Réponses
6
Affichages
1 K
HOUDY
H
  • Question Question
XL 2013 modifier code pour enregister en .PDF en plus
Réponses
1
Affichages
981
grisan29
  • Question Question
(résolu par bebere et chti160)modifier ligne de code pour ajouter l'année et mois en cours
2 3
Réponses
40
Affichages
5 K
grisan29
  • Question Question
Excel : Générer PDF en VBA
Réponses
14
Affichages
48 K
Bnj
B
D
  • Question Question
macro pour enregistrer une feuille en pdf
Réponses
8
Affichages
6 K
job75
M
  • Question Question
enregistrerune feuille excel automatiquement en pdf et xls
Réponses
8
Affichages
10 K
Yaloo
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…