Bonjour le forum,
Je voudrais savoir s’il est possible de vérifier l’existence ou non d’un répertoire et s’il n’existe pas de le créer. Dans l’extrait du code ci-dessous j’ai besoin de deux répertoires un qui s’appelle « sauvegarde pour SITE » et un autre qui s’appelle « Sauvegarde fichier travail ». Dans le cas où ils existent tout va bien mais si ce n’est pas le cas j’ai un message d’erreur et la macro s'arrête lorsque je lance la sauvegarde. Pour éviter ce « désagrément » est-il possible que mon code vérifie l’existence de ces répertoires et de les créer s’il n’existe pas de façon à ce que le message d’erreur n’apparaisse pas lors de la sauvegarde ?
Sub navette()
Dim sPath As String, sPath1 As String, sFilename As String, sFilename1 As String
Application.ScreenUpdating = False
Position = ActiveCell.Address
'initiation des répertoires et des noms des fichiers à copier.
sPath = "C:\Users\" & Environ("username") & "\Documents\sauvegarde pour SITE \"
sPath1 = "C:\Users\" & Environ("username") & "\Documents\Travail\Sauvegarde fichier travail\"
sFilename = Format(Date, "yyyymmdd") & "_" & Hour(Now()) & "_" & Minute(Now()) & "PLT-AER"
sFilename1 = Format(Date, "yyyymmdd") & "_sauvegarde_de_secours_ PLT-AER" & ".xlsm"
[…………]
Je ne sais pas si j'ai été clair....mais merci par avance à ceux qui pourront m'apporter une réponse.
Cordialement