Menu déroulant et ouverture fichier Excel
Résolu/Fermé
A voir également:
- Menu déroulant et ouverture fichier Excel
- Menu déroulant excel - Guide
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Si et excel - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
20 juil. 2010 à 12:24
20 juil. 2010 à 12:24
Bonjour,
Là tu nous en demandes beaucoup...
Bon commençons par le commencement. Voici un classeur exemple le processus :
1- Tu va ouvrir un nouveau classeur excel et l'enregistrer sous "Evaluations annuelles.xls"
2- Dans ce classeur, à l'aide de la barre d'outils : "Boîte à outils contrôles" tu va dessiner dans la feuille "Feuil1" :
- 1 zone de liste déroulante
- 1 bouton de commande
3- clic droit sur le bouton de commande/Objet bouton de commande/Editions ; renomme le "Charger liste" puis clic gauche n'importe ou dans la feuille.
4- double clic sur le bouton, une fenêtre Visual Basic s'ouvre avec ces deux lignes de code :
inscrire entre ces deux lignes le code pour obtenir :
En dessous du End Sub de ce code copier/ coller celui ci :
5- Fermer la fenêtre Visual Basic.
6- Dans la barre d'outils Boîte à outils contrôles cliquer sur Désactiver le mode création enregistrer le fichier.
7- En A1 de cette même feuille écris : "Chemin :"
en B1 tu écriras le chemin d'accès du répertoire contenant toutes tes fiches. [Il est important que toutes soient situées dans le même répertoire]
exemple de chemin d'accès : C:\Mes Documents\Travail\Evaluations
8- Cliquer sur le bouton "Charger liste" et tester en faisant un choix dans la liste déroulante
Là tu nous en demandes beaucoup...
Bon commençons par le commencement. Voici un classeur exemple le processus :
1- Tu va ouvrir un nouveau classeur excel et l'enregistrer sous "Evaluations annuelles.xls"
2- Dans ce classeur, à l'aide de la barre d'outils : "Boîte à outils contrôles" tu va dessiner dans la feuille "Feuil1" :
- 1 zone de liste déroulante
- 1 bouton de commande
3- clic droit sur le bouton de commande/Objet bouton de commande/Editions ; renomme le "Charger liste" puis clic gauche n'importe ou dans la feuille.
4- double clic sur le bouton, une fenêtre Visual Basic s'ouvre avec ces deux lignes de code :
Private Sub CommandButton1_Click() End Sub
inscrire entre ces deux lignes le code pour obtenir :
Private Sub CommandButton1_Click()
'http://www.commentcamarche.net/faq/16109-excel-convertir-fichier-s-csv-xls#lire-tout-les-fichiers-du-repertoir-specifie
Dim fs, F, f1, s, sf
ComboBox1.Clear
Dim Chemin As String
Chemin = Range("B1").Value
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(Chemin)
Set sf = F.Files
For Each f1 In sf
ComboBox1.AddItem f1.Name
Next
End Sub
En dessous du End Sub de ce code copier/ coller celui ci :
Private Sub ComboBox1_Change()
Dim Chemin, Nomfic, fichier As String
Chemin = Sheets("Feuil1").Range("B1").Value
If ComboBox1.Value = "" Then Exit Sub
Nomfic = ComboBox1.Value
fichier = Chemin & "\" & Nomfic
Workbooks.Open fichier
End Sub
5- Fermer la fenêtre Visual Basic.
6- Dans la barre d'outils Boîte à outils contrôles cliquer sur Désactiver le mode création enregistrer le fichier.
7- En A1 de cette même feuille écris : "Chemin :"
en B1 tu écriras le chemin d'accès du répertoire contenant toutes tes fiches. [Il est important que toutes soient situées dans le même répertoire]
exemple de chemin d'accès : C:\Mes Documents\Travail\Evaluations
8- Cliquer sur le bouton "Charger liste" et tester en faisant un choix dans la liste déroulante
Merci pikaku, ça fonctionne parfaitement. J'ai simplifié mon idée, j'ai mis en dessous du tableau une seule liste déroulante pour saisir une nouvelle fiche.
Maitenant il me reste à créer le bouton de sauvegarde sur chaque fiche, et en fonction du nom de l'accompagnateur, du nom de l'agent et de la date, créer le lien hypertexte correspondant dans la case correspondante du tableau. Je sens que ça va être casse tête !
J'ai déjà mis un bouton "Save" qui enregistre sous, mais il me faut rajouter du code pour récupérer automatiquement les infos à mettre dans le nom. Idem pour le lien hypertexte sauf que là il faut aller chercher les infos dans un autre fichier Excel (le tout dans le même dossier bien sûr).
Des idées ?
Merci d'avance.
Maitenant il me reste à créer le bouton de sauvegarde sur chaque fiche, et en fonction du nom de l'accompagnateur, du nom de l'agent et de la date, créer le lien hypertexte correspondant dans la case correspondante du tableau. Je sens que ça va être casse tête !
J'ai déjà mis un bouton "Save" qui enregistre sous, mais il me faut rajouter du code pour récupérer automatiquement les infos à mettre dans le nom. Idem pour le lien hypertexte sauf que là il faut aller chercher les infos dans un autre fichier Excel (le tout dans le même dossier bien sûr).
Des idées ?
Merci d'avance.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
Modifié par pijaku le 20/07/2010 à 15:16
Modifié par pijaku le 20/07/2010 à 15:16
Pour le bouton save, une piste consiste à créer un userform.
https://www.cjoint.com/?hupn5iD4Qi
pour le reste, dans l'idéal, il faudrait que tu nous communique une copie de ton classeur sans données confidentielles avec https://www.cjoint.com/ par exemple
https://www.cjoint.com/?hupn5iD4Qi
pour le reste, dans l'idéal, il faudrait que tu nous communique une copie de ton classeur sans données confidentielles avec https://www.cjoint.com/ par exemple
Je n'ai pas bien compris l'utilité du userform. Je vous joins mon tableau, toute remarque est la bienvenue, et surtout comment je pourrais réaliser ce que j'ai décris plus haut :)
Lien: https://www.cjoint.com/?hupASGtrmD
Merci.
Lien: https://www.cjoint.com/?hupASGtrmD
Merci.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
20 juil. 2010 à 15:36
20 juil. 2010 à 15:36
merci de sauvegarder votre fichier sous .xls, je ne dispose pas de 2007....
