Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
    162.5 KB · Affichages: 15
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...
Trier par date Trier par votes

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
 
Vote positif 0 Vote négatif

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 ?
 
Vote positif 0 Vote négatif

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é
 
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Résolu(e)
Microsoft 365 Code vba pour Ouvrir un fichier et copier son contenu dans un classeur existant à partir de la boite de dialogue
Réponses
3
Affichages
307
Faroyo
F
Y
  • Question
XL 2016 message Outlook
Réponses
10
Affichages
438
YOUYOU25
Y
B
  • Question
Microsoft 365 RESOLU Bouton dans formulaire pour ouvrir lien
Réponses
4
Affichages
384
Bambi35
B
D
  • Question
Microsoft 365 Envoi mails via outlook + base excel
Réponses
2
Affichages
260
duclorenzo
D
C
  • Question
XL pour MAC Enregistrer sous VBA
2
Réponses
20
Affichages
915
fanch55
M
  • Résolu(e)
Microsoft 365 Code transfert
Réponses
11
Affichages
206
Marvin57
M
M
  • Question
XL 2021 VBA pour un journal de comptabilité
Réponses
5
Affichages
359
manzol
M
S
  • Question
Microsoft 365 [Outlook] Macro pour récupérer les données dans propriétés outlook
Réponses
2
Affichages
440
Sarah_Croche
S
  • Question
XL 2016 Bouton vers lien hypertexte issus de formules
Réponses
2
Affichages
550
crocrocro
C
C
  • Question
Microsoft 365 Macro pour créer boite de dialogue
2
Réponses
21
Affichages
1 K
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…