lancer une macro excel depuis access est ce possible ?

Version imprimable

10/06/2011, 23h30
Debutant10

lancer une macro excel depuis access est ce possible ?

Bonjour,

J'ai une macro excel qui fonctionne bien, j'aimerai savoir s'il est possible de la lancer depuis access.

Merci pour votre aide

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function LanceExcel() As Boolean
'---------------------------------------------------------------------------------------
' Procedure : LanceExcel
' Auteur    : Dolphy35
' Détail    : Lance le fichier Excel pour traitement
'---------------------------------------------------------------------------------------
'
' déclaration des variables
    Dim xlExcel As Excel.Application
    Dim xlClasseur As Excel.Workbook
    ' initialisation de la foncion
    LanceExcel = False
    ' instances
    Set xlExcel = CreateObject("Excel.Application")
    Set xlClasseur = xlExcel.Workbooks.Open(CurrentProject.Path & "\Fichier.xlsm")
    ' test le retour de la function Lancement du Fichier Excel
    If xlClasseur.Application.Run("Lancement", True) = False Then
        ' retour de la fonction
        LanceExcel = False
    End If
    ' raz mémoire et sortie
    xlClasseur.Close True: Set xlClasseur = Nothing
    xlExcel.Quit: Set xlExcel = Nothing
    ' retour de la fonction
    LanceExcel = True
End Function

Le nom de la fonction dans le fichier Excel est Lancement et je récupère le retour de la fonction (Type Bool)

Il faut cocher la référence : Microsoft XX.X Object Library

@+

Dolphy

Bonjour

Voici ma macro excel que je voudrais commander depuis access, cette macro permet de remplacer la 1 ère ligne d'un fichier excel et cela fonctionne bien mais le pb je dois toujours ouvrir le fichier excel pour faire fonctionner cette macro.

Comment insérer cette dernière dans access module je supose ? pour faire fonctionner tout cela, merci pour votre aide ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Remplacer() Dim exc As New Excel.Application exc.Workbooks.Open ("E:\variables.xls") Dim col As Integer col = 1 Do While (col < 45) Cells(1, col).Value = exc.Cells(1, col).Value col = col + 1 Loop exc.Workbooks.Close exc.Quit Set exc = Nothing MsgBox "Fini" End Sub
[/QUOTE][/QUOTE]

14/06/2011, 21h35
Dolphy35

Salut,

Si cette macro est présente dans le fichier Excel et tu dois exécuter celle-ci dans le même fichier il suffit d'utiliser mon code et de mettre le nom de ta macro en lieu et place de "Lancement". ainsi que le chemin.

Dolphy ;)