Copie des valeurs des cellules dans un userform de Word
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:
Code:
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 |
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().
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
