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

[Myaccess]

En faite, il y a une base de donnée Access qui est partager et liée en même temps par plusieurs classeurs Excel.

Dans mon exemple, Base2 est liée vers une base de données Access (et il y auna d'autres classeur aussi sont liées de la même façon), et j'aimerai gardé ce classeur fermé pour éviter la lecture seul.

[Jean-Philippe André]

Je pense que la conception de ton application n'est pas forcement au point, ou alors que tu ne nous donnes que des infos par morceau


Donc maintenant on a
1 base Access
5 fichiers Excel

c'est tout ou tu as encore d'autres infos ?

[Myaccess]

Bon, pour le moment rien ni liée avec Access, l'opération que entame de faire est juste pour tester.

Il y a seulement 2 classeurs Excel qui sont connecté entre eux, et je veux actualisé les données par un bouton depuis le 1er classeur.

Voici un extrait de mes classeurs comme exemple sur pièce jointe.

Peut être il faudra les reconnecté su votre Pc.

Désolé, j'ai la pièce jointe.

La voici donc...

[Myaccess]

Ça y est je l'ai trouvé..!!

En faite, Il fallait que je enregistre ma macro au niveau du classeur du départ (Base1.xls).

Je récapitule, pour actualisé les données du classeur Base2 (Récepteur de données) par un bouton click sur Base1(Source de modification de données), il faut faire comme suite:

1) Enregistrer une macro dans Base1
2) Aller vers Base2 est actualiser les données tout simplement par le menu "Actualiser Tout"
3) Arrêter l'enregistrement dans Base1
4) Créer un bouton (Contrôle formulaire) en lui affectant la macro enregistré.

Alors de cette façon le code de la macro deviens comme ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ActualiserBase2()
'
' ActualiserBase2 Macro
'
 
'
    Windows("Base2.xlsm").Activate
    ActiveWorkbook.RefreshAll
    Windows("Base1.xlsm").Activate
End Sub

Finalement c'étais simple.

Merci comme même Jean-Philippe, pour ton aide.

[Myaccess]

J'aimerai ajouter une autre question complémentaire a ce sujet.

Est-ce que c'est possible de faire la même chose mais étant le classeur Base2 fermé (classeur a actualiser) ?

[Myaccess]

Encore je l'ai trouvé, voici la réponse:

Cette fois si non, pour actualiser un classeur fermé depuis un autre classeur, il faut d'abord enregistré la macro d'actualisation dans le classeur Base2 (récepteur de données) ensuite en fait appel a cette macro par le bouton click sur Base1 comme ceci:

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 
Run "'C:\Users\ANEM\Desktop\Base2.xlsm'!ActualiserConnect"
Windows("Base2.xlsm").Close
 
 
End Sub