Microsoft 365 bouton de commande controle activeX

[cmdavid]

Bonjour a tous,
je veux créer un bouton pour activer la VBA ci-dessous, cette VBA est dans feuil1 (feuil1) et n'est pas une Macro. comment faire?

Option Explicit

Private Sub CommandButton1_Click()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c2]) Is Nothing Then Exit Sub
Dim etat As Boolean
With Application
.ScreenUpdating = False
.DisplayAlerts = False
etat = .AskToUpdateLinks
.AskToUpdateLinks = False
Workbooks.Open(Filename:=ThisWorkbook.Path & "\int.xlsm", Password:="a").Close True

.AskToUpdateLinks = etat
End With
ThisWorkbook.Save
End Sub

Merci pour votre aide.

 

[sylvanu]

Bonjour Cmdavid,
La sub Worksheet_Change est dite événementielle et est activée sur un changement dans la feuille concernée.
Vous ne pouvez pas l'appeler pour un bouton.
D'ailleurs quand vous ferez Affecter une macro, celle ci ne vous sera pas proposée.
La solution est de recopier cette macro dans un module. Elle pourra ainsi être appelée.
Par contre il faudra la modifier en conséquence, en particulier l' Intersect.

 

[Dranreb]

Bonjour.
À quoi peut bien servir cette instruction qui ferme, en enregistrant je ne sais quelle modification, un classeur aussitôt qu'il vient d'être ouvert avec un mot de passe ?
Édition. En réfléchissant je suppose que c'est juste pour qu'une Sub Workbook.Open de son module ThisWorkbook soit exécutée ?
Cela dit vous pouvez toujours faire :

Private Sub CommandButton1_Click()
Worksheet_Change Me.[C2]
End Sub

 

[cmdavid]

les fichiers F-A, F-B, F-J doivent être mis a jour a partir du fichier INT.
aujourd'hui ils sont mis a jour avec "validation de données" , je voudrais plutôt un bouton, plus sympa.
le code d'ouverture de tous les fichier est : a.

 

[Dranreb]

Alors je ne comprends pas. Il n'y a aucune programmation dans le INT.xlsm. Je ne vois pas à quoi ça peut servir de l'ouvrir puis de le refermer aussitôt.

 

[cmdavid]

je ne sais pas quoi dire, débutant en VBA.

 

[cmdavid]

bonne nouvelle, avec le code ci-dessous ca marche.

Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
etat = .AskToUpdateLinks
.AskToUpdateLinks = False
Workbooks.Open(Filename:=ThisWorkbook.Path & "\int.xlsm", Password:="a").Close True

.AskToUpdateLinks = etat
End With
ThisWorkbook.Save
End Sub

Private Sub MAJ_Click()
End Sub

 

[Dranreb]

Oui c'est ce que vous disait de faire sylvanu, si vous n'avez plus besoin du tout que ça se fasse aussi au changement de la cellule C2.
Mais je pense toujours que tout ça ne sert absolument à rien.

 

[jmfmarques]

Bonjour Dranreb

Mais je pense toujours que tout ça ne sert absolument à rien.

Quel pessimisme !
Voyons : cela permet de faire passer (et dépenser) du temps, juste pour en passer et en dépenser.
NB : lorsque je m'ennuie, j'utilise personnellement une passoire à gros trous. Cela permet de passer plus vite le temps.
Amitiés et salut à ta franchise, que j'assortis du pouce qui l'honore.

 

[cmdavid]

merci a vous deux, car vous m'avez permis de réfléchir et de trouver la solution. Merci