XL 2016 Définir une partie Excel à envoyé

[MOEZ-TUN]

Bonjour
J'ai un macros pour envoyer une partie de feuille Excel par messagerie Outlook
Mon problème est comment définir cette partie conditionnelle.

Voici mon macros :
Sub envoi_mail()
Dim Plage As Range
Dim Mafeuille As Worksheet
Dim NbLigne As Integer

ActiveSheet.Range("A3:C5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With Selection.Parent.MailEnvelope.Item

For i = 2 To Worksheets("Feuil1").Range("M" & Rows.Count).End(xlUp).Row
Destinataires = Destinataires & ";" & Worksheets("Feuil1").Range("M" & i).Value
Next i
.To = Destinataires
.Subject = "coo"
.send
End With
Range("A4:J52").Select
Selection.ClearContents
MsgBox "votre mail a été envoyé", vbInformation + vbOKOnly, "confirmation d'envoi"
ActiveWorkbook.EnvelopeVisible = True
End Sub

 

[Pounet95]

Bonjour,
Avec ceci ?

Range("D1:F8").Cells.SpecialCells(xlCellTypeVisible).Select
Selection.Copy

Range("D20").Select
ActiveSheet.Paste

 

[sylvanu]

Bonjour Moet-Tun, Pounet,
Et pourquoi pas simplement :

[EnvelopeVisible] = ActiveSheet.Range("A3:C5").Value

 

[MOEZ-TUN]

Bonjour a tous
Merci Pounet95 & sylvanu

Je veux envoyer une partie conditionnelle d'une DB lier a la valeur de Qte.
Avec :
ActiveSheet.Range("A3:C5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
Toujours il envoyé Les (A3;C5).

Merci

 

[Pounet95]

Bonjour,
Tel que décrit dans la 1ère ligne, ce sera toujours cette plage de données qui sera envoyée !
Que veut-dire ... Les (A3;C5) ?

 

[MOEZ-TUN]

Bonjour Pounet95
c'est un exemple,je réussi de n'envoyer une parti fixe (entourer en rouge).

Mais moi je que les cas où la qte est zero.
Merci

 

[Pounet95]

Bonjour,
Désolé de jeter l'éponge. Je ne sais pas
Je viens juste de voir EnvelopeVisible dans l'aide (F1) : je n'ai rien compris !!!!

 

[MOEZ-TUN]

Bonjour Pounet95

Merci
Est ce que on peur ennoyer la cellule date lorsque est égale au date AUJOURDHUI() ?

 

[Pounet95]

Re,
Je me répète : je jette l'éponge !