Sauvegarder au format PDF

Fermé
problème excel pat - Modifié le 7 juin 2017 à 08:21
 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

1 réponse

problème excel pat
7 juin 2017 à 08:31
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
0