Microsoft 365 Ouvrir boite de message outlook

Electron24

XLDnaute Occasionnel
Bonjour le Forum,

Dans une feuille nommée "Facture" j'ai un bouton qui ouvre le formulaire "Frm_New_Client"
Je souhaiterai qu'en validant par le bouton vert "Valider" avoir comme dans la feuille "Clients" (derrière le formulaire sur la photo jointe)
avoir en colonne I des liens hyperlinks qui me permettrais d'ouvrir la boite de dialogue de Outlook
Mais l'adresse est bien inscrite (voir en ligne 4 - monté.christo@orange.fr) mais n'est pas opérationnelle comme sur les lignes au dessus
J'ai cherche dans différent sites mais aucune réponse ne me convient.
Il y en avait une dont voici le lien
https://excel-downloads.com/threads/vba-lien-hypertexte-dans-une-textbox.150367/
qui me convenait assez bien (fichier de pierrejean que je salut au passage ;-)
Le principe serait de mettre un bouton dans ma feuille "Client" afin d'ouvrir le formulaire et de pouvoir ouvrir la boite de message.
Merci de votre aide
 

Pièces jointes

  • Screenshot_1.jpg
    Screenshot_1.jpg
    162.5 KB · Affichages: 16
Solution
VB:
Private Sub Btn_Valider_Click()
Dim vTotal As String
Dim nom As String: Dim prenom As String
Dim la_ligne As Integer: Dim ident As Integer

    vTotal = 5 - Val(T_Total.Value)
   
 If vTotal = 1 Then
    MsgBox "Veuillez vérifier votre saisie. " & Chr(10) & "il manque " & vTotal & " Donnée", vbOKOnly + vbInformation, "Produit Ajouté."
Exit Sub
End If

If vTotal > 1 Or T_Total.Value < 5 Then
    MsgBox "Veuillez vérifier votre saisie. " & Chr(10) & "il manque " & vTotal & " Données", vbOKOnly + vbInformation, "Produit Ajouté."
Exit Sub
End If

nom = "" 'Range("B7").Value
prenom = "" 'Range("D7").Value
la_ligne = 3

Do While Sheets("Clients").Cells(la_ligne, 4).Value <> nom And Sheets("Clients").Cells(la_ligne, 5).Value <> prenom And...

fanch55

XLDnaute Barbatruc
Bonjour,
Pas tout compris, mais si c'est pour mettre à jour une cellule en tant qu'hyperlien à partir d'une textbox :
A mettre dans le code du bouton Valider :
VB:
ActiveSheet.Hyperlinks.Add _
    Anchor:=ActiveSheet.Range("I4"), _
    Address:="mailto:" & TextBox1.Text, _
    TextToDisplay:=TextBox1.Text
 

Electron24

XLDnaute Occasionnel
Bonjour fanch55
c'est dans l'idée que je recherche, mais le souci est que j'incrémente la ligne à chaque enregistrement voici le code du bouton valider :
VB:
Private Sub Btn_Valider_Click()
Dim vTotal As String
Dim nom As String: Dim prenom As String
Dim la_ligne As Integer: Dim ident As Integer

    vTotal = 5 - Val(T_Total.Value)
    
 If vTotal = 1 Then
    MsgBox "Veuillez vérifier votre saisie. " & Chr(10) & "il manque " & vTotal & " Donnée", vbOKOnly + vbInformation, "Produit Ajouté."
Exit Sub
End If

If vTotal > 1 Or T_Total.Value < 5 Then
    MsgBox "Veuillez vérifier votre saisie. " & Chr(10) & "il manque " & vTotal & " Données", vbOKOnly + vbInformation, "Produit Ajouté."
Exit Sub
End If

nom = "" 'Range("B7").Value
prenom = "" 'Range("D7").Value
la_ligne = 3

Do While Sheets("Clients").Cells(la_ligne, 4).Value <> nom And Sheets("Clients").Cells(la_ligne, 5).Value <> prenom And Sheets("Clients").Cells(la_ligne, 2).Value <> ""
    ident = Sheets("Clients").Cells(la_ligne, 2).Value
    la_ligne = la_ligne + 1
