youguybass
XLDnaute Junior
Bonsoir à tous
Je souhaiterais par le code ci-joint, Vérifier si un dossier existe.
S'il n'existe pas, il faut le créer et enregistrer un PDF à l'intérieur
S'il existe il faut juste enregistrer le pdf
Avec Dir(DosRacine & DosDépot) = "" Then ...
Le code fonctionne quand le dossier n'existe pas, mais par contre il ne fonctionne pas quand le dossier existe, il ne détecte pas que celui-ci existe
Avec Dir(DosRacine & DosDépot) <> "" Then ...
Le code ne fonctionne pas quand le dossier n'existe pas, mais par contre il fonctionne quand le dossier existe.
Dans l'attente de vos retour et merci d'avance également pour le temps passé
Cordialement
Je souhaiterais par le code ci-joint, Vérifier si un dossier existe.
S'il n'existe pas, il faut le créer et enregistrer un PDF à l'intérieur
S'il existe il faut juste enregistrer le pdf
Avec Dir(DosRacine & DosDépot) = "" Then ...
Le code fonctionne quand le dossier n'existe pas, mais par contre il ne fonctionne pas quand le dossier existe, il ne détecte pas que celui-ci existe
Avec Dir(DosRacine & DosDépot) <> "" Then ...
Le code ne fonctionne pas quand le dossier n'existe pas, mais par contre il fonctionne quand le dossier existe.
Dans l'attente de vos retour et merci d'avance également pour le temps passé
Cordialement
VB:
Sub CréatPDFCommande()
Dim NumCom As String, DosDépot As String, DosRacine As String, An%, Fournisseur
Fournisseur = Page17_2Commandes.ComboBox1
NumCom = TextBox26 ' Num Commande
An = Left(Split(NumCom, " ")(1), 4) 'Récupère l'année de la commande
'DosRacine = "I:\Chevalerias\"' // Peut-être à adapter
DosRacine = "D:\Guillaume\Fichiers xls\" ' // Peut-être à adapter
DosDépot = "Commandes " & An ' // Nom du dossier de dépot voulu
MsgBox DosDépot
MsgBox DosRacine & DosDépot
' // On teste si le dossier existe sinon on le crée
If Dir(DosRacine & DosDépot) = "" Then
MsgBox "Ce dossier n'existe pas"
MkDir DosRacine & DosDépot
MsgBox "Création du dossier " & DosDépot
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DosRacine & DosDépot & "\" & NumCom & " _ " & Fournisseur & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub