Modifier ligne de codes pour terminaisons

bonjour a vous tous

dans le code qui suit

Sub transfert(doc As String)
extention = Right(doc, 3)

Select Case extention

Case "jpg", "JPG", "jpeg", "BMP", "bmp", "pdf"
form_email.piece_jointe = doc

Case "xls"
'ouverture du document
    Set ledoc = Workbooks.Open(lenom)
    chemin_temp = "C:\Users\" & Application.UserName & "\Desktop\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_temp & lenom2(doc) & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    form_email.piece_jointe = chemin_temp & lenom2(doc) & ".pdf"
    ledoc.Close
    LEDOCUMENT = ""
End Select
End Sub

comment puis je faire pour que cette ligne

Case "jpg", "JPG", "jpeg", "BMP", "bmp", "pdf"

puisse intégrer toutes les terminaisons existantes et non être limitées comme elles le sont?

Pascal

Bonsoir,

essaie ceci

Sub transfert(doc As String)
extention = Right(doc, 3)

Select Case extention

Case "xls"
'ouverture du document
   Set ledoc = Workbooks.Open(lenom)
    chemin_temp = "C:\Users\" & Application.UserName & "\Desktop\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_temp & lenom2(doc) & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    form_email.piece_jointe = chemin_temp & lenom2(doc) & ".pdf"
    ledoc.Close
    LEDOCUMENT = ""
case else
    form_email.piece_jointe = doc
End Select
End Sub

bonsoir H2so4

Merci beaucoup cela m'ôte une épine, c'est tout a fait ce qu'il fallait ,simple et fonctionnelle et plus

Pascal