[VBA-E] Imprimer un fiche contact ( userform )

BONSOIR,
je tente de faire un truc ki peu etre tres sympa ....
voila j'utilise un userform pour consulter "une sorte d'agenda " avec des combobox liées entre elles .( nom, phone number, adresse email...)
Chacun de mes contacts sont renseigner sur ma feuille excel et je les consulte via mon userform

maintenant je souhaiterai mettre une sorte de compteur qui m'indiquerai le nombre total de contacts que j'ai et aussi pouvoir faire une impression ( de mon userfom completé ) sur world en selectionnant le numero de la fiche contact

Salut,

voici un petit indice afin de récupérer le nombre de contacts :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function NombreContacts(ByVal MyColumn As Byte) As Integer Dim PLV As Integer   PLV = Cells(65536, MyColumn).End(xlUp).Row NombreContacts = PLV - 1 ' j'ai mis -1 car je pars du principe que tu as une ligne d'entête End Function   Sub EXEMPLE_UTILISATION() ' pour savoir le nombre de contact, il faut appeler la fonction, _ en précisant la colonne où se trouve les donnnées MsgBox NombreContacts(1) End Sub

---

Après je comprends pas trop, t'es sur Excel, et tu veux imprimer sur WORD ?
Je ne suis pas calé en VBA-W mais à la limite, prévoies une feuille excel pour ta mise en page, ce sera plus simple.

@++

si j'ai un code pour ouvrir un nouveau document word

Code:

---

1 2 3 4 5 6

Private Sub button1_Click()   Set aplword = CreateObject("word.application") aplword.Visible = True aplword.documents.Add End Sub

---