Sujet Précédent Sujet Suivant

Sélectionner des feuille et les transformer en PDF

Résolu/Fermé
WILK642 Messages postés 6 Date d'inscription mercredi 30 décembre 2020 Statut Membre Dernière intervention 5 mars 2021 - 23 févr. 2021 à 13:35
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 23 févr. 2021 à 15:06
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
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
23 févr. 2021 à 13:57
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
0
Réponse 2 / 2
WILK642 Messages postés 6 Date d'inscription mercredi 30 décembre 2020 Statut Membre Dernière intervention 5 mars 2021
23 févr. 2021 à 14:55
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
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
23 févr. 2021 à 15:06
merci d'utiliser les balises de code.
0