Bonjour,
j'ai un souci sur l'impression PDF d'un fichier Excel. Dans la macro ci dessous, mon souci intervient sur la ligne Sheets(Array("conso cpte résultat", Ar)).Select. Si j'écris Sheets(Ar).Select , le PDF, avec l'ensemble des feuilles sélectionnées dans Ar, se forme. Si à contrario, j'écris Sheets(Array("conso cpte résultat", "BL produit)).Select , cela fonctionne aussi, la macro sélectionne bien les deux feuilles nommées
Par contre, cela ne fonctionne pas tel qu'écrit dans le code ci dessous. Ou plutôt le PDF se crée, mais seulement avec la feuille conso cpte résultat.
Je n'arrive pas à comprendre pourquoi ça ne fonctionne pas
Merci pour votre aide
j'ai un souci sur l'impression PDF d'un fichier Excel. Dans la macro ci dessous, mon souci intervient sur la ligne Sheets(Array("conso cpte résultat", Ar)).Select. Si j'écris Sheets(Ar).Select , le PDF, avec l'ensemble des feuilles sélectionnées dans Ar, se forme. Si à contrario, j'écris Sheets(Array("conso cpte résultat", "BL produit)).Select , cela fonctionne aussi, la macro sélectionne bien les deux feuilles nommées
Par contre, cela ne fonctionne pas tel qu'écrit dans le code ci dessous. Ou plutôt le PDF se crée, mais seulement avec la feuille conso cpte résultat.
Je n'arrive pas à comprendre pourquoi ça ne fonctionne pas
VB:
Sub pdf()
Dim chemin As String
Dim sNomFichierPDF As String
Dim nom As String
Dim Cpt As Integer
Dim Ws As Worksheet
Dim J As Long
Dim Ar() As String
nom = ActiveWorkbook.Name
sNomFichierPDF = ThisWorkbook.Path & "\" & nom
Cpt = 0
For J = 3 To Sheets("Paramétrage").Range("A" & Rows.Count).End(xlUp).Row
' Boucle sur les feuilles du classeur
For Each Ws In Worksheets
'Elimination de la feuille une considérée comme interface ici
If Ws.Name = Sheets("Paramétrage").Range("A" & J) Then
Ws.Select
If Ws.Cells(529, 12) <> 0 Then
ReDim Preserve Ar(Cpt)
Ar(Cpt) = Sheets("Paramétrage").Range("A" & J).Value
Cpt = Cpt + 1
End If
End If
Next Ws
Next J
Sheets(Array("conso cpte résultat", Ar)).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sNomFichierPDF & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End SubMerci pour votre aide