VBA Ouvre plusiseurs OFT selon un tableau

[Bens7]

Bonjour a tous !
J;ai un tableau avec Nom; Email; numero de facture;Email; et nom de OFT a ouvrire
j'ai quand meme bosser un peu et j'ai reussi a faire ce que je voulais mais que avec la premiere ligne :
ouvre le OFT, met l'adresse mail, joint les pieces jointes...
Le probleme est que je n'ai aucune idee comment continuer la procedure jusqu'a la fin de mon tableau !
Je vous met l'arboresance des dossiers (j'arrive pas a mettre les Thisworkbook.path sur un dossier en arrirere )
a et aussi un petit truc je souhaiterais rajouter le nom du client avant le text du OFT
Merci !

P.S : il est posssible que ya des cellules sans Nom de OFT, ou sans email donc > Continue a la suivante

 

[Regueiro]

Re : VBA Ouvre plusiseurs OFT selon un tableau

Bonsoir à Tous, Bens 7

Petite correction à faire :
Ton fichier excel doit être enregistrer ici MA SOCIETE:

Dans ton Répertoire EMAIL : Corriger OFT 3.oft enlever l'espace autrement ça bug.


Voici le code :

Private Sub CommandButton1_Click()
On Error GoTo e_Rr:
Dim AppOut As Object
Dim oMailItem As Object
Dim NomModele As String
'NomModele = "C:\Documents and Settings\pc-maison\Bureau\MA SOCIETE\EMAIL\" & [AM2].Value
Set AppOut = CreateObject("Outlook.Application")

Derlig = Range("M:M").Find("*", , , , , xlPrevious).Row
NbLig = Range("M2:M" & Derlig).Rows.Count   'Nombre de ligne

'MsgBox (" Nombre de lignes ") & Derlig
MsgBox (" Nombre de lignes") & NbLig

For i = 2 To NbLig + 1 'a modifier pour le nombre de lignes
NomModele = ThisWorkbook.Path & "\EMAIL\" & Cells(i, "AM").Value

Set oMailItem = AppOut.CreateItemFromTemplate(NomModele)
With oMailItem
    .To = Cells(i, "AE")
    .Subject = "Facture N° " & Cells(i, "R")
   .Attachments.Add ThisWorkbook.Path & "\FACTURE\" & Cells(i, "R").Value & ".pdf"
  .Display
'.Send
End With
Next i
e_Rr:
 MsgBox Err.Description, vbCritical, Err.Number

End Sub

Bonne soirée

 

[Bens7]

Re : VBA Ouvre plusiseurs OFT selon un tableau

Tout d'abord merci effectivement ca marche !
.... mais ...
ya un petit bug si dans la collonne AM il ne trouve pas le .oft ou la cellule est vide il continue pas :
exemple:

OFT3.oft
OFT3oft
OFT2.oft
(vide)
OFT1.oft

le mail OFT1.oft ne s'ouvre pas

 

[Bens7]

Re : VBA Ouvre plusiseurs OFT selon un tableau

Petit UP svp le forum ....

 

[Bens7]

Re : VBA Ouvre plusiseurs OFT selon un tableau

RE UP les amis ???