Comment faire un lien pour ouvrir le popup et qui ne s'ouvre au chargement de page

rires ?

Bonjour.

J'ai testé ton carnet d'adresse qui est bien fait.

Juste une petite remarque si tu me le permets.

Lors de la recherche d'un nom comprenant un apostrophe une erreur se produit, afin d'y remédier je te propose la solution ci-dessous.

A+ Michele



Dans la partie  Private Sub TextRecherche_Change() modifie de la manier suivant





Dim ListItemResultat As ListItem          



Dim IntegerIndex As Integer                





' Mise à jour de la ListView



ListViewResultat.ListItems.Clear





' Mise à jour des zones de texte



Dim StrApostrophe As String



  If (InStr(TextRecherche, "'")) Then

    StrApostrophe = SrchReplace(TextRecherche)

Else

StrApostrophe = TextRecherche

End If

' Recherche par Nom



If ((Not Trim(TextRecherche.Text) = "") And (ComboRecherchePar.ListIndex = 0)) Then



resultatADO.Filter = "NomPrenon LIKE '" & Trim(StrApostrophe) & "*'"



End If



Et ajoute cette fonction



Function SrchReplace(ByVal sStringToFix As String) As String



Dim iPosition As Integer

Dim sCharToReplace As String

Dim sReplaceWith As String

Dim sTempString As String



sCharToReplace = "'"

sReplaceWith = "''"



iPosition = InStr(sStringToFix, sCharToReplace)

sTempString = ""



Do While iPosition

  sTempString = sTempString & Left$(sStringToFix, iPosition - 1)

  sTempString = sTempString & sReplaceWith

  sTempString = sTempString & _

    Mid$(sStringToFix, iPosition + 1, Len(sStringToFix))

  iPosition = InStr(iPosition + 1, sStringToFix, sCharToReplace)

Loop



SrchReplace = sTempString



End Function

Apparament tu connais tous les composants d'envoi de mail,
peux-tu me donner le code a utiliser avec le composant SendMail
Michèle