Loop

    Sheets("Clients").Cells(la_ligne, 2).Value = Txt_ID.Value                                   ' Numéro de la fiche du film
    Sheets("Clients").Cells(la_ligne, 3).Value = Cmb_Civilite.Value                             ' Civilité
    Sheets("Clients").Cells(la_ligne, 4).Value = Txt_Nom.Value                                  ' Nom du Client
    Sheets("Clients").Cells(la_ligne, 5).Value = Txt_Prenom.Value                               ' Prénom du client
    Sheets("Clients").Cells(la_ligne, 6).Value = Txt_CP.Value                                   ' Code Postal
    Sheets("Clients").Cells(la_ligne, 7).Value = Txt_Ville.Value                                ' Ville
    Sheets("Clients").Cells(la_ligne, 8).Value = Txt_Adresse.Value                              ' Adresse"
    Sheets("Clients").Cells(la_ligne, 9).Value = Txt_Mail.Value                                 ' Mail du client
    Sheets("Clients").Cells(la_ligne, 11).Value = Format(Me.Txt_Tel.Value, "0# ## ## ## ##")    ' tél du client
    Sheets("Clients").Cells(la_ligne, 12).Value = Format(Me.Txt_Fax.Value, "0# ## ## ## ##")    ' fax du client
    
    MsgBox "Le client a été créé avec succès.", vbOKOnly + vbInformation, "Client Ajouté."

    'Unload Me

End Sub

ou dois je placer ton code ?
 

patricktoulon

XLDnaute Barbatruc
Bonjour
elle n'est pas opérationnelle par ce que tu l'inscrit en tant que texte
exemple
au lieu de

Sheets(1).[I4]="mailto:monté.cristo@youméméle.com"
tu met
VB:
Sheets(1).Hyperlinks.Add Anchor:=[I4], Address:="mailto:monté.cristo@youméméle.com", TextToDisplay:="monté.cristo@youméméle.com"

Terminé
 

fanch55

XLDnaute Barbatruc
VB:
Private Sub Btn_Valider_Click()
Dim vTotal As String
Dim nom As String: Dim prenom As String
Dim la_ligne As Integer: Dim ident As Integer

    vTotal = 5 - Val(T_Total.Value)
   
 If vTotal = 1 Then
    MsgBox "Veuillez vérifier votre saisie. " & Chr(10) & "il manque " & vTotal & " Donnée", vbOKOnly + vbInformation, "Produit Ajouté."
Exit Sub
End If

If vTotal > 1 Or T_Total.Value < 5 Then
    MsgBox "Veuillez vérifier votre saisie. " & Chr(10) & "il manque " & vTotal & " Données", vbOKOnly + vbInformation, "Produit Ajouté."
Exit Sub
End If

nom = "" 'Range("B7").Value
prenom = "" 'Range("D7").Value
la_ligne = 3

Do While Sheets("Clients").Cells(la_ligne, 4).Value <> nom And Sheets("Clients").Cells(la_ligne, 5).Value <> prenom And Sheets("Clients").Cells(la_ligne, 2).Value <> ""
    ident = Sheets("Clients").Cells(la_ligne, 2).Value
    la_ligne = la_ligne + 1
Loop

    Sheets("Clients").Cells(la_ligne, 2).Value = Txt_ID.Value                                   ' Numéro de la fiche du film
    Sheets("Clients").Cells(la_ligne, 3).Value = Cmb_Civilite.Value                             ' Civilité
    Sheets("Clients").Cells(la_ligne, 4).Value = Txt_Nom.Value                                  ' Nom du Client
    Sheets("Clients").Cells(la_ligne, 5).Value = Txt_Prenom.Value                               ' Prénom du client
    Sheets("Clients").Cells(la_ligne, 6).Value = Txt_CP.Value                                   ' Code Postal
    Sheets("Clients").Cells(la_ligne, 7).Value = Txt_Ville.Value                                ' Ville
    Sheets("Clients").Cells(la_ligne, 8).Value = Txt_Adresse.Value                              ' Adresse"
  '  Sheets("Clients").Cells(la_ligne, 9).Value = Txt_Mail.Value                                 ' Mail du client
    ActiveSheet.Hyperlinks.Add _
        Anchor:=ActiveSheet.Cells(la_ligne, 9),  Address:="mailto:" & Txt_Mail.Text, TextToDisplay:=Txt_Mail.Text
    Sheets("Clients").Cells(la_ligne, 11).Value = Format(Me.Txt_Tel.Value, "0# ## ## ## ##")    ' tél du client
    Sheets("Clients").Cells(la_ligne, 12).Value = Format(Me.Txt_Fax.Value, "0# ## ## ## ##")    ' fax du client
   
    MsgBox "Le client a été créé avec succès.", vbOKOnly + vbInformation, "Client Ajouté."

    'Unload Me

End Sub
 

Discussions similaires

Réponses
5
Affichages
229
Réponses
10
Affichages
597

Statistiques des forums

Discussions
314 717
Messages
2 112 168
Membres
111 448
dernier inscrit
ayment