Exécuter une procédure VBA excel depuis ACCESS

Version imprimable

Bonjour à tous,

Je voudrais exécuter plusieurs procédure VBA (excel) depuis Access. J'ai cherché sur internet et j'ai trouvé le code ci-dessous:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub PilotageMacro1() Dim xl As Excel.Application Dim wbk As Excel.Workbook ' Démarrer Excel et le rendre visible Set xl = New Excel.Application xl.Visible = True ' Ouvrir le classeur qui contient les macros Set wbk = xl.Workbooks.Open("Q:\BKAttestationStatisticDECEMBRE.xlsm") ' Exécuter une macro xl.Run "SUP1" ' Fermer le classeur sans l'enregistrer wbk.Close False Set wbk = Nothing ' Quitter Excel xl.Quit Set xl = Nothing End Sub
1) apparemment le chemin d'accés ("Q:\BKAttestationStatisticDECEMBRE.xlsm") n'est pas valide,car lorsque je l'excute j'obtient une boite de dialogue me disant: "le fichier est introuvable, verifiez l'orthographe ou essayez un autre chemin d'accés " serait-ce parceque mon fichier n'est pas dans (c:\) ? sachant que dans mon ordinateur professionnel je ne pourrais pas l'enregistrer sur (c:)

2) étant novice sur VBA Acess, pourriez vous me dire si ca serait plus efficace de traduire mon code VBA Excel en code VBA Access au lieux de laisser le code sous excel et l'exécuter via Access?

Merci d'avance pour votre aide :)

23/12/2016, 12h42
User

Bonjour,

Pouvez-vous confirmer que le chemin de votre fichier sur la machine où vous exécutez la macro est bien :

"Q:\BKAttestationStatisticDECEMBRE.xlsm"

Actuellement, vous l'exécutez-bien depuis Access ?

Cdlt,
23/12/2016, 12h49
Invité

bonjour,
les lecteur réseaux Q.Z,X ou autre sont des chemin virtuel! il ne'existe que parce que l’utilisateur l'a défini; on appel ça un mappage!

si les lecteur réseaux sont définis dans la politique informatique de ta société, le mappage est défini au niveau de l'entreprise. le lecteur Q:\ existe t-il dans l'explorateur Windows? le fichier existe t-il dans Q:\?

si le mappage est effectué par l’utilisateur, le fichier peux exister en Q:\ sur un ordinateur et en P:\sur un autre!
23/12/2016, 14h05
Hania06

Alors non, je ne suis pas sur que le chemin de mon fichier soit exactement ca, a vrai dire je ne suis pas sur de la forme que doit prendre le nom du (d'un) fichier.

D'aprés votre définition il s'aggit bien d'un mappage. Le lecteur Q:/ existe bien dans le lecteur windows et mon fichier y est enregistré

est ce que le fait que ca soit un chemin virtuel cela empeche l'exécution de mon code?
23/12/2016, 16h21
Invité

Connais tu l'adresse Ip du serveur? Du genre \\192.168.1.1\repertoireQ

Si tu le connais testes en utilisant le chemin via l'Ip \\192.168.1.1\repertoireQ\fichier.xlsx
26/12/2016, 10h30
Hania06

Bonjour a tous et joyeuses fetes,

J'ai résolu le problème de l'emplacement car finalement j'ai pu l'enregistrer sous C:, voila ce que ca donne: Set wbk = xl.Workbooks.Open("C:\Users\halloun\hanou.xlsm")

Par contre j'ai un autre problème avec la suite de mon code:

xl.Run "SUP1"
wbk.Close False
Set wbk = Nothing
xl.Quit
Set xl = Nothing

J'ai un message d'erreur: Erreur d'exécution '424' Objet requis. Sachant que SUP1 est le nom de ma macro
Pouvez-vous m'aider si vous avez une solution
Merci
26/12/2016, 11h10
User

Bonjour et bonnes fêtes également,

Pouvez-vous reposter votre code complet ?

Avez-vous fait d'autres changements ?

Cdlt,
26/12/2016, 11h14
Hania06

Voici mon code actuellement:

Sub PilotageMacro1()
Dim xl As Excel.Application
Dim wbk As Excel.Workbook

Set xl = New Excel.Application
xl.Visible = True

Set wbk = xl.Workbooks.Open("C:\Users\halloun\hanou.xlsm")

xl.Visible = True

xl.Run "SUP1"
xl.ActiveWorkbook.Close (True)
xl.Quit

Set xl = Nothing

End Sub

Essayez ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub PilotageMacro1()
    Dim xl As Excel.Application
    Dim wbk As Excel.Workbook
 
    ' Démarrer Excel et le rendre visible
    Set xl = New Excel.Application
    xl.Visible = True
 
    ' Ouvrir le classeur qui contient les macros
    Set wbk = xl.Workbooks.Open("C:\Users\halloun\hanou.xlsm")
 
    ' Exécuter une macro
    xl.Run "SUP1"
 
    ' Fermer le classeur sans l'enregistrer
    wbk.Close True
    Set wbk = Nothing
 
    ' Quitter Excel
    xl.Quit
    Set xl = Nothing
End Sub

Avec :

Code:

wbk.Close True

Pour sauvegarder...

Cdlt,

26/12/2016, 11h41
Hania06

J'ai réessayé avec ton code et cette fois j'ai ce message d'erreur:
Erreur 1004: Impossible d'exécuter la macro 'SUP1'. Il est possible qu'elle ne soit pas disponible dans cce classeur ou que toutes les macros soient désactivées.

ca a un rapport avec son emplacement ou peut etre les reférences?
26/12/2016, 12h10
User

Il ne semble pas reconnaître la macro "SUP1" dans le classeur.

Regardez dans le gestionnaire des macros dans le classeur : Onglet Développeur -> Macros...

Pour voir si le nom de la macro correspond...

Au besoin, renommez la macro pour faire un test...

Cdlt,
26/12/2016, 14h44
Invité

Bonjour,

Code:

wbk.application.run "SUP1"
06/01/2017, 17h16
Hania06

Super :) merci infiniment ca marche

J'ai changé le nom de ma macro et utilisé : wbk.application.run "SUP1"

Code final:

Sub PilotageMacro1()
Dim xl As Excel.Application
Dim wbk As Excel.Workbook

' Démarrer Excel et le rendre visible
Set xl = New Excel.Application
xl.Visible = True

' Ouvrir le classeur qui contient les macros
Set wbk = xl.Workbooks.Open("C:\Users\halloun\BK MACRO TEST 2.xlsm")

' Exécuter une macro
wbk.Application.Run "MODULE"

' Fermer le classeur sans l'enregistrer
wbk.Close False
Set wbk = Nothing

' Quitter Excel
xl.Quit
Set xl = Nothing
End Sub

Bonne année :)

Bonjour,

Code:

1
2
3
4
5
6
7
8
 
with CreateObject("Excel.Application")
       With .Workbooks.Open("C:\Users\halloun\BK MACRO TEST 2.xlsm")
                  .Application.Run "MODULE"
                  .Close False
          End with
.quit
End with