Macro pour remplacer un fichier csv

[Anto35200]

Bonjour,

J’ai un fichier en format .csv que j’ai téléchargé sur internet.
J’ai crée une macro commande qui me permet de convertir ce fichier csv en format excel.
A chaque fois que je lance la macro, un message me demande :
« Un fichier nommé…existe déjà à cet emplacement. Voulez-vous le remplacer ? »
Pourtant lorsque je regarde dans l’enregistreur de la macro, elle le remplace déjà.

Comment faire pour faire disparaitre ces messages ?

 'Taux de Change GBP'
    Workbooks.Open Filename:= _
        "\\192.168.4.1\tresorerie\COMMUN\REPORTING\Cours Devises\Cours GBP.csv", Local:=True
    ChDir "\\192.168.4.1\tresorerie\COMMUN\REPORTING\Cours Devises"
    ActiveWorkbook.SaveAs Filename:= _
        "\\192.168.4.1\tresorerie\COMMUN\REPORTING\Cours Devises\Cours GBP.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "\\192.168.4.1\tresorerie\COMMUN\REPORTING\Cours Devises\Cours GBP.xls"
    Cells.Select
    Selection.Copy
    Windows("taux de change.xls").Activate
    Sheets("Cours GBP").Select
    Cells.Select
    ActiveSheet.Paste
    Windows("Cours GBP.xls").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
    Sheets("Taux de change").Select
    
    
End Sub

 

[phlaurent55]

Re : Macro pour remplacer un fichier csv

Bonjour plimosin

Application.DisplayAlerts=False

à+
Philippe

 

[Anto35200]

Re : Macro pour remplacer un fichier csv

Merci à toi, mais je ne vois pas où je dois le mettre ton code, à la fin ?

 

[Anto35200]

Re : Macro pour remplacer un fichier csv

C'est bon, j'ai trouvé ..