Sélectionner des feuille et les transformer en PDF [Résolu]

Signaler
Messages postés
6
Date d'inscription
mercredi 30 décembre 2020
Statut
Membre
Dernière intervention
5 mars 2021
-
Messages postés
14493
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
6 mars 2021
-
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

Messages postés
14493
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
6 mars 2021
810
bonjour,
"ca marche pas trop", mais encore?
peux-tu utiliser les balises de code? https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Messages postés
6
Date d'inscription
mercredi 30 décembre 2020
Statut
Membre
Dernière intervention
5 mars 2021

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
Messages postés
14493
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
6 mars 2021
810
merci d'utiliser les balises de code.