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
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,
Le nom de la fonction dans le fichier Excel est Lancement et je récupère le retour de la fonction (Type Bool)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
[/QUOTE][/QUOTE]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager