Gestion code retour !

Bonjour,

Quelqu'un sait comment afficher code retour !

Code:

---

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

---

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

Merci de votre aide.

Salut

Code:

---

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

---

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

Ahh

Merci, je vais tester ça !! :ccool:

A++