[VBA-E]Pop up sous Excel

Bonjours à tous,

J'aimerai savoir si il etait possible d'ouvrir des fenetre sous forme de pop up sous excel.Ex : vous avez des données , de la via une macro se crée un graphe qui s'ouvre en pop up.

Merci .

Antoine

bonjour

j'espere que cet exemple pourra t'aider, à condition que tu disposes d'Internet Explorer

Code:

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
 
Dim nomImage As String
Dim IE As Object
Dim Hauteur As Single, Largeur As Single
 
nomImage = "C:\imageTemp.gif"
 
'supprime l'image si elle existe déja
If Dir(nomImage) <> "" Then Kill nomImage
'--------------------
 
'---- creation du graphique
Application.ScreenUpdating = False
Charts.Add
    With ActiveChart
        .ChartType = xlLineMarkers
        .SetSourceData Source:=Sheets("Feuil1").Range("A1:B5"), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:="Feuil1"
    End With
 
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "le graphique"
        .HasLegend = True
        .Legend.Position = xlLegendPositionRight
    End With
 
ActiveChart.Export nomImage, "GIF" 'export du graphique au format image
Hauteur = Feuil1.ChartObjects(Feuil1.ChartObjects.Count).Height * 1.8
Largeur = Feuil1.ChartObjects(Feuil1.ChartObjects.Count).Width * 1.6
 
Sheets("Feuil1").ChartObjects(Sheets("Feuil1").ChartObjects.Count).Delete
Application.ScreenUpdating = True
'--------------------
 
'creation d'une fenetre internet explorer pour visualiser l'image du graphique
Set IE = CreateObject("InternetExplorer.application")
IE.navigate "about:blank"
IE.document.Title = "mon graphique"
IE.addressbar = False
IE.MenuBar = False
IE.StatusBar = False
IE.Toolbar = False
IE.Width = Largeur
IE.Height = Hauteur
IE.Left = 120
 
IE.document.body.innerHTML = "<html><IMG SRC='" & nomImage & "'</html>"
IE.Visible = True

bon apres midi
michel

Merci Michel pour cet réponse c'est très efficace. Ca me parait être une solution très bonne pour ce que j'ai à faire.

Mille merci.

Antoine