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
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 : 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 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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager