Microsoft 365 Envoi plage de cellules d'une feuille excel par mail en renommant le fichier envoyé

[Huggy22]

Bonjour à tous.

Dans le fichier ci-joint, je parviens à envoyer une feuille de mon classeur excel via outlook. Mais je rencontre deux petits soucis : j'aimerai envoyer uniquement les cellules A01:H35 dans un fichier excel et je souhaiterai que le fichier envoyé porte le nom de la cellule B3.

D'avance merci et bonne journée !

 

[Hasco]

Bonjour

Feuille.Copy ne crée un classeur que si vous ne spécifiez pas de plage de cellule, la feuille entière est alors créée comme première feuille du classeur.

Si vous voulez copier une plage de cellule, il vous faut d'abord créée le classeur.

Sub Image4_Cliquer()
'
' Image4_Cliquer Macro
'
    Dim wk As Workbook
    Dim Adr As String 'Adresse
    Dim T As String 'L'objet du message
    Adr = "maurice.bejart@hotmail.com"
    T = "Commande " & Range("B3")
    
    'Création d'un classeur qui recevra la copie de la plage de cellule
    Set wk = Workbooks.Add()
    ' Copier la plage de cellule de la feuille BCI de ce classeur
    ' vers la première feuille du nouveau classeur
    ThisWorkbook.Sheets("BCI").Range("A1:H35").Copy wk.Sheets(1).Range("A1")
    ' Pour éviter les différents message (enregistrement sans macro etc.)
    Application.DisplayAlerts = False
    wk.SaveAs ThisWorkbook.Path & "\" & T & ".xlsx", 51
    Application.DisplayAlerts = True
    
    Application.Dialogs(xlDialogSendMail).Show Adr, T
End Sub

 

[Huggy22]

Un tout grand merci, c'est juste parfait !

Bonne fin de journée.

 

[Huggy22]

Désolé de revenir vers vous, mais j'ai parfois un message d'erreur (voir capture d'écran). D'autre part, existe-t-il une commande pour conserver la largeur des colonnes ?

Merci,
Bien cordialement.

 

[Hasco]

Re,

votre message d'erreur provient certainement de la construction de votre nom de fichier.
Je ne peux pas ni deviner ni vous dire plus comme ça.
Pour la deuxième question, elle ne rentre pas dans le cadre de cette discussion.
Terminez cette discussion en résolvant son problème puis éventuellement recréez en une autre pour l'autre question.

 

[Huggy22]

Désolé de revenir vers vous, mais j'ai parfois un message d'erreur (voir capture d'écran). D'autre part, existe-t-il une commande pour conserver la largeur des colonnes ?

Merci,
Bien cordialement.

Je crois que l'erreur provient lorsque la référence du classeur excel créé existe déjà. Est-il possible de supprimer la copie du fichier excel sur mon disque C après envoi du mail ?

Bien à vous,

 

[Hasco]

Re,

Utilisez avant de le recréer :

If Dir(CheminVersLefichier) <> "" then Kill CheminVersLefichier

 

[Huggy22]

C'est nickel !
Merci beaucoup !