Bonjour le Forum, bonjour à tous,
Voilà, j'ai une macro qui crée un repertoire sous c:\, y copie un certain nombre de fichier et traite ces fichiers.
Je souhaiterai à la fin de l'exécution de la macro, une fois que tous les fichiers on été traités (puis refermés) supprimer ce repertoire.
Si je le fais manuellement, je peux supprimer ce répertoire sans problème, en revanche, si je le fais par macro il me dit que je n'ai pas accès à ce répertoire pour sa suppression.
Je suppose que pour la macro, ce répertoire est "en cours d'utilisation", mais je ne sais pas comment passer outre.
Ci-joint un extract de la macro ( en espérant que cela suffise à illustrer mon propos)
L'exécution bloque au RmDIr...
Je vous remercie pour votre aide
NeMoS
Voilà, j'ai une macro qui crée un repertoire sous c:\, y copie un certain nombre de fichier et traite ces fichiers.
Je souhaiterai à la fin de l'exécution de la macro, une fois que tous les fichiers on été traités (puis refermés) supprimer ce repertoire.
Si je le fais manuellement, je peux supprimer ce répertoire sans problème, en revanche, si je le fais par macro il me dit que je n'ai pas accès à ce répertoire pour sa suppression.
Je suppose que pour la macro, ce répertoire est "en cours d'utilisation", mais je ne sais pas comment passer outre.
Ci-joint un extract de la macro ( en espérant que cela suffise à illustrer mon propos)
L'exécution bloque au RmDIr...
Code:
MkDir "C:\SkillMgmtTemp\"
chemin1 = "C:\SkillMgmtTemp\"
ChDir chemin1
monfichier = Dir(chemin1 & "\" & "*.xls")
While monfichier <> ""
Set wb = Workbooks.Open(chemin1 & "\" & monfichier)
monfichier = Dir()
' ici la macro qui traite les fichiers
Application.CutCopyMode = False
'on ferme tous les fichiers sauf le global sans sauvegarder aucune modification
wb.Close SaveChanges:=False
Set wb = Nothing
'on efface le repertoire temporaire créer sous C
Wend
'chdir chemin1 & "\"
'RmDir chemin1 & "\"
' .....
End Sub
Je vous remercie pour votre aide
NeMoS
Dernière édition: