[VBA-E] macro conversion excel vers csv

Bonjour,

J'ai copié ce que vous avez ecrit dans cette discussion pour bricoler la macro suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub xls_to_csv() Dim rep As String Dim OldName, NewName Dim monclasseur As Workbook Set monclasseur = ActiveWorkbook   chemin_complet_new = "%HOMEPATH%\%USERNAME%\Test1.csv"   monclasseur.SaveAs Filename:= _ chemin_complet_new, FileFormat:=xlCSV, _ CreateBackup:=False   End Sub

---

Mais à l'execution j'ai un message qui dit :

Citation:

---

Impossible d’accéder à ‘Test1.csv’. Le fichier peut-être en lecture seule, ou vous essayez peut-être d’accéder à un emplacement en lecture seule. Il est également possible que le serveur sur lequel est enregistré le document ne répond pas."

---

Ce document est sur mon disque dur. Il n'est ni protégé en écriture, ni caché.

Essaye d'ajouter

Code:

---

Msgbox chemin_complet_new

---

juste après

Code:

---

chemin_complet_new = "%HOMEPATH%\%USERNAME%\Test1.csv"

---

Bonjour,

Ca ne change pas grand chose, à part afficher une fenetre de dialogue supplémentaire pour m'informer de ce qui se passe (En fait une 1ere fenetre m'affiche "%HOMEPATH% etc..." avec un bouton OK, puis la 2eme fenetre d'erreur apparait comme d'habitude)

Je me rends compte que tous mes dossiers et fichiers sont en lecture seule (coche grisée). Quand j'enleve la coche, et que j'applique... WinXp semble accepter la manoeuvre. Mais si je vérifie juste apres ce qu'il en est, eh bien la coche est toujours là.

Le probleme vient de chez moi apparement.

J'ai fait en sorte que le fichier soit enregistré directement à la racine C:\ et ca marche.

Citation:

---

Envoyé par abdelhamidem

En fait une 1ere fenetre m'affiche "%HOMEPATH% etc..." avec un bouton OK,

---

C'est là où je voulais en venir.

Ton %HOMEPATH% n'est pas interprété.

Dis-moi quel est le chemin réel que tu cherches à atteindre. Est-il en local (sur le disque dur) ou en réseau?