Contenu récent par Philippe65

  1. P

    Microsoft 365 Selection de cellules a envoyer par mail

    en creant un boutton copier le tableau avec le code Sub CopierTableau() Range("A1:E" & Cells(Rows.Count, "E").End(xlUp).Row).Copy End Sub et avec Sub Enoyerparmail() Dim oOutlook As Object Set oOutlook = CreateObject("outlook.Application") Dim oMail As Object Set oMail =...
  2. P

    Microsoft 365 Selection de cellules a envoyer par mail

    Sub CopierTableau() Range("A1:E" & Cells(Rows.Count, "E").End(xlUp).Row).Copy End Sub Je suis debutant en VBA, je découvre
  3. P

    Microsoft 365 Selection de cellules a envoyer par mail

    Pour selectionner la partie que je souhaite envoyer : Range("A1:E" & Cells(Rows.Count, "E").End(xlUp).Row).Select Ca ça marche, mais je n'arrive pas à le mettre dans le corps du mail Une idée ?
  4. P

    Microsoft 365 Selection de cellules a envoyer par mail

    Merci, ca fonctionne avec ta feuille mais pas quand je le copie sur mon fichier
  5. P

    Microsoft 365 Selection de cellules a envoyer par mail

    Merci je vais regarder
  6. P

    Microsoft 365 Selection de cellules a envoyer par mail

    Bonjour le forum J'ai fait un TCD dt je souhaite envoyer par mail le contenu du resultat qui se trouve entre les cellules A et E avec un nombre de ligne variable en fonction des resultats Je n'arrive pas a selectionner pour le coprs du mail ces cellules en VBA, j'ai laissé le code sans sujet...