Microsoft 365 Comment désélectionner les cellules Excel

[VBA_dev_Anne_Marie]

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 :

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 !

 

[vgendron]

Bonjour

il me semble que pour Deselectionner plusieurs feuilles.. il faut n'en selectionner qu'une seule..
par défaut, il y a toujours UNE feuille selectionnée.. active.

 

[dysorthographie]

Bonjour,
Il te suffit d'en sélectionner qu'une

sheets("NomFeuille").Select

 

[VBA_dev_Anne_Marie]

Merci beaucoup, ça marche très bien !