Bonsoir,

Jai un soucis pour ouvrir une requete access ( je suis sous Excel),
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
Private Sub ExécuterMacroAccess()
 
 
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim Rs3 As Recordset
 
 
Dim MonAccess As New Access.Application
MonAccess.OpenCurrentDatabase (chem & "\Rappro_titre.mdb")
MonAccess.Visible = True
MonAccess.DoCmd.RunMacro "1-MAJ-TBL-BO"
MonAccess.DoCmd.RunMacro "2-MAJ-TBL-FO"
MonAccess.DoCmd.RunMacro "3-MAJ-TBL-CT"
 
 
Set Rs1 = CurrentDb.OpenRecordset("B06-TITRE-SUMMIT-MANQUANT-TBL-BO-FERME")
 
If Rs1.RecordCount > 0 Then
Le soucis a lieu sur
CurrentDb.OpenRecordset("B06-TITRE-SUMMIT-MANQUANT-TBL-BO-FERME")

et j'ai comme message le serveur distant n'existe pas ou n'est pas disponible...

Le pire c'est que parfois ca me fait l'erreur et parfois non ...
Une idée ?