Sauvegarder au format PDF

problème excel pat -
problème excel pat - 7 juin 2017 à 08:31

Bonjour,

Je suis débutant et je ne parvient pas a faire une chose qui semble très simple : sauvegarder mon fichier excel en format PDF avec une plage de cellule définie (B1 --> AM50) et que lorsque mon fichier s'enregistre il porte le nom de plusieur cellule.

Alors voici ce que j'ai fait qui fonctionne très bien mais ca n'enregistre pas au format PDF et la plage de cellule n'est pas définie.

Dim ret As Integer
ret = MsgBox("Voulez vous enregistrer le fichier", vbYesNo)
If ret = vbNo Then
Exit Sub
End If

ActiveWorkbook.Save
'enregistre le mois en cours

Dim mydate As Date
myname = Worksheets("plan formation").Range("D4")
mydate = Worksheets("plan formation").Range("D3")
mymonth = Format(mydate, "mm")
myfile = Year(mydate) & " " & mymonth & " plan formation" & " " & myname
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile

Merci d'avance pour votre aide

Afficher la suite

A voir également:

Sauvegarder au format PDF
Lire le coran en français pdf - Télécharger - Histoire & Religion
Format epub - Guide
Format factory - Télécharger - Conversion & Codecs
Hp usb disk storage format tool - Télécharger - Stockage
Format apfs - Guide

1 réponse

Réponse 1 / 1

problème excel pat

Oh oh j'ai parler un peu vite je vien de réussir a le faire... je le poste pour ceux a qui ca pourrait servir

WS_Count = ActiveWorkbook.Worksheets.Count

For I = 1 To WS_Count
ActiveWorkbook.Worksheets(I).PageSetup.PrintArea = "$B$1:$AM$50"
Next

Dim mydate As Date
myname = Worksheets("plan formation").Range("D4")
mydate = Worksheets("plan formation").Range("D3")
mymonth = Format(mydate, "mm")
myfile = Year(mydate) & " " & mymonth & " plan formation" & " " & myname

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & myfile _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Votre réponse