Discussion :

[petchy]

bonsoir,

comment faire par macro pour enregistrer un fichier excel en pdf, je voudrais l'enregistrer sur le bureau dans un dossier ,avec pour nom une cellule et la date.

merci
bonne soirée

[XLRATOR]

Bonsoir,

avec pour nom une cellule et la date.

Que voulez-vous dire par une cellule? son adresse ou sa valeur?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="CheminDuDossierDeDestination" & "\" & Sheets("Feuil1").Range("A1").Text & "_" & Date, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Cordialement
Karim

[petchy]

bonjour,
merci Karim pour ta réponse, mais ça ne fonctionne pas
voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\Pascal\Desktop" & "\" & Sheets("Feuil1").Range("A1").Text & "_" & Date, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

merci

[petchy]

voila j'ai modifier ,ça fonctionne mais car il y a toujours un "mais"
Dans le dossier Gestion_NPT j'ai un dossier Factures et c'est dans ce dossier que je voudrais l'enregistrer avec comme nom d'enregistrement un texte dans la cellule A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
nomfich = "C:\Gestion_NPT\Factures_" & Format(Date, "yyyy-mm-dd") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomfich, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

merci

[Marc-L]

Bonjour, bonjour,

mais qu'est-ce donc que ceci : "C:\Gestion_NPT\Factures_" ?‼

Pour rappel : Disque dur:\Dossier\Sous Dossier\Fichier.Extension …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[petchy]

merci à vous ,ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
     nomfich = "C:\Gestion_NPT\Factures\" & Sheets("Feuil1").Range("A1") & Format(Date, "_yyyy-mm-dd") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomfich, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

bon week-end