Discussion :

[marccelestins]

Bonjour,

J'aimerais envoyer un tableau filtré en fonction des destinataires.Voici mon code qui fonctionne très bien quand j'indique ma plage mais j'aimerais filtré en fonction des destinataires.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Function RangetoHTML(ByVal rng As Range)
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook
 
    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
 
        .Cells(1).PasteSpecial Paste:=12
        .Cells(1).PasteSpecial Paste:=-4122
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        .Columns.AutoFit
        On Error GoTo 0
    End With
 
 
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")
 
    TempWB.Close savechanges:=False
 
 
    Kill TempFile
 
    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set Plage = Worksheets("test").Range("A1:K100")
 
'Selection(Plage).AutoFilter Field:=4, Criteria1:=Sheets("Test2").Range("B" & I).Value

je veux filtrer en fonction des destinataires et la feuille test2 est la valeur des destinataires mais j'arrive pas.

J'attends svp vos remarques.

[Invité]

Bonjour,
Personnellement quand je publie un code qui n'est pas de moi, je prends garde de ne pas laisser l'auteur!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function RangetoHTML(rng As Object)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2016
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook
 
    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

ça c'est fait!

fais un filtre actif ou élaboré et récupère le résultat du filtre pour ta conversion HTML.

[marccelestins]

Ok merci rdurupt de ta réponse , peux tu m'éclairer sur ce filtre. as tu un exemple stp à adapter à mon code ?

[marccelestins]

J'attends votre aide svp.

[Oliv-]

Ok merci rdurupt de ta réponse ,

Bonjour,
Je pense pas que c'était le réponse attendue, plutôt un "désolé la prochaine fois je laisserai l'auteur..."

Cherche les sujets comportant le mot PasteExcelTable pour la partie copie vers un Email

tu auras aussi besoin de ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy