Discussion :

[abdelhamidem]

Bonjour,

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

Code :

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

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 :

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é.

[AlainTech]

Essaye d'ajouter

Code :

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

Msgbox chemin_complet_new

juste après

Code :

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

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

[abdelhamidem]

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.

[AlainTech]

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?