Liste déroulante et macro

[Redwarf]

Bonjour,

Voilà je souhaite lancer des fichiers excel à l'aide d'une liste déroulante.

Le seul moyen que j'ai trouvé est de lancer une macro à partir d'une formule (comme si), mais est ce possible ?

Ma liste déroulente comprendrais 48 semaines et pourrais donc faire appel à 48 fichiers.

Est ce possible ??????

MERCI DE M'AIDER

 

[Celeda]

Bonjour le Forum,


Le Lien supprimé !!!!!!!!!!!!!! à adapter selon tes besoins : en fait,on passe par un USF pour choisir son fichier.

Regarde si cette démo peut t'aider. On peut l'améliorer certainement.
Et dis nous si avec 48 fichiers, cela tient la route et s'il n'y a pas de problème à l'ouverture des fichiers, ce serait sympa (pas eu le temps de tester sur 48 ficheirs):whistle: .

Ah sacré nom d'un Zon!!! :evil: merci encore pour cette démo.

Celeda

 

[redwarf]

Merci mais je suis perdu, je viens juste de découvrir les macros et le VBA.

j'essaye de voir comment ca marche, mais peux ton lancer une macro a l'aide dune formule ?

 

[redwarf]

J'ai compris mais en fait ce que je veux c'est lancer un fichier excel à l'aide d'une liste déroulante modifiable (barre des tâches formulaire).

Du style quand je sélectionne semaine1 ca ouvre le fichier semaine 1.

Voilà.

ca fait un bout de tps que je planche sur le probleme.... :S :huh:

 

[_Thierry]

Bonjour RedWarf, Celeda, le Forum

Heuh oui oui Celeda, le Fichier de Zon est très sympa, mais là je pense que le pauvre RedWarf risque d'y perdre son latin, enfin son VBA...

Je viens de lire d'ailleurs son dernier message de 14H28, mais j'avais déjà préparé une Démo basic sur une Liste Déroulante... de Validation et non pas de la barre d'outils 'Formulaire'...

Mais le 'Process' reste quasiment similaire...



Voilà avec le fichier ce devrait être mieux

Bon Aprèm
@+Thierry [file name=XLD-Open-By-Liste-Deroulante_20050228145113.zip size=11385]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/XLD-Open-By-Liste-Deroulante_20050228145113.zip[/file]

Message édité par: _Thierry, à: 28/02/2005 14:51

 

[Celeda]

Bonjour,

Oh oui c'est super sympa ta démo Thierry et très gentil!!!

il faut que l'on se la garde :kiss: et il ne faut pas oublier de dire qu'il faut aller changer le chemin dans les lignes de code et il faut surtout enfin bannir à jamais ses listes de 'formulaires' :evil: .


Merci my dear!!

Celeda

 

[Celeda]

Bonjour,

Je voulais dire de ne pas oublier de mettre dans le même repertoire tous les fichiers qui sont à ouvrir.
Sorry si j'ai semé un peu de confusion dans la tête de RedWarf

Celeda

 

[_Thierry]

Re Coucou Celeda, RedWarf, le Forum

Oui petite précision utile de Céléda...

Tel quel ce fichier ouvrira les fichiers situés dans le même répertoire que lui-même... c'est du à cette ligne :

ThePath = ThisWorkbook.Path & '\\'

Sinon pour travailler sur un autre répertoire on peut tout simplement faire ceci :

ThePath = 'C:\\Documents and Settings\\TheUser\\TheDir\\TheSubDir\\'

Et pour les outils de la barres d'outils 'Formulaire', oui il faut dix milles fois mieux leur préférer les ActiveX de la Barre d'Outils 'Contrôles' (sauf si l'application est vouée à circuler sous Mac)



Merci à toi, my Dear Celeda eand big kiss !

Bon Aprèm
@+Thierry


PS Les AntiSlash ne passent pas non plus sur ce Forum alors attention...
ThePath = ThisWorkbook.Path & 'AntiSlash'

Message édité par: _Thierry, à: 28/02/2005 16:40

 

[Redwarf]

Un grand grand merci :woohoo: :woohoo: :woohoo: :woohoo:

C'est trop fort !

ouééééééééééééééééééé merci encore

 

[redwarf]

oups.......

j'arrive pas a créer la liste déroulante en A1 comment l'a tu réalisé (atteindre ?)

Je souhaite pas te copier, je préfère comprendre mais merci c'est exactement ce que je voulais !

 

[Celeda]

Bonsoir le Forum,

C'et très simple, Thierry a nommé Liste, toutes les données dans la feuille Database soit par Insertion - Noms :

Liste =Database!$A$1:$A$52


Puis dans Données, Validation, Autoriser Liste, il a placé ce nom soit

=Liste

et hop le tour est joué!! c'est magic!! :lol:

Celeda

 

[redwarf]

C'est ok merci encore, bonne jourbée à tous je vous tiens au jus