Probleme excel
Maximo.74
Messages postés
19
Statut
Membre
-
Maximo.74 Messages postés 19 Statut Membre -
Maximo.74 Messages postés 19 Statut Membre -
Bonjour,
Désolé pour cette question un peu bête.
J'ai un dossier avec 40 classeurs de type Excel.
En plus de mes 40 classeurs, j'en ai un qui se nome "Menu".
Dans mon classeur "Menu", j'ai fait une liste déroulante avec les 40 noms.
Ma question est de savoir comment ouvrir un des 40 classeurs depuis ma liste déroulante du classeur "Menu"
Workbooks.Open Filename:="c:\(CELLULE F8).xls"
Merci
Désolé pour cette question un peu bête.
J'ai un dossier avec 40 classeurs de type Excel.
En plus de mes 40 classeurs, j'en ai un qui se nome "Menu".
Dans mon classeur "Menu", j'ai fait une liste déroulante avec les 40 noms.
Ma question est de savoir comment ouvrir un des 40 classeurs depuis ma liste déroulante du classeur "Menu"
Workbooks.Open Filename:="c:\(CELLULE F8).xls"
Merci
A voir également:
- Probleme excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
4 réponses
bonjour,
j'ai fait une liste déroulante avec les 40 noms
quel type de liste déroulante ? validation de données; combobox barre outils contrôle sur feuille, sur userform; liste déroulante formulaire...
Sois un peu plus précis, merci.
j'ai fait une liste déroulante avec les 40 noms
quel type de liste déroulante ? validation de données; combobox barre outils contrôle sur feuille, sur userform; liste déroulante formulaire...
Sois un peu plus précis, merci.
Bonjour
SI les classeurs à ouvrir sont dans le m^me dossier
ET SI il n'y a que le nom du classeur sans le suffixe .xls
essaie:
sinon, explique ou essaie
pour installer:
clic droit sur le nom d'onglet-visualiser le code et coller cette macro
SI les classeurs à ouvrir sont dans le m^me dossier
ET SI il n'y a que le nom du classeur sans le suffixe .xls
essaie:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Or IsEmpty(Target) Then Exit Sub 'A1 à adapter
Workbooks.Open Filename:="D:\documents\excel\essai\" & Target & ".xls" 'à adapter
End Sub
sinon, explique ou essaie
pour installer:
clic droit sur le nom d'onglet-visualiser le code et coller cette macro