sauvegarder au format PDF Fermé

Question

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

probl&egrave;me excel pat · Answer

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

Sauvegarder au format PDF

1 réponse