Discussion :

[sovan]

Bonjour,

Quelqu'un sait comment afficher code retour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objFSO.CopyFolder SauvRep(i) , DestRep(i), True

Je voudrais afficher un message sil y a une erreur dans la copie.

Merci de votre aide.

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Ret
On Error Resume Next
Ret = objFSO.CopyFolder (SauvRep(i) , DestRep(i), True)
If Err Then
        MsgBox "Erreur N°" & Err & vbNewLine & "Description:" & vbNewLine & Err.Description, vbCritical, "Votre attention"
End If

[omen999]

bonjour,
en complément du code de ProgElecT, juste une précision, la méthode CopyFolder ne renvoie pas de valeur
il faut gérer l'objet Err comme indiqué dans l'exemple ci-dessus

[sovan]

Ahh

Merci, je vais tester ça !!

A++