Je suis =E0 la recherche d'une id=E9e pour , dans une macro,=20
lister les classeurs ouverts et permettre le choix par=20
l'utilisateur grace =E0 un combo d'un des classeurs
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Fauconnier
Bonsoir
En plaçant un combo ( barre d'outils "Boite à outils" ) sur la feuille 1, tu peux insérer le code suivant dans le module de la feuille 1 ( adapter le nom du combo si différent de l'exemple...)
Private Sub ComboBox1_Click() ' Active le classeur sélectionné Workbooks(ComboBox1.Text).Activate End Sub
Private Sub ComboBox1_GotFocus() ' Remplit le combobox avec les noms de classeurs ouverts Dim Classeur As Workbook
ComboBox1.Clear ' Vidange du combobox For Each Classeur In Application.Workbooks ComboBox1.AddItem Classeur.Name ' AJout Next Classeur End Sub
-- Cela convient-il? ---- Pierre Fauconnier "N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos Beaucarne)
le lauxeti wrote:
Bonsoir à tous,
Je suis à la recherche d'une idée pour , dans une macro, lister les classeurs ouverts et permettre le choix par l'utilisateur grace à un combo d'un des classeurs
merci A+
le lauxeti
Bonsoir
En plaçant un combo ( barre d'outils "Boite à outils" ) sur la feuille 1, tu
peux insérer le code suivant dans le module de la feuille 1 ( adapter le nom
du combo si différent de l'exemple...)
Private Sub ComboBox1_Click()
' Active le classeur sélectionné
Workbooks(ComboBox1.Text).Activate
End Sub
Private Sub ComboBox1_GotFocus()
' Remplit le combobox avec les noms de classeurs ouverts
Dim Classeur As Workbook
ComboBox1.Clear ' Vidange du combobox
For Each Classeur In Application.Workbooks
ComboBox1.AddItem Classeur.Name ' AJout
Next Classeur
End Sub
--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)
le lauxeti wrote:
Bonsoir à tous,
Je suis à la recherche d'une idée pour , dans une macro,
lister les classeurs ouverts et permettre le choix par
l'utilisateur grace à un combo d'un des classeurs
En plaçant un combo ( barre d'outils "Boite à outils" ) sur la feuille 1, tu peux insérer le code suivant dans le module de la feuille 1 ( adapter le nom du combo si différent de l'exemple...)
Private Sub ComboBox1_Click() ' Active le classeur sélectionné Workbooks(ComboBox1.Text).Activate End Sub
Private Sub ComboBox1_GotFocus() ' Remplit le combobox avec les noms de classeurs ouverts Dim Classeur As Workbook
ComboBox1.Clear ' Vidange du combobox For Each Classeur In Application.Workbooks ComboBox1.AddItem Classeur.Name ' AJout Next Classeur End Sub
-- Cela convient-il? ---- Pierre Fauconnier "N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos Beaucarne)
le lauxeti wrote:
Bonsoir à tous,
Je suis à la recherche d'une idée pour , dans une macro, lister les classeurs ouverts et permettre le choix par l'utilisateur grace à un combo d'un des classeurs
merci A+
le lauxeti
le lauxeti
Merci Pierre, cela fonctionne
Yves
-----Message d'origine----- Bonsoir
En plaçant un combo ( barre d'outils "Boite à outils" ) sur la feuille 1, tu
peux insérer le code suivant dans le module de la feuille 1 ( adapter le nom
du combo si différent de l'exemple...)
Private Sub ComboBox1_Click() ' Active le classeur sélectionné Workbooks(ComboBox1.Text).Activate End Sub
Private Sub ComboBox1_GotFocus() ' Remplit le combobox avec les noms de classeurs ouverts
Dim Classeur As Workbook
ComboBox1.Clear ' Vidange du combobox For Each Classeur In Application.Workbooks ComboBox1.AddItem Classeur.Name ' AJout Next Classeur End Sub
-- Cela convient-il? ---- Pierre Fauconnier "N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)
le lauxeti wrote:
Bonsoir à tous,
Je suis à la recherche d'une idée pour , dans une macro,
lister les classeurs ouverts et permettre le choix par l'utilisateur grace à un combo d'un des classeurs
merci A+
le lauxeti
.
Merci Pierre, cela fonctionne
Yves
-----Message d'origine-----
Bonsoir
En plaçant un combo ( barre d'outils "Boite à outils" )
sur la feuille 1, tu
peux insérer le code suivant dans le module de la
feuille 1 ( adapter le nom
du combo si différent de l'exemple...)
Private Sub ComboBox1_Click()
' Active le classeur sélectionné
Workbooks(ComboBox1.Text).Activate
End Sub
Private Sub ComboBox1_GotFocus()
' Remplit le combobox avec les noms de classeurs
ouverts
Dim Classeur As Workbook
ComboBox1.Clear ' Vidange du combobox
For Each Classeur In Application.Workbooks
ComboBox1.AddItem Classeur.Name ' AJout
Next Classeur
End Sub
--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la
rivière" (Julos
Beaucarne)
le lauxeti wrote:
Bonsoir à tous,
Je suis à la recherche d'une idée pour , dans une
macro,
lister les classeurs ouverts et permettre le choix par
l'utilisateur grace à un combo d'un des classeurs