Bonjour,
Je procède à une mise à jour d'un classeur Excel depuis Access VBA.
Le programme fonctionne parfaitement (sauf avec un SaveAs).
' Déclarations
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open(MyFile)
Set XL_feuille = XL_classeur.Sheets(MySheet)
With XL_feuille
.............
.ActiveWorkbook.Close
.Quit
End With
' Quitter et fermer
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs
Filename:=MyPath & "\2004" &....., etc
je m'aperçois qu'il reste toujours une instance d'Excel.
Comment résoudre ce cas de figure ?
D'avance merci
--
...........................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonjour Eric,
.saveas est enregistrer sous .close sert à fermer Le but n'est pas le même.
Si tu fais .saveas puis .close ?
@+ FxM (pas sûr de son coup)
Eric RENAUD wrote:
Bonjour, Je procède à une mise à jour d'un classeur Excel depuis Access VBA. Le programme fonctionne parfaitement (sauf avec un SaveAs). ' Déclarations Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object
With XL_App Set XL_classeur = .Workbooks.Open(MyFile) Set XL_feuille = XL_classeur.Sheets(MySheet) With XL_feuille ............. .ActiveWorkbook.Close .Quit End With ' Quitter et fermer Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs Filename:=MyPath & "2004" &....., etc je m'aperçois qu'il reste toujours une instance d'Excel. Comment résoudre ce cas de figure ? D'avance merci
Bonjour Eric,
.saveas est enregistrer sous
.close sert à fermer
Le but n'est pas le même.
Si tu fais .saveas puis .close ?
@+
FxM (pas sûr de son coup)
Eric RENAUD wrote:
Bonjour,
Je procède à une mise à jour d'un classeur Excel depuis Access VBA.
Le programme fonctionne parfaitement (sauf avec un SaveAs).
' Déclarations
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open(MyFile)
Set XL_feuille = XL_classeur.Sheets(MySheet)
With XL_feuille
.............
.ActiveWorkbook.Close
.Quit
End With
' Quitter et fermer
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs
Filename:=MyPath & "2004" &....., etc
je m'aperçois qu'il reste toujours une instance d'Excel.
Comment résoudre ce cas de figure ?
D'avance merci
.saveas est enregistrer sous .close sert à fermer Le but n'est pas le même.
Si tu fais .saveas puis .close ?
@+ FxM (pas sûr de son coup)
Eric RENAUD wrote:
Bonjour, Je procède à une mise à jour d'un classeur Excel depuis Access VBA. Le programme fonctionne parfaitement (sauf avec un SaveAs). ' Déclarations Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object
With XL_App Set XL_classeur = .Workbooks.Open(MyFile) Set XL_feuille = XL_classeur.Sheets(MySheet) With XL_feuille ............. .ActiveWorkbook.Close .Quit End With ' Quitter et fermer Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs Filename:=MyPath & "2004" &....., etc je m'aperçois qu'il reste toujours une instance d'Excel. Comment résoudre ce cas de figure ? D'avance merci
michdenis
Bonjour Éric,
En supplément de la réponse de FxM,
Filename:=MyPath & "2004" &....., etc
Le nom d'un fichier ne peut contenir les caractères suivants : /*?>< : "
Salutations!
"Eric RENAUD" a écrit dans le message de news: Bonjour, Je procède à une mise à jour d'un classeur Excel depuis Access VBA. Le programme fonctionne parfaitement (sauf avec un SaveAs). ' Déclarations Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object
With XL_App Set XL_classeur = .Workbooks.Open(MyFile) Set XL_feuille = XL_classeur.Sheets(MySheet) With XL_feuille ............. .ActiveWorkbook.Close .Quit End With ' Quitter et fermer Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs Filename:=MyPath & "2004" &....., etc je m'aperçois qu'il reste toujours une instance d'Excel. Comment résoudre ce cas de figure ? D'avance merci
-- ........................... Bien cordialement Eric Renaud http://www.erenaud.fr.fm/
Bonjour Éric,
En supplément de la réponse de FxM,
Filename:=MyPath & "2004" &....., etc
Le nom d'un fichier ne peut contenir les caractères suivants : /*?>< : "
Salutations!
"Eric RENAUD" <erenaud@normandnet.fr> a écrit dans le message de news:eysTjViGEHA.1884@TK2MSFTNGP11.phx.gbl...
Bonjour,
Je procède à une mise à jour d'un classeur Excel depuis Access VBA.
Le programme fonctionne parfaitement (sauf avec un SaveAs).
' Déclarations
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open(MyFile)
Set XL_feuille = XL_classeur.Sheets(MySheet)
With XL_feuille
.............
.ActiveWorkbook.Close
.Quit
End With
' Quitter et fermer
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs
Filename:=MyPath & "2004" &....., etc
je m'aperçois qu'il reste toujours une instance d'Excel.
Comment résoudre ce cas de figure ?
D'avance merci
--
...........................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/
Le nom d'un fichier ne peut contenir les caractères suivants : /*?>< : "
Salutations!
"Eric RENAUD" a écrit dans le message de news: Bonjour, Je procède à une mise à jour d'un classeur Excel depuis Access VBA. Le programme fonctionne parfaitement (sauf avec un SaveAs). ' Déclarations Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object
With XL_App Set XL_classeur = .Workbooks.Open(MyFile) Set XL_feuille = XL_classeur.Sheets(MySheet) With XL_feuille ............. .ActiveWorkbook.Close .Quit End With ' Quitter et fermer Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs Filename:=MyPath & "2004" &....., etc je m'aperçois qu'il reste toujours une instance d'Excel. Comment résoudre ce cas de figure ? D'avance merci
-- ........................... Bien cordialement Eric Renaud http://www.erenaud.fr.fm/