Bonsoir,
Jai un soucis pour ouvrir une requete access ( je suis sous Excel),Le soucis a lieu sur
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
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 ?
Partager