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
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.
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.
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 :
VB:
Private Sub CommandButton1_Click()
Worksheet_Change Me.[C2]
End Sub
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.
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.
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.
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.