Vérifier l'existance d'un dossier avant de générer un fichier

[matthieu2701]

Bonjour,

Je dois générer un fichier à partir d'une macro qui va s'enregistrer dans le dossier du client.

Je souhaite, que si le dossier client n'est pas créé, avoir un msgbox indiquant que le dossier de Nom n'est pas créé.

Cela fait quelques jours que je galère la dessus.

En espérant que vous puissiez m'aider.

Sub ecran() 

Dim WdApp As Object, WdDoc As Object 

With Sheets("Echéancier") 
    Ref = .Range("B1") 
    Nom = .Range("B2") 
     
End With 

Chemin = "Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours" & "\" & Nom & " " & Ref & "" & Nom 

With Sheets("Copie").Range("A1:J170") 
    .Copy 
End With 


'Lancer une instance Word 
Set WdApp = CreateObject("Word.Application") 
'Rendre Word visible 
WdApp.Visible = True 
'Ouvrir le document Word 
Set WdDoc = WdApp.Documents.Open(ThisWorkbook.Path & "" & "Masque.doc") 'indiquer le chemin du fichier modèle 
With WdDoc 
'Copie de la feuille 4 Excel 
    'Sheets(4).Copy 
'Coller la feuille dans Word 
    WdApp.Selection.Paste 
'Annuler le mode couper/copier 
    Application.CutCopyMode = False 
     
   .SaveAs Filename:=Chemin 
    .Close True 
End With 

WdApp.Quit 
Set WdDoc = Nothing 
Set WdApp = Nothing 

ActiveSheet.Shapes("MonBouton2").Visible = True 
Application.OnTime Now + TimeValue("00:00:02"), "EffacerMessage2" 
End Sub 
Sub EffacerMessage2() 
ActiveSheet.Shapes("MonBouton2").Visible = False 
End Sub

Merci par avance.

 

[Pierrot93]

Re : Vérifier l'existance d'un dossier avant de générer un fichier

Bonsoir,

même chose qu'ici, non ?

https://www.excel-downloads.com/threads/verifier-si-le-dossier-existe-avant-de-le-creer.209369/

préférable de rester sur le même fil, plus facile à suivre pour tout le monde...

bonne soirée
@+