momo360
Messages postés2Date d'inscriptionmercredi 31 décembre 2008StatutMembreDernière intervention14 mars 2009
-
14 mars 2009 à 10:37
momo360
Messages postés2Date d'inscriptionmercredi 31 décembre 2008StatutMembreDernière intervention14 mars 2009
-
14 mars 2009 à 18:47
Bonjour,
Je suis tout nouveau sur ce forum est vient appeler à l'aide. Après une semaine de recherche je n'arrive tjs pas a résoudre mon problème.
J'ai une macro exel (fichier1) qui ouvre un autre fichier exel (fichier2), qui le modifie. Ces modifications se font en arriere plan (fenêtre non visible). Je veux ensuite enregistrer le fichier et quiter. Mon problème est que je n'arrive pas a enregistrer. Si je zape l'étape enregistrer et que je laisse le "quitter", il me met la fenêtre courante "voulez vous enregistrer......". Quand je repond "oui " à cette fenêtre, il enregistre mes modifications correctement et me ferme le fichier
Je voudrez donc qu'il zape cette étape et qu'il m'enregistre directement.
Voici mon code qui est contenu dans un module du fichier1
Public obj As Excel.Application
Sub ouvrire()
Set obj = CreateObject("Excel.Application")
strFichier = "C:\Documents and Settings\user\Mes documents\fichier2.xls"
obj.Workbooks.Open (strFichier)
obj.Visible = False
end sub
Sub EnregistrerFermer()
'Ligne qui doit enregistrer
obj.Quit ou obj.Workbooks.Close
end sub
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 14 mars 2009 à 13:06
Bonjour ,
Etant donné que tu modifies le fichier2 , il faut l'enregistrer
avant de le fermer.
Tu peux ecrire:
Workbooks("fichier2.xls").Close savechanges:=True
Bonne journée