Sélectionner des feuille et les transformer en PDF

Résolu
WILK642 Messages postés 6 Statut Membre -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je cherche à faire une macro pour sélectionner tout les feuilles d'un classeur Excel, hormis les feuilles qui portent le nom "Données" et "Relevés". voici la macro que j'ai fais, mais ca marche pas trop.
Merci d'avance pour votre aide.

Sub Selection_Onglets()

Dim MyArray() As String
Dim i As Integer, X As Integer

For i = 1 To Worksheets.Count
If Sheets(i).Name Like "*Données*" Or Sheets(i).Name Like "*Relevés*" Then

Else

ReDim Preserve MyArray(X)
MyArray(X) = Sheets(i).Name
X = X + 1
End If
Next

ThisWorkbook.Worksheets(MyArray).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="monFichier"

MsgBox ("Votre rapport est publié")

Sheets("PG").Select

End Sub

2 réponses

  2.
    WILK642 Messages postés 6 Statut Membre
     
    Bonjour,

    En non faite ca marche pas du tout. Précédemment j'ai déjà fais une macro pour sélectionner les feuilles et les transformer en PDF, mais il y en avait une quinzaine alors j'ai pu utiliser cette dernière. Cependant, dans ce fichiers j'en ai plus de 80, alors pour éviter d'écrire les feuilles que je veux, j'écris que les feuilles que je veux pas.
    Voici la macro que j'ai utilisé précédemment:

    Sub Sélection_pour_publier_le_rapport()

    Dim intChoice As Integer, monFichier As String

    Sheets(Array("PG", "Sommaire", _
    "Partie I", "1.1 Faits marquants", _
    "Partie II", "2.1 Maint préventives", "2.2 Maint correctives", "2.3 Demandes des interventions", "2.4 Astreintes", _
    "Partie III", "3.1 Nettoyage locaux intérieurs", _
    "Partie IV", "4.1 Planning SST", _
    "Partie V", "5.1 Devis et Travaux")).Select
    Sheets("PG").Activate

    'change the display name of the save file dialog
    Application.FileDialog(msoFileDialogSaveAs).Title = _
    "Idemia"
    'make the file dialog visible to the user
    intChoice = Application.FileDialog(msoFileDialogSaveAs).Show
    'determine what choice the user made
    If intChoice <> 0 Then
    'your code here

    End If

    monFichier = [g3]

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=monFichier

    MsgBox ("Votre rapport est publié")

    Sheets("PG").Select

    End Sub
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      merci d'utiliser les balises de code.
      0