Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrer plusieurs feuilles sélectionner en même temps sur UserForm

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jiby
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jiby

XLDnaute Nouveau
Bonjour à tous,

Je suis actuellement en train de faire une macro dans un UserForm.
Le principe est simple :

- si le OptionBouton est cocher et que la ChekBox1 aussi, alors enregistrer la feuil "PROD" en pdf
avec comme nom de fichier la cellule "C12"

- si le OptionBouton est cocher et que la Chekbox2 aussi, alors enregistrer la feuil "FOURNISSEUR" en pdf
avec comme nom de fichier la cellule "F12"

Code: 
Private Sub CommandButton1_Click()
      
If OptionButton1 = True Then
    Dim fichier As String, fichier2 As String
        
        
        If CheckBox1 = True Then
          
            fichier = "Q:\FRGrp004\SERVICE ACHATS\PLAN MECANIQUE SYSTEME\PLANS\" & [C12].Value
            Sheets("PROD").Select
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True

        End If
        
        If CheckBox2 = True Then
    
            fichier2 = "Q:\FRGrp004\SERVICE ACHATS\PLAN MECANIQUE SYSTEME\PLANS\" & [F12].Value
            Sheets("FOURNISSEUR").Select
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier2, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
                                    
        End If
End If
End Sub

Mon problème est que lorsque chekbox1 et chekbox2 sont tous deux cocher il m'enregistre la feuille "PROD" en pdf mais il bug pour la feuille "FOURNISSEUR" en m'indiquant que le fichier n'a pus être enregistrer.

Etant encore débutant en macro, je ne sais pas trop ce qui ne vas pas. Suis-je peut être obliger d'enregistrer les feuille 1 par 1 ?



Merci d'avance pour votre aide,


Jiby
 
Dernière édition:
Trier par date Trier par votes
Re : Enregistrer plusieurs feuilles sélectionner en même temps sur UserForm

Je précise que j'ai regardé les nombreuses discussions existante au sujet des enregistrement pdf mais je n'ai pas trouver mon bonheur, si par hasard j'ai loupé une discussion répondant à mon problème, je m'en excuse par avance.
 
Vote positif 0 Vote négatif
Re : Enregistrer plusieurs feuilles sélectionner en même temps sur UserForm

Bonjour jiby,

en voyant le code, je remarque qu'il manque une instruction End If

à mettre juste avant le End Sub final

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Enregistrer plusieurs feuilles sélectionner en même temps sur UserForm

Bonjour phlaurent,

C'est juste une erreur de copie de mon code, le End If est bien présent, je modifie mon message !

Merci
 
Vote positif 0 Vote négatif
Re : Enregistrer plusieurs feuilles sélectionner en même temps sur UserForm

J'ai testé ton code et il marche très bien. Avec quelque modif vue qu'il n'y avait pas de fichier joint. regarde ça

VB: 
 Private Sub CommandButton1_Click()
      
If OptionButton1 = True Then
    Dim fichier As String, fichier2 As String
        
        
        If CheckBox1 = True Then
          
            fichier = "H:\Mes ducuments\" & [C12].Value
            Sheets(1).Select
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True

        End If
        
        If CheckBox2 = True Then
    
            fichier2 = "H:\Mes ducuments\" & Sheets(1).Range("F12").Value
            Sheets(2).Select
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier2, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
                                    
        End If
End If
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Enregistrer plusieurs feuilles sélectionner en même temps sur UserForm

Salut Pyton,

Ta macro fonctionne parfaitement, il faut effectivement remplacer [F12] par Sheets(1).Range("F12").

Un grand merci pour ton aide !

Jiby
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
213
patricktoulon
T
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
254
cathodique
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
460
Nounours4173
N
S
  • Question Question
XL 2016 Erreur dans fonction VBA
Réponses
2
Affichages
421
sylvanu
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
200
pascal21
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
342
Phil69970
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
400
firecarl
F
S
  • Question Question
XL 2019 enregistrement pdf avec variable et format variable
Réponses
10
Affichages
452
sofmat
S
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
833
Panda79360
P
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
687
job75
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
480
MarineU
M
C
  • Résolu(e)
XL 2021 Ne pas enregistrer la 2 ème feuille dans le pdf
Réponses
1
Affichages
419
Claudinedu13
C
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
614
Phil69970
Capturer et imprimer ou exporter en pdf un userform
Réponses
3
Affichages
238
patricktoulon
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
559
ph.vanne
N
  • Question Question
Autres bouton d'action sous excel
Réponses
6
Affichages
417
wDog66
M
  • Question Question
Microsoft 365 pb enregistrement PDF de plusieurs feuilles d'un classeur excel
2
Réponses
15
Affichages
2 K
MG_000
M
  • Résolu(e)
XL pour MAC Excel vba export pdf sur bureau pour Mac
Réponses
10
Affichages
1 K
Dan
P
  • Résolu(e)
Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom
Réponses
5
Affichages
690
Lolote83
L
G
  • Question Question
Microsoft 365 vba intégrer réf onglet dans code sauvegarde
Réponses
2
Affichages
543
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…