Discussion :

[leonor]

* Bonjour, *

Depuis access 2003, je prends un fichier excell 2003 pour modele vide, je remplis des celleles et je veux le sauver sous un autre nom
'je n'arrive pas à supprimer le message disant, voulez vous remplacer le fichier existant ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim MonFichier As String
MonFichier = "C:\Production\Gestion.xls"  'fichier modele
 
Dim MonXl As Object
Set MonXl = CreateObject("Excel.Application")
MonXl.Visible = False
MonXl.UserControl = True
MonXl.Workbooks.Open Filename:=MonFichier
 
'code pour écrire dans la feuille....
 
 
'cette partie me pose pb : il y a des cas ou le fichier doit etre crée et des cas ou le fichier doit etre remplacé
MonFichier = "C:\Production\Gestion de production.xls"  'fichier rempli
MonXl.ActiveWorkbook.SaveAs Filename:=MonFichier
MonXl.Application.Quit

j'ai essayé les "MonX1.Application.DisplayAlerts = False" avant le "SaveAs" mais sans résultats

* Merci *

[marot_r]

Une méthode simple serait de supprimer le fichier de destination existant avec

Code :

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

Kill MonFichier

avant de sauvegarder le nouveau.
A+