Macro "SI"
a
Bonjour,
J’utilise cette macro :
'Supprimer le dossier du Gestionnaire
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
FS.Deletefolder ThisWorkbook.Path & "\" & NomParfois le dossier "ThisWorkbook.Path & "\" & Nom" n'existe pas et dans se cas un message d'erreur s'affiche
il faudrait donc qu'avant l'application de cette macro il y ai une condition si
SI "ThisWorkbook.Path & "\" & Nom" existe alors
'Supprimer le dossier du Gestionnaire
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
FS.Deletefolder ThisWorkbook.Path & "\" & NomPouvez-vous m'aider à réaliser cela
S’il y a une meilleure solution je suis preneur
Merci d'avance
Alban
Bonjour,
Il y a plusieurs méthodes. Sans voir le code complet, en voici une à essayer
Dim FS
If Err.Number <> 0 Then
Set FS = CreateObject("Scripting.FileSystemObject")
FS.Deletefolder ThisWorkbook.Path & "\" & Nom
Else: MsgBox "le fichier n'existe pas": Exit Sub
End IfSi ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil
Amicalement
a
Merci Dan,
J’ai juste enlevé de ta formule la partie " Else ... "
Car fichier ou pas fichier il fallait que ma macro s'exécute
Merci encore ... bonne journée
Alban