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 23473 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 - 23 févr. 2021 à 15:06
yg_be Messages postés 23473 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 - 23 févr. 2021 à 15:06
A voir également:
- Sélectionner des feuille et les transformer en PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Enregistrer en pdf - Guide
- Save as pdf - Télécharger - Bureautique
- Sélectionner texte pdf - Guide
- Comment fusionner des pdf sans logiciel - Guide
2 réponses
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
Ambassadeur
1 568
23 févr. 2021 à 13:57
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
"ca marche pas trop", mais encore?
peux-tu utiliser les balises de code? https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
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
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
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
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
1 568
23 févr. 2021 à 15:06
23 févr. 2021 à 15:06
merci d'utiliser les balises de code.