Discussion :

[porki]

à la suite de la discussion se trouvant: http://www.developpez.net/forums/sho...1&goto=newpost
j'ai formulé ceci:

bonjour,

moi par contre j'aimerais que ma fonction SaveAs enregistre sans me poser la question

j'ai un fichier excel que j'ai mis à jour (ajout de donnée).
je l'enregistre 1 première fois avec Save ensuite je dois sauvegarder sous un format .csv mais comme un fichier existe déjà j'ai ce boite de dialogue qui apparaît.
comment l'éviter?
merci

[kirgan]

re,

as-tu essayé la méthode Save?

Code :

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

1
2
 
        ActiveWorkbook.Save

Si ton fichier existe déjà, il est simplement écrasé sans demander plus de précisions, je viens de tester. Par contre, à toi de gérer l'existence ou pas, et de faire un SaveAs si il n'existe pas, puis un Save si existant.

[porki]

re,

as-tu essayé la méthode Save?

Code :

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

1
2
 
        ActiveWorkbook.Save

Si ton fichier existe déjà, il est simplement écrasé sans demander plus de précisions, je viens de tester. Par contre, à toi de gérer l'existence ou pas, et de faire un SaveAs si il n'existe pas, puis un Save si existant.

oui mais moi j'ai un .xls que j'ai modifié, je l'enregiste avec

Code :

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

ActiveWorkbook.Save

ensuite, je dois enregistrer mais sous un autre format de fichier .csv.
je dois utilisé SaveAs mais là, j'ai ce message qui apparaît et que je veux "supprimer"

Code :

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

1
2
ActiveWorkbook.Save
ActiveWorkbook.SaveAs FileName:=dirMeteoXls & fileMeteocsv, FileFormat:=xlCSV, CreateBackup:=False

merci quand-même....

[porki]

la solution

mettre avant la sauvegarde

Code :

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

1
2
 
application.displayAlerts=false

ensuite remettre à

Code :

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

1
2
 
application.displayAlerts=True