XL 2019 Modification VBA

[JR.31]

Bonjour,
Comment puis je modifier ceci pour que l'adresse mail soit rechercher dans une cellule d'un onglet spécifique.
Ca fait deux jours que je planche la dessus.
Merci de votre aide.

Sub Mail()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object

With Application
.ScreenUpdating = False
.EnableEvents = False
End With
' Cr?er une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
' D?finit le nom du fichier ? enregistrer
sNomFic = "Commande.pdf"
' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "JR.31@hotmail.fr"
.Cc = ""
.Attachments.Add (sRep & "\" & sNomFic)
.Subject = "Commande STRUMIA"
.Display
End With

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub

 

[GALOUGALOU]

re jr31 bonjour le forum
par
.To = Sheets("Mail").Range("C1").Text

votre feuille votre cellule
(dans la feuille et cellule, l'adresse mail uniquement, écrite de manière parfaite)

cordialement
galougalou

 

[JR.31]

Bonjour GALOUGALOU,
Merci de ton aide ca marche nickel.
JR.31