Discussion :

[florent77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[florent77]

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...

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[florent77]

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
Un grand