rechercher

Salut DgeDge,

Sub Welcome_to_xld ()

Il faut simplement, si tu t'y connais déjà bien en UserForms, qu'à chaque fois, dorénavant si tu travailles en Multi-Classeurs , tu t'efforce de TOUT déclarer dans tes instructions.

c'est un peu plus long et rigoureux !

Tes modules ressembleront à ça :

Option Explicit
Dim ActuelWkbk As Workbook
Dim WsBaseX As Worksheet

Dim OtherWkbk As Workbook
Dim WsBaseY As Worksheet


Private Sub UserForm_Initialize()

Set ActuelWkbk = ThisWorkbook
With ActuelWkbk
Set WsBaseX = .Worksheets("DatabaseX")
End With

Set OtherWkbk = Workbooks("Autre.xls")"
With OtherWkbk
Set WsBaseY = .Worksheets("DatabaseY")
End With

..............
etc etc


Ensuite il faut savoir travailler comme ça :

L = WsBaseY.Range("A65536").End(xlUp).Row
Plage = WsBaseY.Range("A2:C" & L).Address
ListBox1.RowSource = "DatabaseY!" & Plage

Je pense que c'est clair, car te faire une démo, c'est long et donc forcément multi classeur et on est limité à 50Ko sur le forum.

Mais si tu vas charger cette démo, j'utilise cette façon de travail pour un mono Classeur......... Contact Manager V2.01.zip (50k)

C'est en plus un travail commun fait dans ce forum...

Bonne Soirée
@+Thierry

Merci Thierry mais je ne suis pas assez balèze pour tout saisir...

En plus tu parle de listbox mais moi je n'en utilise pas...

Non, ce que je veux faire est je pense plus simple :
je suis dans le classeur 1- feuille 1, j'ai déja la liste des titres des feuilles contenues dans ce classeur.
J'en choisis une, la feuille sélectionnée apparait - elle s'appelle "Tartampion"
j'ai un bouton qui ouvre un Userform dans lequel un text box me redonne le titre de la fiche.
Quand je fais OK le classeur 2 s'ouvre ( jusque la ça marche )...

après : ce que j'aimerais avoir :

je reprends : le classeur 2 s'ouvre sur la feuille qui correspond à celle du classeur 1 ( elles ont le meme titre ). C'est tout.

C'est la recherche de la feuille du classeur 2 que je n'arrive pas à faire

merci

re bonsoir....

je t'ai donné un exemple que ce soit une ListBox ou un simple CommandButton c'est Idem !

quand tu dis "La recherche de la feuille du classeur 2 que je n'arrive pas à faire" tu la fais bien depuis le Classeur 1 ? non ?

DonC in faut que VBA sache de quoi on parle de toute manière. Donc ce que je t'ai décrit au dessus ce n'est pas des blagues !! lol si tu veux faire des variableS sur des nomS de feuilles de différents classeurs, c'est le minimum que tu doit savoir faire.

Sinon tu vas soit avoir des plantages permanents, soit pointer sur la feuille du classeur actif.

Donc il faut déclarer les Noms de classeurs comme dans l'exemple... Tu pourras jouer avec une variable du style

Toto = ActiveSheet.Name

OtherWkbk.Sheets(Toto).activate

Bon Courage
@+Thierry

Merci Thierry :

Toto = ActiveSheet.Name
workbooks("zaza").Sheets(Toto).activate

c'est tout ce que je voulais ! merci