Sauvegarder au format PDF

problème excel pat -  
 problème excel pat -
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

  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
    0