Bonjour,
J'ai créé une macro sous excel qui met en forme un fichier.
Ce fichier Excel est généré en automatique par Access.
Je voudrais stocker ma macro soit sur ma base access soit autrement (macro
complementaire ?) afin qu'access me crée le fichier excel et lance ma macro
Excel aussitot après.
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
Michel_D
Bonjour,
Essaye en adaptant avec ce code :
Dim oExeE As Object, oXls As Object Dim sXls1 As String, sXls2 As String On Error Resume Next
sXls1 = "Ton fichier Excel qui contient la macro.xls" sXls2 = "Ton fichier Excel à mettre en forme.xls" Set oExeE=GetObject(,"Excel.Application") if Err<>0 then Set oExeE=CreateObject("Excel.Application") oExeE.Visible=True end if Err.Clear On Error Goto 0 Set oXls=oExeE.Workbooks.Open(sXls1,0 ,false, 4, , , , 2) Set oXls=oExeE.Workbooks.Open(sXls2,0 ,false, 4, , , , 2) oExeE.Run "Ton fichier Excel qui contient la macro.xls!TaMacro" Set oXls=Nothing Set oExeE=Nothing
"arnaud" a écrit dans le message de news:
Bonjour, J'ai créé une macro sous excel qui met en forme un fichier.
Ce fichier Excel est généré en automatique par Access. Je voudrais stocker ma macro soit sur ma base access soit autrement (macro complementaire ?) afin qu'access me crée le fichier excel et lance ma macro Excel aussitot après.
Est ce possible et comment ??
merci de votre aide !!
Arnaud
Bonjour,
Essaye en adaptant avec ce code :
Dim oExeE As Object, oXls As Object
Dim sXls1 As String, sXls2 As String
On Error Resume Next
sXls1 = "Ton fichier Excel qui contient la macro.xls"
sXls2 = "Ton fichier Excel à mettre en forme.xls"
Set oExeE=GetObject(,"Excel.Application")
if Err<>0 then
Set oExeE=CreateObject("Excel.Application")
oExeE.Visible=True
end if
Err.Clear
On Error Goto 0
Set oXls=oExeE.Workbooks.Open(sXls1,0 ,false, 4, , , , 2)
Set oXls=oExeE.Workbooks.Open(sXls2,0 ,false, 4, , , , 2)
oExeE.Run "Ton fichier Excel qui contient la macro.xls!TaMacro"
Set oXls=Nothing
Set oExeE=Nothing
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:ObSJoKi0IHA.4004@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai créé une macro sous excel qui met en forme un fichier.
Ce fichier Excel est généré en automatique par Access.
Je voudrais stocker ma macro soit sur ma base access soit autrement (macro
complementaire ?) afin qu'access me crée le fichier excel et lance ma macro
Excel aussitot après.
Dim oExeE As Object, oXls As Object Dim sXls1 As String, sXls2 As String On Error Resume Next
sXls1 = "Ton fichier Excel qui contient la macro.xls" sXls2 = "Ton fichier Excel à mettre en forme.xls" Set oExeE=GetObject(,"Excel.Application") if Err<>0 then Set oExeE=CreateObject("Excel.Application") oExeE.Visible=True end if Err.Clear On Error Goto 0 Set oXls=oExeE.Workbooks.Open(sXls1,0 ,false, 4, , , , 2) Set oXls=oExeE.Workbooks.Open(sXls2,0 ,false, 4, , , , 2) oExeE.Run "Ton fichier Excel qui contient la macro.xls!TaMacro" Set oXls=Nothing Set oExeE=Nothing
"arnaud" a écrit dans le message de news:
Bonjour, J'ai créé une macro sous excel qui met en forme un fichier.
Ce fichier Excel est généré en automatique par Access. Je voudrais stocker ma macro soit sur ma base access soit autrement (macro complementaire ?) afin qu'access me crée le fichier excel et lance ma macro Excel aussitot après.
Est ce possible et comment ??
merci de votre aide !!
Arnaud
arnaud
merci de votre aide ! Je vais tester... Arnaud
Dim oExeE As Object, oXls As Object Dim sXls1 As String, sXls2 As String On Error Resume Next
sXls1 = "Ton fichier Excel qui contient la macro.xls" sXls2 = "Ton fichier Excel à mettre en forme.xls" Set oExeE=GetObject(,"Excel.Application") if Err<>0 then Set oExeE=CreateObject("Excel.Application") oExeE.Visible=True end if Err.Clear On Error Goto 0 Set oXls=oExeE.Workbooks.Open(sXls1,0 ,false, 4, , , , 2) Set oXls=oExeE.Workbooks.Open(sXls2,0 ,false, 4, , , , 2) oExeE.Run "Ton fichier Excel qui contient la macro.xls!TaMacro" Set oXls=Nothing Set oExeE=Nothing
"arnaud" a écrit dans le message de news:
Bonjour, J'ai créé une macro sous excel qui met en forme un fichier.
Ce fichier Excel est généré en automatique par Access. Je voudrais stocker ma macro soit sur ma base access soit autrement (macro complementaire ?) afin qu'access me crée le fichier excel et lance ma macro Excel aussitot après.
merci de votre aide !
Je vais tester...
Arnaud
Dim oExeE As Object, oXls As Object
Dim sXls1 As String, sXls2 As String
On Error Resume Next
sXls1 = "Ton fichier Excel qui contient la macro.xls"
sXls2 = "Ton fichier Excel à mettre en forme.xls"
Set oExeE=GetObject(,"Excel.Application")
if Err<>0 then
Set oExeE=CreateObject("Excel.Application")
oExeE.Visible=True
end if
Err.Clear
On Error Goto 0
Set oXls=oExeE.Workbooks.Open(sXls1,0 ,false, 4, , , , 2)
Set oXls=oExeE.Workbooks.Open(sXls2,0 ,false, 4, , , , 2)
oExeE.Run "Ton fichier Excel qui contient la macro.xls!TaMacro"
Set oXls=Nothing
Set oExeE=Nothing
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:ObSJoKi0IHA.4004@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai créé une macro sous excel qui met en forme un fichier.
Ce fichier Excel est généré en automatique par Access.
Je voudrais stocker ma macro soit sur ma base access soit autrement
(macro
complementaire ?) afin qu'access me crée le fichier excel et lance ma
macro
Excel aussitot après.
Dim oExeE As Object, oXls As Object Dim sXls1 As String, sXls2 As String On Error Resume Next
sXls1 = "Ton fichier Excel qui contient la macro.xls" sXls2 = "Ton fichier Excel à mettre en forme.xls" Set oExeE=GetObject(,"Excel.Application") if Err<>0 then Set oExeE=CreateObject("Excel.Application") oExeE.Visible=True end if Err.Clear On Error Goto 0 Set oXls=oExeE.Workbooks.Open(sXls1,0 ,false, 4, , , , 2) Set oXls=oExeE.Workbooks.Open(sXls2,0 ,false, 4, , , , 2) oExeE.Run "Ton fichier Excel qui contient la macro.xls!TaMacro" Set oXls=Nothing Set oExeE=Nothing
"arnaud" a écrit dans le message de news:
Bonjour, J'ai créé une macro sous excel qui met en forme un fichier.
Ce fichier Excel est généré en automatique par Access. Je voudrais stocker ma macro soit sur ma base access soit autrement (macro complementaire ?) afin qu'access me crée le fichier excel et lance ma macro Excel aussitot après.