Lancer macro sur deux classeurs ouverts

Bonjour à toutes et à tous,

Voilà je bloque depuis quelques temps sur un truc qui pourtant doit être tout bête.
Je souhaite à l'aide d'une UserForm saisir des données simultanément dans deux classeurs ouverts.
Dans mon exemple ci-dessous, je rentre par exemple le nom-prénom dans la TextBox et je voudrais que la saisie se fasse dans la cellule D29 de mes deux classeurs.
Voici le code, mais rien n'y fait, la saisie ne se fait que sur un classeur.
Merci pour vos conseils.

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Change() Dim wbk As Workbook For Each wbk In Application.Workbooks [D29] = TextBox1 Next wbk End Sub

---

Salut.

C'est normal, la ligne 4 affecte la saisie à la cellule D29 de la feuille active. Or, ta boucle n'active pas de classeur.

Perso, je modifierais cette ligne en utilisant la variable classeur et la feuille correspondante (pour autant que les feuilles à modifier aient le même nom dans chaque classeur. A toi d'adapter à ton cas particulier.

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Change() Dim wbk As Workbook For Each wbk In Application.Workbooks wbk.worksheets("...").range("D29").value = TextBox1.value Next wbk End Sub

---

Bonsoir Pierre,
Merci ça fonctionne impec!
Par contre j'ai le classeur Personnal qui s'ouvre de manière automatique et qui m'empêche (si je ne renomme pas l'onglet identiquement à celui de mes deux classeurs) de lancer la macro. Certainement une histoire de rangement... J'avoue que j'en ai foutu un peu partout avec mes essais à droite à gauche...

Il faut inhiber le traitement lorsque tu es sur le classeur de macros personnelles (en adaptant au nom de ton classeur de macros perso) puisque For Each wbk... passe sur chaque classeur ouvert.

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox1_Change() Dim wbk As Workbook For Each wbk In Application.Workbooks If StrComp(wbk.Name, "personal.xlsb", vbTextCompare) <> 0 Then wbk.Worksheets("...").Range("D29").Value = TextBox1.Value End If Next wbk End Sub

---

Mieux. Tu pourrais renommer les ThisWorkbook des classeurs concernés de façon à ne travailler que sur ceux-là même si d'autres sont ouverts et utiliser par exemple le code suivant (qui ne traitera que les deux classeurs ayant les codename souhaités)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_Change() Dim wbk As Workbook For Each wbk In Application.Workbooks Select Case wbk.CodeName Case "wbUserForms", "wbTest" wbk.Worksheets("...").Range("D29").Value = TextBox1.Value End Select Next wbk End Sub

---

Pièce jointe 380828

Merci Pierre !
Je vais opter pour ta première proposition étant donné que les noms de fichiers seront tous différents (Nom-Prénom + date d'entretien).
Après il doit y avoir moyen d'insérer une variable nomprénom... mais je verrai éventuellement plus tard, c'est déjà très bien comme cela pour le moment.
Je vais pouvoir construire mon formulaire et peut-être ouvrir une nouvelle discussion car mon projet est assez hard... du moins pour moi 8O :mrgreen:
Un grand :merci: