Sélection tableau pour mettre dans un email
Bonjour,
Je veux créer une fonction pour mettre un tableau dynamique excel dans un mail.
J'ai trouvé ce code sur internet.
Sub emai_range()
Dim OutApp As Object
Dim OutMail As Object
Dim count_row, count_col As Integer
Dim pop As Range
Dim strl, str2 As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
count_row = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
count_col = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight)))
Set pop = Sheets("Fichier Suivi").Range(Cells(1, 1), Cells(count_row, count_col)Le code marche bien, sauf il a été conçu pour un tableau où toutes les cellues sont remplies.
Mon tableau a des cellules vides donc seulement la première partie du tableau qui est rempli est exporté.
Pour la partie count_col j'aimerais que le range va d'A1 à AC1... j'essayais de reformuler le code qqs fois mais sans succès.
Quand j'essaye Range("A1:AC1") ça prends des cellules vides du tableau mais pas l'intégralité.
Savez-vous quoi faire?
Merci,
bonjour
remplace ceci
count_row = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
count_col = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight)))par cela si toujours se baser sur la colonne "A" et la ligne 1
count_row =cells(rows.count,"A").End(xlup).row
count_col = cells(1,columns.count).End(xlToLeft).columnsinon ca sera avec l'usedrange
Mille mercis!
C'est top!!
Une autre petite question, comment fait-on si on veut garder seulement des certaines parties du tableau, par exemple des colonnes A à I ou même la colonne A et puis les colonnes J à Q?
(Les lignes restent dynamiques)
Merci
re
ben il m'en faudrait un peu plus
un fichier réduit a l’essentiel par exemple