Microsoft 365 Comment désélectionner les cellules Excel

MarieParis

XLDnaute Occasionnel
Bonjour,

Je sélectionne les feuilles Excel avant de les exporter au format pdf.
Je voudrais ensuite désélectionner ces feuilles, mais je n'arrive pas à trouver la commende :
Sheets(Array("Page_Explicative", "1 - Bordereau de transfert", "Page_5")).Selection.Unselect ne marche pas.

Voici mon code :
VB:
Sub Fichier_pdf()
    Dim sRep As String
    Dim sFilename As String
    Dim LHeure As String
    Dim LaDate As String
    Dim Nom As String

   LHeure = Format(Time, "HMS")
   LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
   Nom = "Création du bordereau le"
   With ActiveSheet.PageSetup
    .LeftFooter = ""
   .CenterFooter = ""
   .RightFooter = ""
    End With

    Sheets(Array("Page_Explicative", "1 - Bordereau de transfert", "Page_5")).Select
    sRep = ThisWorkbook.Path
    sFilename = Nom & " " & LaDate & " " & LHeure & ".pdf"
    

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & "\" & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    
' Message de confirmation
MsgBox "Création du fichier PDF a été effectuée", Title:="Mon document"

End Sub

Merci pour votre aide !
 

Discussions similaires

Réponses
13
Affichages
2 K
Haut Bas