XL 2010 probleme code entre 2010 et 2013

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MASSJIPE

XLDnaute Impliqué
Bonjour
J'ai un soucis Excel 2010 et 2013
(Cette feuille de calcul contient des lignes ou des colonne masquées que le destinataire pour rendre visibles souhaitez vous continuer)
Voici le 1 code pour moi RAS
VB:
Sub EQA()
 EQA Macro
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "A"
    Range("K2").Select
    Sheets("BDD").Select
    ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=6, Criteria1:= _
        "1"
    Sheets("tableau de bord").Select
     Range("L6").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    Range("F7").Select 
End Sub
2 code
lorsque l'envoie par mail j'ai le message suivant (Cette feuille de calcul contient des lignes ou des colonne masquées que le destinataire pour rendre visibles souhaitez vous continuer) sur 2010 j'ai bien la plage sélectionnée mais sous 2013 j'ai toute la plage de A1 à A 189 avec des lignes vides entre deux
je joint le fichier le problème est sur la feuille BDD
VB:
Sub envoi_mail()
Dim PlageTo As Range, PlageCc As Range, Cel As Range, ToutTo$, ToutCc$
Dim plage As Range, derLig As Integer
Sheets("BDD").Select
On Error Resume Next
derLig = Cells(2000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:F" & derLig
On Error GoTo 0
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
With Sheets("LISTE")
Set PlageTo = .Range("A1:A" & .[A65536].End(2).Row)
Set PlageCc = .Range("A1:A" & .[A65536].End(2).Row)
End With
For Each Cel In PlageTo
If Cel(, 2) = "A" Then ToutTo = ToutTo & ";" & Cel(, 1)
Next
If ToutTo <> "" Then ToutTo = Right(ToutTo, Len(ToutTo) - 1) Else MsgBox "Pas de destinataires": Exit Sub

For Each Cel In PlageCc
If Cel(, 2) = "C" Then ToutCc = ToutCc & ";" & Cel(, 1)
Next
If ToutCc <> "" Then ToutCc = Right(ToutCc, Len(ToutCc) - 1)
With ActiveSheet.MailEnvelope
'"Item" représente un objet Outlook "MailItem".
.Item.To = ToutTo
.Item.CC = ToutCc
.Item.Subject = Range("A1").Value
.Item.display
End With
End Sub
D'avance merci
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
201
Réponses
4
Affichages
177
Réponses
10
Affichages
281
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour