[AC-2007] lancer une macro excel depuis access est ce possible ?

[Debutant10]

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

[Dolphy35]

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

[Debutant10]

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]

[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