Discussion :

[Myaccess]

Bonjour a tous,

J'ai un petit problème avec une macro d'actualisation.

Voila j'explique mon cas:

J'ai deux classeurs excel à faire connecter, le classeur sur lequel je travail est appelé Base1 (il représente la source de données), et le deuxième est appelé Base2, et c'est lui que je veut faire connecté par le classeur Base1.

Le nom de la connexion est appelé alors : Base1_connect

J'ai enregistrer par la suite l'actualisation des données par une macro appelé ActualiserConnect, elle enregistrer dans le classeur Base2, et ça marche bien on l'exécutons depuis Base2

Mon problème est: j'ai essayé de créer un bouton qui fait exécuter cette macro par un code VBA (Bouton commande Activex) mais depuis mon classeur de travail (c'est a dire Base1) mais ça na pas marcher, voila ce que j'ai fait :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
  Application.Run "Base2.xls!'ActualiserConnect'"
End Sub

J'ai même essayé d'autre expression, mais toujours pas de résultats.

Alors est-ce qu'il y a quelqu'un qui peut me corriger cette expression.

Merci d'avance pour toute intervention.

[Jean-Philippe André]

Salut,

peux tu nous confirmer ceci :

- tu as 2 classeurs Base1 et Base2
- tu as un bout de code dans Base2 qui met a jour des infos
- tu as un bouton et un bout de code dans Base1 qui doit lancer le code de Base2

C'est bien cela ?

[Myaccess]

Oui, c'est bien cela.

Deux classeurs, Base1 (source de données) et Base2 (récepteur de données).

Voici les codes sur Visuel Basic:


Macro sur Base2 dans Module1

Code :

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

1
2
3
4
5
6
7
8
9
Sub ActualiserConnect()
 '
 ' ActualiserConnect Macro
 '
 
 '
    ActiveWorkbook.RefreshAll
 
End Sub

Bouton click sur Base1 (le code est au niveau de Feuil1 (Feuil1) ) qui fait éxecuter la Maro sur Base2

Code :

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

1
2
3
 Private Sub CommandButton1_Click()
       Application.Run "Base2.xlsm!'ActualiserConnect'"
   End Sub

[Jean-Philippe André]

OK,

quelques idees pour commencer :

- place ta sub en Public dans le module

Code :

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

Public Sub ActualiserConnect()

- il faut t'assurer que le classeur Base2 soit bioen ouvert

[Myaccess]

Toujours ça donne rien.

Remarque :

En faite, Il y a un réglage sur la propriétés de connexion de excel (dans Données--->Connexion--->Propriété), et sur la boite de dialogue je trouve que c'étais coché par default (Activer la connexion en arrière-plant et Activer cette connexion à la commande de actualiser tout).
C'est a dire que excel, propose entre temps quelques réglage d'actualisation.

Est-ce que cela peut poser problème à mon code ?

[Jean-Philippe André]

Ce qui me chiffonne c'est "pourquoi base2 doit rafraichir les donnees depuis base1 ?"