Discussion :

[Hania06]

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 :

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
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

[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,

[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!

[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?

[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

[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

[User]

Bonjour et bonnes fêtes également,

Pouvez-vous reposter votre code complet ?

Avez-vous fait d'autres changements ?

Cdlt,