Discussion :

[Arschney]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Columns.AutoFit

bonne soirée
michel

[Arschney]

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 .

[Arschney]

Salut !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
With selection
    .WrapText = False
End With

devant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Columns.AutoFit

Et ça marche nikel !

Merci SilkyRoad