Msg error

Bonjour,

Je redonne un cours context a mon probleme :

J'ai suivis les conseils des posts de cette discussion pour créer une macro qui convertis les fichiers .xls en .csv.

Lors que je compile mon code j'ai ce msg :

Citation:

---

nomdufichier.csv cannot be accessed. The file may be corrupted, located on a sever that is not responding, or read-only.

---

Je debute dans la programmation et je pense que c'est une erreur type localisation du fichier et droit d'écriture sur le réseau, mais comment faire pour aue ca marche ?

Code test ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub tests() Dim wbExcel As Workbook Dim rep As String Dim OldName, NewName rep = Dir("C:\Users\SanLui\Desktop\*.xls", vbDirectory) Do While (rep <> "") If (GetAttr("C:\Users\SanLui\Desktop\" & rep) And vbDirectory) = vbDirectory Then MsgBox "Répertoire " & rep Else rep1 = Replace(rep, "xls", "csv") Chemin_complet_old = "C:\Users\SanLui\Desktop\" & rep Set wbExcel = Workbooks.Open(Chemin_complet_old) chemin_complet_new = "C:\Users\SanLui\Desktop\csv\" & rep1 wbExcel.SaveAs Filename:= _ chemin_complet_new, FileFormat:=xlCSV, _ CreateBackup:=False wbExcel.Close (False) End If rep = Dir Loop   End Sub

---

Merci d'avance pour ceux qui répondrons !

AG