[VBA] Gérer la taille des cellules lors de l'envoi de mail depuis excel

Bonjour à tous,

J'envoie grâce à une macro excel une partie de mes feuilles excel par mail.
La création et l'envoie du mail se déroulent sans problème grâce au code ci-dessous :

Code:

---

1 2 3 4 5 6 7

ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = "monadresse@chez.com" .Item.Subject = "Test" .Item.Send End With

---

Or mon fichier excel contient des mots très longs (des noms de ficher). Et si ces mots apparaissent sur deux lignes dans excel, ils ne sont que sur une ligne dans le mail alors que la taille de la cellule ne change pas. Il y a donc une partie du nom du fichier qui est invisible. (si vous ne me trouvez pas clair, dites le j'insérerai des images)

Je voudrais donc que vous m'indiquiez un moyen de forcer l'affichage sur plusieurs lignes dans le mail, ou d'augmenter la largeur des cellules pour qu'elles s'adaptent au mot le plus long.

Merci d'avance

bonjour

Tu peux ajouter cette ligne en début de procédure pour adapter la taille des colonnes au contenu des cellules:

Code:

---

ActiveSheet.Columns.AutoFit

---

bonne soirée
michel

Je testerai ça demain et vous tiendrai au courant.

Mais j'ai peur que ça ne suffise pas car même si je redimensionne les cellules avant de lancer la macro, le problème est toujours la.

Dans tous les cas, merci du temps que tu me consacres .

Salut !

J'ai réussi à résoudre mon problème en rajoutant

Code:

---

1 2 3 4

With selection .WrapText = False End With

---

devant

Code:

---

ActiveSheet.Columns.AutoFit

---

Et ça marche nikel !

Merci SilkyRoad :king: