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

[ipotez]

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

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

 

[kjin]

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

Bonsoir,

Filename:= "C:\PLANNING\PDF" & Range("A1") & "\" & Range("i2").Value & ".PDF"

Peut-être faut-il vérifier que A1 n'est pas vide
A+
kjin

 

[ipotez]

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 😕

 

[kjin]

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

If Range("A1") = 1 Or Range("A1") = 2 Then
'...
End If

A+
kjin