Variable d'un autre fichier

Leskwal · 21 Septembre 2009

Bonsoir;

Pas franchement top niveau VB, je sollicite votre clairvoyance. 😀

Comment dans un fichier N déclarer une variable V prenant la valeur de A1 de la feuil 1 et ensuite réutiliser cette variable dans un fichier N1 et la coller dans feuil 1 du fichier N1 ? Le fichier N1 s'ouvre en cliquant sur un bouton.

Un grand Merci d'avance pour votre aide

Pascal

Leskwal · 25 Septembre 2009

Re : Variable d'un autre fichier

Bonsoir le forum, Job75.

Je ne suis pas loin de terminer ma p'tite appli, mais comme toujours 😀 un p'tit grain de sable 🙄

Ma question est dans les fichiers joints compressés.

Merci d'avance.

Pascal

job75 · 25 Septembre 2009

Re : Variable d'un autre fichier

Bonsoir Leskwal,

Vous avez [EDIT] 4 solutions :

1) code de l'USF1, au lieu de Unload UserForm1 écrire UserForm1.Hide ce qui conserve les données entrées dans l'USF1.

2) code de l'USF1, cette nouvelle macro :

Code:

Private Sub UserForm_Initialize()
Remplissage
End Sub

3) code de l'USF2 :

Code:

Private Sub CommandButton1_Click()
Unload UserForm2
UserForm1.Show [B][COLOR="Red"]0 'affichage non modal[/COLOR][/B]
[COLOR="red"]Remplissage[/COLOR]
End Sub

4) code de l'USF2 :

Code:

Private Sub CommandButton1_Click()
Unload UserForm2
[COLOR="Red"]Load UserForm1
Remplissage[/COLOR]
UserForm1.Show
End Sub

L'embarras du choix 😛

PS : comme indiqué dans mon précédent post, il est mieux d'écrire ThisWorbook.Save dans la macro BeforeClose.

A+

Leskwal · 25 Septembre 2009

Re : Variable d'un autre fichier

Bonjour

Je vais essayer ces diverses solutions... 🙂

Merci

Pascal

Variable d'un autre fichier

Leskwal

XLDnaute Occasionnel

Leskwal

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Leskwal

XLDnaute Occasionnel

Discussions similaires

Variable d'un autre fichier

Leskwal

XLDnaute Occasionnel

Leskwal

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Leskwal

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency