J'aimerai poser une petite question... Car là, je suis encore sur un
"paradoxe".
Je voudrais faire en sorte que quand un dossier recherché à été trouvé,
un dossier (différent du premier) soit supprimé. J'utilise alors le "fso.deletefolder".
Pourtant, dans la procédure sub, ca ne marche pas :

Sub ShowSubFolders(Folder, recherche)

For Each Subfolder in Folder.SubFolders
On Error Resume Next
If Subfolder.name = recherche Then
ObjShell.Exec CheminWinRar & " a -r " & chr(34) & Subfolder.path & "\" & nomduprojet & ".rar" & chr(34) & " " & chr(34) & RepSource & chr(34)

suppression = enregistrement & "\" & nomduprojet
set fso=createobject("scripting.FileSystemObject")
fso.deletefolder suppression

exit for
Else
ShowSubFolders Subfolder, recherche
End If
Next
End Sub

Alors que dans un programme de suppression de dossier, ca fonctionne !!

dossier = inputbox ("Dossier à supprimer : ","Suppression d'un dossier","C:\")

set fso=createobject("scripting.FileSystemObject")
fso.deletefolder dossier

Quelqu'un pourrait m'aider s'il vous plait?

 Bonsoir


Hier, je t'ai demandé de mettre des msgbox afin de contrôler le contenu des 3 variables.
Dans ta sub, d'où sort ta variable enregistrement ???

jean-marc

non je suis sur de mes variables, cest la premiere chose ke jai vérifié des 100aines de fois !!! Jcomprends pas