F
fermo
Guest
Bonsoir à tous et forum,
J'ai un bouton qui renvoie sur *ChercheStat.Show* et qui va ouvrir une macro. Ceci dans une même classeur.
Mais j'aimerais qu'il ouvre, ou qu'il active, la même macro dans un autre classeur.
Pouvez vous m'aider à ajouter la formule dans la macro pour pouvoir aller dans l'autre classeur.
Vlà le début:
Private Sub Affichestat_Click()
Application.ScreenUpdating = False
?????????????????????????????????????????
Sheets("Archive").Select
ActiveSheet.Unprotect Password:="3789" ' enlève la protection des cellules
Sheets("RechercheStat").Select
ActiveSheet.Unprotect Password:="3789" ' enlève la protection des cellules
Dim WS As Variant
Dim Nom As String
Dim Plage As Range
Dim Cherche, Adresse As String
Dim Ligne, Arrivee As Variant
Dim C As Object
Range("Zone1").Clear
Cherche = TextBox1
Ligne = 5
If Cherche = "" Then Exit Sub
Un grand merci à tous les virtuoses, pour votre aide. Fermo
J'ai un bouton qui renvoie sur *ChercheStat.Show* et qui va ouvrir une macro. Ceci dans une même classeur.
Mais j'aimerais qu'il ouvre, ou qu'il active, la même macro dans un autre classeur.
Pouvez vous m'aider à ajouter la formule dans la macro pour pouvoir aller dans l'autre classeur.
Vlà le début:
Private Sub Affichestat_Click()
Application.ScreenUpdating = False
?????????????????????????????????????????
Sheets("Archive").Select
ActiveSheet.Unprotect Password:="3789" ' enlève la protection des cellules
Sheets("RechercheStat").Select
ActiveSheet.Unprotect Password:="3789" ' enlève la protection des cellules
Dim WS As Variant
Dim Nom As String
Dim Plage As Range
Dim Cherche, Adresse As String
Dim Ligne, Arrivee As Variant
Dim C As Object
Range("Zone1").Clear
Cherche = TextBox1
Ligne = 5
If Cherche = "" Then Exit Sub
Un grand merci à tous les virtuoses, pour votre aide. Fermo