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