Compléter un code

[Rubis57]

Bonjour tout le monde,

je cherche à compléter le code ci-dessous. Il sert à archiver les données d’un onglet. Or, je souhaiterai qu’il l’archive uniquement si la cellule B9 n’est pas vide.

Sub Archiver() ' archive en pdf

'je déclare mes variables
Dim Chemin As String

Application.ScreenUpdating = False

'je nomme le dossier et donne le chemin de sauvegarde
Chemin = "P:\Documents\Archives A\"

Sheets("FeuilleA").ExportAsFixedFormat Type:=xlTypexlsx, Filename:= _
Chemin & "Rapport_" & " " & Sheets("FeuilleA").Range("B6").Value & " " & Sheets("FeuilleA").Range("B9").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

End Sub

j’ai essayé avec la ligne if

If Sheets(« FeuilleA »).Range(« B9 ») <> «  » Then

Sheets(« FeuilleA »).ExportAsFixedFormat Type:=xlTypexlsx, Filename:= _
Chemin & « Rapport_ » & " " & Sheets(« FeuilleA »).Range(« B6 »).Value & " " & Sheets(« FeuilleA »).Range(« B9 »).Value & « .pdf », Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

end if

est-ce correct ?

Merci à vous pour votre aide.

Rubis

[Jacquinot_WILL-FREAD]

Bonjour Rubis,
Un fichier d’exemple nous aidera bien.
Afin de tester
Mais d’après ce que vous avez fait, ca devrait fonctionner.

[Rubis57]

Bonjour Will,

Merci pour ton retour.

Alors oui j’ai essayé dans mon fichier réel et cela à l’air de fonctionner. Mais je voulais être sûr et avoir l’avis de vous les experts si je peux laisser comme je le fais.

J’ai préparé un modèle pour comprendre, il suffit juste de modifier le chemin.

A+

Rubis
TEST.xlsm (16,2 Ko)

[Rubis57]

Re,

J’ai essayé en long et large et cela fonctionne.

A une prochaine fois Will et Merci.

Rubis

[Jacquinot_WILL-FREAD]

Parfait,
Je m’excuse, vu que j’ai plus de PC à la maison, j’ai pas pu tester (weekend)

[Rubis57]

Bonjour Will,

pas de soucis. Tout fonctionne.
A bientôt