Bonjour bonjour,
Je me penche sur le même problème depuis un moment, mais je ne trouve pas de solution. Voici mon problème:
J'ai plusieurs données dans mes cellules comme l'adresse, le propriétaire, etc.
Je voudrais ensuite copier ces donnes dans des textbox d'un userfom d'un modèle Word.
Le début est:
L'ouverture de mon Test.dot se passe sans problème. Il s'agit d'un modèle qui lance automatiquement les userforms à l'aide de la procédure AutoNew().
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 Sub CommandButton1_Click() Dim Nom As String Dim ligne As Integer Dim colonne As Integer Dim adresse as String Chemin = ThisWorkbook.ActiveSheet.Cells(40, 19).Value NomModele = "Test.dot" Nom = ActiveCell.Value ligne = ActiveCell.Row colonne = ActiveCell.Column adresse = Cells(ligne, colonne + 1).Value Set WordObj = CreateObject("Word.Application.8") With WordObj .Visible = True .Documents.Add Template:=Chemin & NomModèle End With End Sub
Est-il possible de copier la variable "adresse" et de la coller dans le textbox du Userform de mon Test.dot?
Si je ne suis pas clair, n'hésitez pas à le dire. Je voulais résumer au mieux mon problème.
Je vous remercie d'avance pour votre aide
Meilleures salutations
Partager