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 ?
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 ?
HTML:
'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
