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

Définir le dossier d'enregistrement d'un classeur grâce à une cellule

  • Initiateur de la discussion Initiateur de la discussion ipotez
  • 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 !

ipotez

XLDnaute Occasionnel
Salut !

J'ai un dossier PDF qui contient 2 sous dossiers PDF1 et PDF2.

J'ai une macro qui enregistre mon classeur en PDF dans le dossier PDF.

Mon problème est l'aiguillage de l'enregistrement.
Comment modifier mon code pour que :
-le classeur soit enregistré en PDF dans le dossier PDF1 s'il contient "1" dans la cellule A1
-le classeur soit enregistré en PDF dans le dossier PDF2 s'il contient "2" dans la cellule A1

Je pose le code de la macro pdf

Code:
Sub (pdf)
Sheets(Array("2nd Sem.", "1er Sem.")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\PLANNING\PDF\" & Range("i2").Value & ".PDF", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Merci pour votre aide
 
Re : Définir le dossier d'enregistrement d'un classeur grâce à une cellule

Bonsoir,
Code:
Filename:= "C:\PLANNING\PDF" & Range("A1") & "\" & Range("i2").Value & ".PDF"
Peut-être faut-il vérifier que A1 n'est pas vide
A+
kjin
 
Re : Définir le dossier d'enregistrement d'un classeur grâce à une cellule

Parfait !
Merci beaucoup !

Pour la vérif j'imagine qu'il s'agit d'un truc genre if a1<>"" alors go sinon stop mais je ne sais pas l'écrire 😕
 
Re : Définir le dossier d'enregistrement d'un classeur grâce à une cellule

Bonjour,
Il faut surtout vérifier qu' A1 = 1 ou 2
Code:
If Range("A1") = 1 Or Range("A1") = 2 Then
'...
End If
A+
kjin
 
- 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

Réponses
6
Affichages
246
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
315
Réponses
3
Affichages
798
Réponses
10
Affichages
653
Réponses
3
Affichages
931
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…