XL 2016 Macro - Erreur d'exécution '1004'

[MC88]

Bonjour à tous,

Je suis novice en VBA, je sollicite votre aide sur une erreur que je ne parviens pas à résoudre seule.

J'ai une macro qui bug (erreur 1004, "la méthode select de la classe worksheet a échoué").

Cette macro a pour objet d'éditer en PDF seulement les onglets excel visible et de les fusionner.

ci-dessous la macro (l'erreur apparaît là où j'ai mis le texte en bleu et en gras):

Option Explicit


Private Function FeuilleVide(sNomFeuille As String) As Boolean
FeuilleVide = False
If WorksheetFunction.CountA(Worksheets(sNomFeuille).UsedRange) = 0 And _
Worksheets(sNomFeuille).Shapes.Count = 0 Then
FeuilleVide = True
End If
End Function

Sub FusionPDF()
Dim Ar() As Variant, j As Long
Dim Wsh As Worksheet, sFichier As String, sNom As String

Application.ScreenUpdating = False
For Each Wsh In ThisWorkbook.Worksheets
If Wsh.Visible And FeuilleVide(Wsh.Name) = False Then
ReDim Preserve Ar(j)
Ar(j) = Wsh.Name
j = j + 1
End If
Next Wsh
ThisWorkbook.Sheets(Ar).Select
sNom = ThisWorkbook.Path & "\" & "Fusion.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNom, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ThisWorkbook.Sheets(1).Select
Erase Ar
Application.ScreenUpdating = True
End Sub

 

[fcyspm30]

Bonjour,
Peut-être en mettant activate à la place de select?

 

[MC88]

Bonjour,
Peut-être en mettant activate à la place de select?

après test ça ne fonctionne pas non plus malheureusement