CheckBox

Bonsoir à tous deux,

Merci pour vos répenses.
C'est en effet la première des choses que j'ai vérifié le nom des feuilles.
Ce qui m'étonne c'est que tout est bon, j'ai même remarqué que sur une feuille où le nom est en majuscule, dans ma formule c'est en minuscule et pourtant cela fonctionne quand même.
D'où mon intérrogation.
La nuit porte conseil, peut être que demain cela ira mieux.

Dan

Si ton classeur n'est pas confidentiel, tu pourrais nous le passer ?
https://www.cjoint.com/
m@rina

Bonjour à tous deux,

J'ai réécrit les noms des onglets qui faisaient boguer et vérifié les guillemets.
En effet cela fonctionne, c'était un détail.
Merci de votre collaboration
Sujet résolu.

Dan

Bonjour,

Si je peux me permettre, j'ai un autre sujet sans rapport avec la checkbox mais peut être vous pouvez m'aider.

je voudrais envoyer un classeur par mail en vba, j'ai la formule qui va bien mais je n'arrive pas à avoir le corps du message avec saut de ligne du style:

veuillez trouvez ci-attaché le planning...

cordialement
prénom nom
grade fonction

Voici la formule d'envoie:
Sub EnvoiFeuilCalculMail()

Dim Destinataire As String
Dim ObjetMessage As String
Dim AccuseReception As String
Dim MonClasseur As Workbook
Dim Wbk As Workbook

Set Wbk = ActiveWorkbook
SendKeys "{E}"

Dim myadress(1 To 6)

Set mylst = ActiveSheet.Range("G66:G72")
Count = 1

For Each Envoi In mylst
If Len(Envoi) Then myadress(Count) = Envoi: Count = Count + 1
Next
Wbk.SendMail Recipients:=Array(ActiveSheet.Range("G66").Value, ActiveSheet.Range("G68").Value, ActiveSheet.Range("G70").Value, ActiveSheet.Range("G72").Value), Subject:=" P1", ReturnReceipt:=True

Range("B9").Select
Wbk.Close savechanges:=True
Set Wbk = Nothing
End Sub

Si vous avez une idée. Merci de votre aide.
Dan

Salut le forum

Tu devrais plutôt créer un nouveau message, aucun rapport avec la question initiale.

Mytå

Salut,

Je sais que cela n'a aucun rapport, c'était pour le cas où un de vous deux aurait une solution.

Dan