Macro Mail Outlook avec choix pour destinataire

magnifique merciiiiiiiiiiiiiiii

et du coup à quoi elle sert cette ligne

.Attachments.Add Nom_Fichier(i) '"C:\Data\essai.txt" ' ou Nomfichier

Quand je met ChDir "c:\" j'atteri bien à la racine de C

mais quand je veut atterir à la racine d'une partition G ca ne fonctionne pas

Sub envoiemailpiecejointe()
    Dim ObjOutlook As New Outlook.Application
    Dim oBjMail
    Dim Nom_Fichier

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)

    ChDir "c:\"
    Nom_Fichier = Application.GetOpenFilename(Title:="Selection de tous les fichiers", MultiSelect:=True)
    If Not IsArray(Nom_Fichier) Then Exit Sub

    With oBjMail
    .Display ' Ici on peut supprimer pour l'envoyer sans vérification
    .To = "ECRIRE EMAIL CLIENT" ' le destinataire
    '.BCC = "" 'adresse destinataires pour info
    .Subject = "ECRIRE OBJET " ' l'objet du mail
    .HTMLBody = "ECRIRE LE CONTENU DU MAIL " 'le corps du mail
    .BodyFormat = olFormatHTML 'signature outlook
    For i = 1 To UBound(Nom_Fichier)
    .Attachments.Add Nom_Fichier(i) '"C:\Data\essai.txt" ' ou Nomfichier
    Next
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing

    End Sub

Essaie g:\ ou G:\

pouns94 a écrit :

et du coup à quoi elle sert cette ligne

.Attachments.Add Nom_Fichier(i) '"C:\Data\essai.txt" ' ou Nomfichier

à ajouter chaque fichier sélectionné !

nikel ca fonctionne mais des que je ferme mon classeur et que je le réouvre, je reviens sur c:\mes documents systematiquement

essaie :

Private Sub Workbook_Open() 
ChDir "G:\"
End Sub

Rien ne fonctionne la. que G soit en minuscule ou majuscule, ya rien qui s'ouvre, et j'ai meme pas une erreur indiqué.

Sub envoiemailpiecejointe()
    Dim ObjOutlook As New Outlook.Application
    Dim oBjMail
    Dim Nom_Fichier

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)

    End Sub

    Private Sub Workbook_Open()
    ChDir "g:\"
    End Sub

    Nom_Fichier = Application.GetOpenFilename(Title:="Selection de tous les fichiers", MultiSelect:=True)
    If Not IsArray(Nom_Fichier) Then Exit Sub

    With oBjMail
    .Display ' Ici on peut supprimer pour l'envoyer sans vérification
    .To = "ECRIRE EMAIL CLIENT" ' le destinataire
    '.BCC = "" 'adresse destinataires pour info
    .Subject = "ECRIRE OBJET " ' l'objet du mail
    .HTMLBody = "ECRIRE LE CONTENU DU MAIL " 'le corps du mail
    .BodyFormat = olFormatHTML 'signature outlook
    For i = 1 To UBound(Nom_Fichier)
    .Attachments.Add Nom_Fichier(i) '"C:\Data\essai.txt" ' ou Nomfichier
    Next
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing

    End Sub

Donc G n'est pas reconnu

mets une copie d'écran de l'explorateur windows !