Activer un bouton avec un autre bouton
Bonjour,
J'ai 2 feuilles dans mon tableur avec un bouton dans la feuille 2 qui lance une macro.
J'aimerai crée un bouton dans la feuille 1 qui active le bouton dans la feuille 2, merci de m'aider.
Bonjour
Pourquoi ne pas "affecter" aussi la macro au Bouton 1?
Cordialement
J'ai essayer mais elle ne s'applique pas correctement.
Re, bonjour
J'ai essayer mais elle ne s'applique pas correctement.
Avec si peu d'information, difficile de t'aider.
Envois le fichier ou le Code
Cordialement
Voici mon code :
Private Sub CommandButton1_Click()
Dim Chemin As String
Dim myShell As Shell
Dim myFolder As Folder
Dim myFile As FolderItem
Dim i As Byte, F As String, lig As Long
Chemin = Sheets("Feuil1").Range("A1").Value 'Indiquer le chemin du répertoire
On Error Resume Next
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(Chemin)
Set myFile = myFolder.Items.Item(F)
Application.ScreenUpdating = False
LigneP = "Résultat "
LigneP = Sheets("Feuil2").Cells.Find(What:=LigneP).Row
Ligne = LigneP + 1
F = Dir(Chemin & "\*.doc")
Do While Len(F) > 0
Set myFile = myFolder.Items.Item(F)
If myFolder.GetDetailsOf(myFile, i) <> "" Then
LigneP.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Chemin & "\" & myFolder.GetDetailsOf(myFile, 0) _
, TextToDisplay:=myFolder.GetDetailsOf(myFile, 0) 'nom du doc + lien hypertexte
Sheets("Feuil2").Cells(Ligne, 5) = myFolder.GetDetailsOf(myFile, 3) 'date de modif
Sheets("Feuil2").Cells(Ligne, 4) = myFolder.GetDetailsOf(myFile, 4) 'date de création
Sheets("Feuil2").Cells(Ligne, 2) = myFolder.GetDetailsOf(myFile, 9) 'Auteur
Ligne = Ligne + 1
End If
F = Dir
Loop
Set myShell = Nothing
Set myFolder = Nothing
Set myFile = Nothing
Sheets("Feuil1").Columns("A:AZ").AutoFit
Application.Goto (ActiveWorkbook.Sheets("Feuil2").Rows(LigneP))
ActiveWindow.ScrollRow = Sheets("Feuil2").Cells(LigneP, 1).Row
End Sub
Quand j'essai de l'affecter au bouton de la feuille 1 la colonne qui affiche les nom du doc et le lien hypertexte n'apparait pas.
J'ai juste 1 fichier .doc avec lien qui apparait sur la feuille 1.
Sinon la date de modif, l'auteur et la date de création s'affichent correctement sur la feuille 2.
-- 16 Déc 2010, 16:26 --
If myFolder.GetDetailsOf(myFile, i) <> "" Then
Sheets("Feuil2").Cells(Ligne, 2) = myFolder.GetDetailsOf(myFile, 9) 'Auteur
Le problème doit surment provenir de "ActiveSheet".
Je vais modifier ça voir ce que ça donne.
-- 16 Déc 2010, 16:31 --
J'ai remplacer Activesheet par Sheets("Feuil2") , toujours même problème.
Bonjour
VBA n'est pas mon fort, toutefois..
regarde du côté de la définition de LigneP en lui associant Sheets("Feuil2") ou active la feuille 2 au départ
Cordialement
Je chercher toujours comment faire pour activer un bouton avec un autre... je ne trouve aucune réponses j'ai vraiment besoin d'aide.
Bonjour
Je pense être tombé sur la bonne réponse.
Très Bonne Année
Mercii beaucoup à toi!
Et bonne année!