Récupérer TextBox dans un autre classeur

Bonjour,

Je créé deux fichiers Excel : FACTURES et CLIENTS

J'ai une UserForm dans FACTURES ou je récupère les données clients dans des TextBox.

Je cherche à mettre ces données dans des cellules du fichier CLIENTS.

Je pensais à quelque chose du genre :

Code:

---

Workbooks("CLIENTS.xlsm").Sheets("CLIENTS").Cells(1, 1) = FACTURES.xlsm.UserForm1.TextBox1.Value

---

mais évidemment ça ne fonctionne pas (sinon je ne serais pas ici ;) ).

Si quelqu'un avait une idée pour résoudre mon problème.

Merci d'avance !!!

Bonjour,
En supposant que le code VBA et donc le UserForm se trouve dans le classeur nommé FACTURES
La ligne pour écrire le contenu du contrôle TextBox nommé txtCompany en cellule A2 de la feuille nommée Client du classeur nommé Client.xlsb est

Code:

---

1 2 3 4 5

Private Sub cmdConfirm_Click() With Workbooks("Client.xlsb").Worksheets("Client") .Range("A2").Value = Me.txtCompany.Value End With End Sub

---

Bonjour Philippe, et merci de votre réponse.

Cependant, l'UserForm est bien dans le fichier FACTURES, mais le code de ma macro est dans le fichier CLIENT.

Bonjour,

Citation:

---

Cependant, l'UserForm est bien dans le fichier FACTURES, mais le code de ma macro est dans le fichier CLIENT.

---

C'est curieux.
Il faudrait alors être plus explicite de la manière dont l'ensemble du code travaille.
Où se trouve le code qui active le UserForm ?
L'édition de cette procédure apporterait un peu plus d'éclaircissement

Je vais essayé d'être plus explicite.

Dans le fichier Facture :
UserForm1
TextBox1

Je lance ensuite une macro depuis facture pour inscrire ma facture dans ce fichier.

Afin de d'enregistrer mes données clients (qui sont dans l'UserForm) dans mon fichier Client, j'active une macro dans mon fichier Client qui récupère les données de la TextBox1 (vérif client existent, etc..)

Du coup, il me manque la partie de code pour mettre les données de la TextBox1 (dans le fichier Facture) dans une cellule ou une variable de ma macro dans mon fichier Client.

J'espère avoir été suffisamment explicite.

J'essaye Autrement :D :

Fichier Facture :

Code:

---

1 2 3 4 5 6 7

Sub Macro_Facture()   UserForm1.Show   applicatio.Run "Client.xlsm!Module1.Macro_Client"   End Sub

---

Fichier Client :

Code:

---

1 2 3 4 5 6 7

Sub Macro_Client() Dim Variable As String Variable = UserForm1.TextBox1 End Sub

---

C'est "UserForm1.TextBox1" que je n'arrive pas à trouver.