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