Macro qui bug

[Antoine]

Bonsoir forum

Comment va?
cette macro sert a envoyer un mail a plusieurs personnes

Pour savoir lesquelles

x défini avant

For i = 18 To 23
If Cells(26, x).Value = Worksheets('Hoja1!').Cells(i, 72).Value Then
Destinaire = Destinaire + ';' + Worksheets('feuille1!').Cells(i, 73).Value & ';' & Worksheets('feuille1!').Cells(i, 74).Value
End If
Next i

elle m indique une erreur 1004 et je n arrive pas a regler le pb

Qqun aurait t´il une idée?

MErci d avance

Antoine

 

[Creepy]

Hello,

Ta feuille s'appelle 'feuille1!' ??

Par defaut le nom est : Feuil1
je pense que tu as du faire un copier coller malheureux sans enlever le '!'

Ensuite en Vb on met des & et non un + ici : + \\';\\' +

Voila Si ca marche pas met un exemple en PJ !!

++

Creepy