Alain 7633
XLDnaute Nouveau
Bonjour à tous,
Je viens de m'inscrire sur le site.
Je rencontre un problème de format d'email envoyé par Excel en vba.
Le rendu sur PC est plutôt propre et correspond à mes attentes (la taille de l'image est normale).
Alors que sur mobile (IPhone), l'image est toute petite (style miniature) ; ç'est ça que j'aimerais corriger.
voici le rendu PC :
voici le rendu mobile :
voici le code :
NBlignes = Mafeuille.Range("a" & (Application.Rows.Count)).End(xlUp).Row
NBlignes = NBlignes - 1
Sheets("GRAPH1").Select
Range("A1").Select
Application.ScreenUpdating = True
Application.Wait (Now + TimeValue("0:00:05"))
Mafeuille.Range("a1
With Selection.Parent.MailEnvelope.Item
'.Introduction = Message
.to = DEST
'cc = ""
'bcc= ""
.Subject = ""
.send
End With
End If
End Sub
-------------------------
Merci d'avance à tous !
Je viens de m'inscrire sur le site.
Je rencontre un problème de format d'email envoyé par Excel en vba.
Le rendu sur PC est plutôt propre et correspond à mes attentes (la taille de l'image est normale).
Alors que sur mobile (IPhone), l'image est toute petite (style miniature) ; ç'est ça que j'aimerais corriger.
voici le rendu PC :
voici le rendu mobile :
voici le code :
NBlignes = Mafeuille.Range("a" & (Application.Rows.Count)).End(xlUp).Row
NBlignes = NBlignes - 1
Sheets("GRAPH1").Select
Range("A1").Select
Application.ScreenUpdating = True
Application.Wait (Now + TimeValue("0:00:05"))
Mafeuille.Range("a1
With Selection.Parent.MailEnvelope.Item
'.Introduction = Message
.to = DEST
'cc = ""
'bcc= ""
.Subject = ""
.send
End With
End If
End Sub
-------------------------
Merci d'avance à tous !