Liaison entre deux Userform

Version imprimable

19/05/2010, 18h48
cobra38

Liaison entre deux Userform

Bonjour ,

Votre aide me serait trés precieuse pour resoudre le problème suivant :

1 ) j'ai fait 2 userforms A et B
2) je souhaite pouvoir recuperer une donnée issue de A pour
renseigner un texbox dans B

Comment dois-je déclarer ma donnée ( leFichier )dans A pour me permettre de l'exploiter dans un Textbox de B

voici ma donnée dans A :

Code:

leFichier = ListView1.ListItems.Item(ListView1.SelectedItem.Index).Tag

merci encore par avance
A+:lol:
19/05/2010, 19h12
mercatog

Tu déclare ta variable dans un module standard

Code:

Public LeFichier As ...
19/05/2010, 20h37
cobra38

Mille mercis pour le depannage

çà semble tellement evident , je passai mon temps à declarer ma variable dans le Userform et pas dans un module .....:aie:

Bref çà roule mais j'ai du déclarer une autre variable que celle presentée
( lefichier ) car il s'agissait du resultat d'un tag (?)

Merci encore
A++:ccool:

PS : une question subsidiaire si tu le permets , pour faire fonctionner mon listview je dois ajouter une Référence "Microsoft Windows Common ...."
or je dois "monter" le fichier manuellement bizarre !!
pourquoi n'apparait-il pas automatiquement dans la liste j'ai du aller cherhcer le fichier ad'hoc via parcourir ?
19/05/2010, 20h47
mercatog

Citation:

or je dois "monter" le fichier manuellement bizarre !!
pourquoi n'apparait-il pas automatiquement dans la liste j'ai du aller cherhcer le fichier ad'hoc via parcourir ?

Absolument pas clair
19/05/2010, 22h53
cobra38

Oui effectivement c'est pas très clair (:lol:)

Pour faire plus simple ,j'utilise dans mon appli , une recherche de fichier à partir d'un userform et d'un "listview"
Une déclaration préalable d'une référence appelée "Microsoft Windows Common Controls 6.0 (SP6) " semble obligatoire pour faire fonctionner tout çà
Tout serait normal si le module aparaissait dans la liste de choix
Outils -> référence -> Microsoft Windows Common Controls 6.0 (SP6)
Or i l se trouve que je dois aller chercher dans le repertoire MS , le fichier correspondant : MSCOMCTL.OCX ( controle ActiveX )
pour pouvoir utiliser ce module et ceci ne me parait pas normal :(

Voilà j'espère que ceci te paraitra plus clair
Merci encore
A+;)

pour le faire par code

Code:

1
2
3
4
5
6
On Error Resume Next
ActiveWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\MSCOMCT.OCX"
'ou en utilisant les GuId (globaly Unique Identifier)
'ActiveWorkbook.VBProject.References.AddFromGuid "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 6, 0
 
On Error GoTo 0

ici pour lister les références

Code:

1
2
3
4
5
6
7
8
9
10
Dim i As byte
With ActiveWorkbook.VBProject.References
    For i = 1 To .Count
        Cells(i, 1) = .Item(i).Name
        Cells(i, 2) = .Item(i).Description
        Cells(i, 3) = .Item(i).FullPath
        Cells(i, 4) = .Item(i).GUID
        Cells(i, 5) = .Item(i).IsBroken
    Next i
End With

20/05/2010, 18h41
cobra38

Mille mercis mercatog

je vais essayer ta solution
Je clos ici donc mon petit problème
et te remercie encore

Cordialement :ccool: