transfert de fichier csv

shafou
transfert de fichier csv

Bonjour,

je ne connais pas le VBScript mais je dois modifier une commande dans un classeur Excel.

Sub transfert()
ActiveWorkbook.SaveAs Filename:= _
        "\\lugano\sap\P07_BW\TOR\TW1\AExclure.csv", FileFormat:= _
        xlCSV, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
      
MsgBox ("Votre fichier est bien déposé sur le serveur BW, l'indicateur d'émargement sera rechargé vers 13h.")

      
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
             
End Sub

Le problème c'est que j'ai l'erreur 1004 qui s'affiche Impossible d'accéder au document en lecture seule 'AExclure.csv Pouvez-vous m'aider pourquoi ai-je cette erreur?

D'avance merci

Niroken
Re: transfert de fichier csv

Bonjour,

Rapidement, sans creuser, tu utilises une méthode "saveAs"
ce qui implique vu ton contexte que tu vas probablement
écraser ce fichier csv.

Il doit être en lecture seule donc le moyen c'est de décocher
cette option en faisant clic droit propriétés.

Bonne chance,
Niroken