Discussion :

[jarault]

Bonjour,

J'ai un soucis avec un classeur partagé, tous les matins je lance une macro qui met à jour une requête qui recherche des données dans Access.

Lorsque je lance la macro les données sont bien mis à jour, par contre les autres classeurs ne récupèrent pas les informations, cela affiche que les données ont été éffacées.

Mes macros sont les suivantes:

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
Sub Incorporer_Dans_Access()
Dim acApp As New Access.Application
 
' Démarrer Access
Set acApp = New Access.Application
 
' Ouvrir la base de données concernée
acApp.OpenCurrentDatabase ("K:\CADRAN\Stocks.mdb")
 
' Exécuter la macro
acApp.DoCmd.RunMacro "ImportationAchats"
 
' Quitter Access
acApp.Quit
Set acApp = Nothing
 
'Actualise les achats
Application.Run "Importer_Achats"
 
'Confirme l'intégration dans access des achats
MsgBox "Les achats de ont été incorporés"
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Importer_Achats()
If ActiveSheet.Name <> "ACHATS" Then Sheets("ACHATS").Select
    Range("A2").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub

Jarault

[Singular]

Euhhhhh...

Peut-être que ton appel à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

acApp.DoCmd.RunMacro "ImportationAchats"

devrait être:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

acApp.DoCmd.RunMacro "Importer_Achats"

[jarault]

Euhhhhh...

Peut-être que ton appel à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

acApp.DoCmd.RunMacro "ImportationAchats"

devrait être:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

acApp.DoCmd.RunMacro "Importer_Achats"

Non normalement çà c'est bon, la macro "ImportationAchats" est une macro interne à Access qui incorpore, à partir d'un fichier texte des données dans la base access.

La macro en elle même marche très bien, mon seul souci c'est lorsque j'incorpore les données dans excel mes collègues ne les récupèrent pas et je n'arrive pas à comprendre pourquoi.

Jarault

[jarault]

Personne n'a d'idée ?