A voir également:
- Macro vba sauvegarder en PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Enregistrer en pdf - Guide
- Save as pdf - Télécharger - Bureautique
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
6 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
3 mars 2021 à 11:17
3 mars 2021 à 11:17
Bonjour,
comme ceci:
comme ceci:
Option Explicit Sub PDF() Dim Chemin As String, NomFichier As String NomFichier = Range("D21") & ".pdf" With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then ' Clic sur Ok Chemin = "C:\Users\MBH\Desktop\PCAvoriaz2021\Compta2021\factureséditées\" End If End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
Bonjour
Merci de votre réponse mais cela ne fonctionne pas. La facture ne va pas automatiquement dans le bon dossier puis j'ai un message d'erreur .
toute cette partie apparait en jaune :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Merci de votre réponse mais cela ne fonctionne pas. La facture ne va pas automatiquement dans le bon dossier puis j'ai un message d'erreur .
toute cette partie apparait en jaune :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
3 mars 2021 à 16:07
3 mars 2021 à 16:07
et comme cela?
@+ Le Pivert
Sub PDF() Dim Chemin As String, NomFichier As String NomFichier = Range("D21") & ".pdf" Chemin = "C:\Users\MBH\Desktop\PCAvoriaz2021\Compta2021\factureséditées\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
@+ Le Pivert
non toujours pas. j'ai un message d'erreur 1004 et c'est toujours en jaune.
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 3 mars 2021 à 16:53
Modifié le 3 mars 2021 à 16:53
Changer
par
sinon:
NomFichier = Range("D21") & ".pdf"
par
NomFichier = ActiveSheet.Range("D21") & ".pdf"
sinon:
NomFichier = "Essai.pdf"
Pas de changement. Toujours erreur 1004.
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
3 mars 2021 à 18:15
3 mars 2021 à 18:15
Quelle version d'Excel?
Essayer pour voir si le chemin complet est correct:
Essayer pour voir si le chemin complet est correct:
NomFichier = Range("D21") & ".pdf" Chemin = "C:\Users\MBH\Desktop\PCAvoriaz2021\Compta2021\factureséditées\" MsgBox Chemin & NomFichier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'ai essayé le chemin a l'air d'être ok. En fait je travaille chez moi avec une version récente d'excel et le chemin est simplifié mais au boulot j'ai une version bcp plus ancienne avec un chemin plus long (celui de mon exemple précédemment décrit).
ma macro ne fonctionne pas chez moi. demain je fais un essai au travail. Merci de votre aide
ma macro ne fonctionne pas chez moi. demain je fais un essai au travail. Merci de votre aide