Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Access dans excel question ?

Access dans excel question ?

1 réponse
Avatar
Kiwix
Bonjour =E0 tous !
Je veux automatiser la copie de plusieurs maccros access=20
dans excel. Pour le moment j'ai =E9crit le d=E9but d'un code=20
qui me permet de cr=E9=E9 un fichier excel avec les feuilles=20
de calcul qui m'int=E9ressent. (Cela fonctionne).=20

Function EXPORTER_VERS_EXCEL()
Dim XL_App As Object
Set XL_App =3D CreateObject("Excel.Application")
With XL_App
.Visible =3D True
.Workbooks.Add
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name =3D "R=E9sultats Estimatifs"
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name =3D "PARETO PDR"
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name =3D "PARETO MP"
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name =3D "PARETO CO"
.DisplayAlerts =3D False
.Worksheets("feuil1").Delete
.Worksheets("feuil2").Delete
.Worksheets("feuil3").Delete
.ActiveWorkbook.SaveAs ("X:\Etude=20
d'optimisation.XLS")
.DisplayAlerts =3D True
.Quit
End With
Set XL_App =3D Nothing
End Function

Maintenant le probl=E8me c'est que je veux copier la maccro=20
PARETO CO dans la feuille PARETO CO idem pour PARETO MP=20
etc...

Comment faire ! J'ai Access 97 et excel 97

Merci pour vos r=E9ponse
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Maxence HUBICHE
Tu veux Copier une Macro ?????
C'est à dire ?
Cela signifie que ce qui est présent dans la liste des macros, c'est une
macro PARETO CO et que cette macro-là, tu veux la récupérer dans une feuille
de calcul Excel ?


--
======================================== Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur www.developpez.com

"Kiwix" a écrit dans le message de
news: 612401c4012d$91f51290$
Bonjour à tous !
Je veux automatiser la copie de plusieurs maccros access
dans excel. Pour le moment j'ai écrit le début d'un code
qui me permet de créé un fichier excel avec les feuilles
de calcul qui m'intéressent. (Cela fonctionne).

Function EXPORTER_VERS_EXCEL()
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
With XL_App
.Visible = True
.Workbooks.Add
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name = "Résultats Estimatifs"
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name = "PARETO PDR"
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name = "PARETO MP"
.ActiveWorkbook.Sheets.Add
.ActiveSheet.Name = "PARETO CO"
.DisplayAlerts = False
.Worksheets("feuil1").Delete
.Worksheets("feuil2").Delete
.Worksheets("feuil3").Delete
.ActiveWorkbook.SaveAs ("X:Etude
d'optimisation.XLS")
.DisplayAlerts = True
.Quit
End With
Set XL_App = Nothing
End Function

Maintenant le problème c'est que je veux copier la maccro
PARETO CO dans la feuille PARETO CO idem pour PARETO MP
etc...

Comment faire ! J'ai Access 97 et excel 97

Merci pour vos réponse