XL 2019 problème sélection feuille en VBA

[Raoul AGONGBE]

Bonjour chers experts à divers niveaux

J'ai un petit problème au niveau de mon VBA et je ne sais même pas la raison fondamentale...

Pour exporter deux différentes feuilles en PDF, j'ai créé le bouton à chacun deux. Mais bizarrement, les deux boutons répondent à une seule feuille malgré que je leur change de UserForm.

Prière m'apporter vos expertises svp.
Merci

 

[TooFatBoy]

Bonjour,

C'est peut-être bien le "ActiveSheet" qu'il faudrait remplacer par Sheets("le_nom_de_la_feuille_à_exporter_en_PDF") ?

 

[patricktoulon]

bonjour et bienvenu
si tes macros sont lancées a partir d'un module ou de une des deux feuilles c'est celle la qui sera imprimée deux fois
renplace dans tes subs respective "Activesheet" par sheets("le nom de la feuille") et cela dans chaque fonction

maintenant si tu veux imprimer les deux feuille en même temps dans un pdf il faut les sélecté au prealable et

 

[patricktoulon]

re
'feuille ("RECEPTION") en pdf

'feuille ("RECEPTION") en pdf
Function Save_As_pdf_RECEPTION()
    Dim FNAME As String
    FNAME = Mid(ThisWorkbook.Name, 1, InStrRev(ThisWorkbook.Name, ".") - 1) & " " & _
                                                                   Sheets("RECEPTION").[M1] & ".pdf"
    
    Sheets("RECEPTION").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Environ("userprofile") & "\Desktop\" & FNAME, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
End Function

'feuille ("CORRESPONDANTS") en pdf

'feuille ("CORRESPONDANTS") en pdf
Function Save_As_pdf_CORRESPONDANTS()
    Dim FNAME As String
    FNAME = Mid(ThisWorkbook.Name, 1, InStrRev(ThisWorkbook.Name, ".") - 1) & " " & _
                                                                   Sheets("CORRESPONDANTS").[j1] & ".pdf"
    Sheets("CORRESPONDANTS").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Environ("userprofile") & "\Desktop\" & FNAME, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
    
End Function

si tu veux les deux dans un seul pdf

'les deux dans un même pdf
Function save_As_PDF_ThoWSheet()
    FNAME = Mid(ThisWorkbook.Name, 1, InStrRev(ThisWorkbook.Name, ".") - 1) & " " & _
                                                                   Sheets("RECEPTION").[M1] & " " & _
                                                                   Sheets("CORRESPONDANTS").[j1] & ".pdf"
    Worksheets(Array("CORRESPONDANTS", "RECEPTION")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                          Filename:=Environ("userprofile") & "\Desktop\" & FNAME, _
                          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                          IgnorePrintAreas:=False, OpenAfterPublish:=True
End Function

 

[kiki29]

Salut,si curieux,à télécharger puis consulter/adapter à ton contexte : Liste Contributions PDF

 

[Raoul AGONGBE]

Bonjour,

C'est peut-être bien le "ActiveSheet" qu'il faudrait remplacer par Sheets("le_nom_de_la_feuille_à_exporter_en_PDF") ?

Merci

 

[Raoul AGONGBE]

Merci à chacun pour vos expertises apportés. J'ai

re
'feuille ("RECEPTION") en pdf

'feuille ("RECEPTION") en pdf
Function Save_As_pdf_RECEPTION()
    Dim FNAME As String
    FNAME = Mid(ThisWorkbook.Name, 1, InStrRev(ThisWorkbook.Name, ".") - 1) & " " & _
                                                                   Sheets("RECEPTION").[M1] & ".pdf"
   
    Sheets("RECEPTION").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Environ("userprofile") & "\Desktop\" & FNAME, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
End Function

'feuille ("CORRESPONDANTS") en pdf

'feuille ("CORRESPONDANTS") en pdf
Function Save_As_pdf_CORRESPONDANTS()
    Dim FNAME As String
    FNAME = Mid(ThisWorkbook.Name, 1, InStrRev(ThisWorkbook.Name, ".") - 1) & " " & _
                                                                   Sheets("CORRESPONDANTS").[j1] & ".pdf"
    Sheets("CORRESPONDANTS").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Environ("userprofile") & "\Desktop\" & FNAME, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
   
End Function

si tu veux les deux dans un seul pdf

'les deux dans un même pdf
Function save_As_PDF_ThoWSheet()
    FNAME = Mid(ThisWorkbook.Name, 1, InStrRev(ThisWorkbook.Name, ".") - 1) & " " & _
                                                                   Sheets("RECEPTION").[M1] & " " & _
                                                                   Sheets("CORRESPONDANTS").[j1] & ".pdf"
    Worksheets(Array("CORRESPONDANTS", "RECEPTION")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                          Filename:=Environ("userprofile") & "\Desktop\" & FNAME, _
                          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                          IgnorePrintAreas:=False, OpenAfterPublish:=True
End Function

Merci pour votre expertise apporté. Je l'ai appliqué et j'ai parfaitement satisfaction.

 

[Raoul AGONGBE]

Merci à chacun pour vos apports de solution. Elles m'ont donné satisfaction