XL 2019 problème sélection feuille en VBA

Raoul AGONGBE · Jeudi à 15:49

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 · Jeudi à 16:03

Bonjour,

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

patricktoulon · Jeudi à 16:19

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 · Jeudi à 16:31

re
'feuille ("RECEPTION") en pdf

VB:

'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

VB:

'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

VB:

'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 · Jeudi à 17:20

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

Raoul AGONGBE · Hier à 02:33

TooFatBoy à dit:
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 · Hier à 02:46

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

patricktoulon à dit:

re
'feuille ("RECEPTION") en pdf

VB:

'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

VB:

'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

VB:

'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 · Hier à 02:48

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

XL 2019 problème sélection feuille en VBA

Raoul AGONGBE

XLDnaute Nouveau

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Raoul AGONGBE

XLDnaute Nouveau

Raoul AGONGBE

XLDnaute Nouveau

Pièces jointes

Raoul AGONGBE

XLDnaute Nouveau

Pièces jointes

Discussions similaires

XL 2019 problème sélection feuille en VBA

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Nouveau

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency