A voir également:
- Impossible d'enregistrer un fichier excel en pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Audacity enregistrer son pc - Guide
2 réponses
Bonsoir,
une piste :
une piste :
Dim Dossier As String, tmpChemin As String, Nom As String Dossier = ThisWorkbook.Path Nom =ThisWorkbook.Name tmpChemin = Dossier Dir (tmpChemin) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tmpChemin & "\" & Nom & ".pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, from:=1, To:=1, _ OpenAfterPublish:=True