Salut le forum et plus particulièrement Eric C
Comme je te l'ai dit hier, je viens d'essayer ce que tu m'as conseillé sous cette forme:
If CheckBox8.Value = True Then
Workbooks.Open FileName:="D:\Eti.xls"
Range("a1") = TextBox1.Text
Range("a2") = TextBox2.Text
Range("a3") = TextBox3.Text
Range("a4") = TextBox4.Text
Msg = "Attention, vous allez imprimer une seule page d'étiquettes de l'adresse que vous venez de créer"
Style = vbYesNo + vbQuestion
Title = "IMPRESSION -
Reponse = MsgBox(Msg, Style, Title)
If Reponse = vbYes Then
ActiveDocument.PrintOut
Workbooks.Close
Else
Workbooks.Close
End If
et cela ne fonctionne pas. Une boîte de dialogue s'ouvre me disant erreur de compilation-Sub ou function non définie-
en mettant en surbrillance Range("a1")
Quelqu'un aurait-il une solution? en vous remerciant par avance
Ericbtz.