Sélectionner des feuille et les transformer en PDF
Résolu
WILK642
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 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
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:
- Sélectionner des feuille et les transformer en PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Save as pdf office 2007 - Télécharger - Bureautique
- Selectionner texte sur pdf - Guide
- Comment fusionner des pdf sans logiciel - Guide
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
"ca marche pas trop", mais encore?
peux-tu utiliser les balises de code? https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
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
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