j ai créé une procedure evenementielle qui declenche une macro excel. cette
macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut
arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela
provoque un arret de la macroexcel pour fichier inexistant.. et donc de la
procedure access.
existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant)
pour continuer la procedure?
peut etre quec ela est du ressort du forumexcel 2000??
je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object
Set XL_APP = CreateObject("Excel.Application")
XL_APP.Visible = True
XL_APP.Workbooks.Open ("U:\Fregate\MacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt1")
XL_APP.ActiveWorkbook.Save
XL_APP.ActiveWorkbook.Close
XL_APP.Workbooks.Open ("U:\Fregate\MacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt2")
XL_APP.ActiveWorkbook.Save
XL_APP.ActiveWorkbook.Close
XL_APP.Quit
Set XL_APP = Nothing
MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate
Mensuels avant Import"
--
Merci.
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
Raymond [mvp]
Bonjour.
le test ne peut être fait que sous excel et non dans ta procédure access, car tu ne maîtrise pas le contenu de la macro avec access.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" a écrit dans le message de news:
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel. cette macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela provoque un arret de la macroexcel pour fichier inexistant.. et donc de la procedure access. existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant) pour continuer la procedure? peut etre quec ela est du ressort du forumexcel 2000?? je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object Set XL_APP = CreateObject("Excel.Application") XL_APP.Visible = True XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt1") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt2") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Quit Set XL_APP = Nothing MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate Mensuels avant Import" -- Merci.
ALF
Bonjour.
le test ne peut être fait que sous excel et non dans ta procédure access,
car tu ne maîtrise pas le contenu de la macro avec access.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" <ALF@discussions.microsoft.com> a écrit dans le message de news:
13C94B57-2788-41CE-8F62-43F78CC013FC@microsoft.com...
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel.
cette
macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut
arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela
provoque un arret de la macroexcel pour fichier inexistant.. et donc de la
procedure access.
existe t il un moyen d eviter cet arret (en ignorant le fichier
inexistant)
pour continuer la procedure?
peut etre quec ela est du ressort du forumexcel 2000??
je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object
Set XL_APP = CreateObject("Excel.Application")
XL_APP.Visible = True
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt1")
XL_APP.ActiveWorkbook.Save
XL_APP.ActiveWorkbook.Close
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt2")
XL_APP.ActiveWorkbook.Save
XL_APP.ActiveWorkbook.Close
XL_APP.Quit
Set XL_APP = Nothing
MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate
Mensuels avant Import"
--
Merci.
le test ne peut être fait que sous excel et non dans ta procédure access, car tu ne maîtrise pas le contenu de la macro avec access.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" a écrit dans le message de news:
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel. cette macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela provoque un arret de la macroexcel pour fichier inexistant.. et donc de la procedure access. existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant) pour continuer la procedure? peut etre quec ela est du ressort du forumexcel 2000?? je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object Set XL_APP = CreateObject("Excel.Application") XL_APP.Visible = True XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt1") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt2") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Quit Set XL_APP = Nothing MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate Mensuels avant Import" -- Merci.
ALF
Pierre CFI [mvp]
moi y en avoir répondu sur excel
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Raymond [mvp]" a écrit dans le message de news: %
Bonjour.
le test ne peut être fait que sous excel et non dans ta procédure access, car tu ne maîtrise pas le contenu de la macro avec access.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" a écrit dans le message de news:
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel. cette macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela provoque un arret de la macroexcel pour fichier inexistant.. et donc de la procedure access. existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant) pour continuer la procedure? peut etre quec ela est du ressort du forumexcel 2000?? je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object Set XL_APP = CreateObject("Excel.Application") XL_APP.Visible = True XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt1") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt2") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Quit Set XL_APP = Nothing MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate Mensuels avant Import" -- Merci.
ALF
moi y en avoir répondu sur excel
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de news: %23vuIGOnSFHA.248@TK2MSFTNGP15.phx.gbl...
Bonjour.
le test ne peut être fait que sous excel et non dans ta procédure access, car tu ne maîtrise pas le contenu de la macro avec
access.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" <ALF@discussions.microsoft.com> a écrit dans le message de news: 13C94B57-2788-41CE-8F62-43F78CC013FC@microsoft.com...
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel. cette
macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut
arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela
provoque un arret de la macroexcel pour fichier inexistant.. et donc de la
procedure access.
existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant)
pour continuer la procedure?
peut etre quec ela est du ressort du forumexcel 2000??
je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object
Set XL_APP = CreateObject("Excel.Application")
XL_APP.Visible = True
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt1")
XL_APP.ActiveWorkbook.Save
XL_APP.ActiveWorkbook.Close
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt2")
XL_APP.ActiveWorkbook.Save
XL_APP.ActiveWorkbook.Close
XL_APP.Quit
Set XL_APP = Nothing
MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate
Mensuels avant Import"
--
Merci.
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Raymond [mvp]" a écrit dans le message de news: %
Bonjour.
le test ne peut être fait que sous excel et non dans ta procédure access, car tu ne maîtrise pas le contenu de la macro avec access.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" a écrit dans le message de news:
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel. cette macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela provoque un arret de la macroexcel pour fichier inexistant.. et donc de la procedure access. existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant) pour continuer la procedure? peut etre quec ela est du ressort du forumexcel 2000?? je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object Set XL_APP = CreateObject("Excel.Application") XL_APP.Visible = True XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt1") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt2") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Quit Set XL_APP = Nothing MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate Mensuels avant Import" -- Merci.
ALF
ALF
merci a vous deux. a+ -- ALF
moi y en avoir répondu sur excel
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Raymond [mvp]" a écrit dans le message de news: %
Bonjour.
le test ne peut être fait que sous excel et non dans ta procédure access, car tu ne maîtrise pas le contenu de la macro avec access.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" a écrit dans le message de news:
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel. cette macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela provoque un arret de la macroexcel pour fichier inexistant.. et donc de la procedure access. existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant) pour continuer la procedure? peut etre quec ela est du ressort du forumexcel 2000?? je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object Set XL_APP = CreateObject("Excel.Application") XL_APP.Visible = True XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt1") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt2") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Quit Set XL_APP = Nothing MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate Mensuels avant Import" -- Merci.
ALF
merci a vous deux. a+
--
ALF
moi y en avoir répondu sur excel
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de news: %23vuIGOnSFHA.248@TK2MSFTNGP15.phx.gbl...
Bonjour.
le test ne peut être fait que sous excel et non dans ta procédure access, car tu ne maîtrise pas le contenu de la macro avec
access.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" <ALF@discussions.microsoft.com> a écrit dans le message de news: 13C94B57-2788-41CE-8F62-43F78CC013FC@microsoft.com...
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel. cette
macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut
arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela
provoque un arret de la macroexcel pour fichier inexistant.. et donc de la
procedure access.
existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant)
pour continuer la procedure?
peut etre quec ela est du ressort du forumexcel 2000??
je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object
Set XL_APP = CreateObject("Excel.Application")
XL_APP.Visible = True
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt1")
XL_APP.ActiveWorkbook.Save
XL_APP.ActiveWorkbook.Close
XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls")
XL_APP.Run ("MacroRE5txt2")
XL_APP.ActiveWorkbook.Save
XL_APP.ActiveWorkbook.Close
XL_APP.Quit
Set XL_APP = Nothing
MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate
Mensuels avant Import"
--
Merci.
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net
"Raymond [mvp]" a écrit dans le message de news: %
Bonjour.
le test ne peut être fait que sous excel et non dans ta procédure access, car tu ne maîtrise pas le contenu de la macro avec access.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ALF" a écrit dans le message de news:
bonjour,
j ai créé une procedure evenementielle qui declenche une macro excel. cette macro excel fait une mise en forme de 60 fichiers excel mensuels. il peut arriver que le nombre de fichiers soit inferieur a 60.;dans ce cas cela provoque un arret de la macroexcel pour fichier inexistant.. et donc de la procedure access. existe t il un moyen d eviter cet arret (en ignorant le fichier inexistant) pour continuer la procedure? peut etre quec ela est du ressort du forumexcel 2000?? je vous laisse ci joint la procedure...
Private Sub MIS_EN_FORME_DblClick(Cancel As Integer)
Dim XL_APP As Object Set XL_APP = CreateObject("Excel.Application") XL_APP.Visible = True XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt1") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Workbooks.Open ("U:FregateMacroRE5txt.xls") XL_APP.Run ("MacroRE5txt2") XL_APP.ActiveWorkbook.Save XL_APP.ActiveWorkbook.Close XL_APP.Quit Set XL_APP = Nothing MsgBox "TRAITEMENT TERMINE", vbInformation, "Mis en Forme Fichiers Fregate Mensuels avant Import" -- Merci.
