Probleme zone tableau pour creation pdf

bonjour

je tourne en rond et ne capte pas le probleme

je veux creer un pdf d'une zone de mon tableau de A1:K18

j'utilise ce code pris dans le forum et qui fonctionne parfaitement avec l'exemple de base mais je vois pas ou on met la zone du tableau

mon pdf ne se cree qu'avec la cellule a1 , pire si je met des données en a2 le pdf comprend a1 et a2 etc.....

comment et ou cree cette fameuse zone ?

bien sur j'ai teste de mettre range("A1:K18) mais ça ne marche pas

===============

Sub SendRangeByMail()

Dim appOutlook As Object

Dim oMail As Object

Dim sh As Worksheet

Set sh = Sheets("demande transfert")

chemin = ThisWorkbook.Path & "\"

NomDuFichier = chemin & " transfert chant.pdf"

sh.Range("A1").CurrentRegion.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomDuFichier, Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Set appOutlook = CreateObject("Outlook.Application")

If Not (appOutlook Is Nothing) Then

Set oMail = appOutlook.CreateItem(olMailItem)

With oMail

.To = "@entreprise.fr"

.Subject = "demande transfert de chants"

.Attachments.Add NomDuFichier

.Display 'metre cette ligne en commentaire pour éviter l'affichage du mail

' .Send 'mettre cette ligne active pour l'envoi du mail sans qu'il soit affiché

End With

Set oMail = Nothing

Set appOutlook = Nothing

End If

End Sub

Bonjour,

C'est ceci sh.Range("A1").CurrentRegion qui détermine dans ton code les cellules à prendre en compte.

Change A1 par l'une des cellules de ton tableau à condition qu'il soit isolé (CurrentRegion), sinon précise par exemple Range("D2:Z20") sans y adjoindre CurrentRegion

oui merci j'ai finalement trouvé par contre est t'il possible de ne pas enregistrer le fichier en pdf sur le pc mais uniquement le joindre en PJ ?

Oui et non

Il faut que tu l'enregistres par exemple dans ton répertoire "temp" Environ("Temp") & "\" et que tu le supprimes kill ensuite.

Exemple

    nompdf = Environ("Temp") & "\" & "fichier test"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = [destinataire]
        .Subject = [titre]
        .body = "Veuillez trouver en pièce jointe ..."
        .ReadReceiptRequested = True
        .Attachments.Add nompdf & ".pdf"
        .display
    End With
    Set email = Nothing
    Set messagerie = Nothing

    Kill Environ("Temp") & "\" & "fichier test" & ".pdf"