[Excel] Emplacement Userform
Résolu/Fermé
Alessia
-
8 juil. 2008 à 15:16
CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 - 8 juil. 2008 à 15:49
CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 - 8 juil. 2008 à 15:49
A voir également:
- [Excel] Emplacement Userform
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Comment calculer la moyenne sur excel - Guide
2 réponses
CapitainCo
Messages postés
126
Date d'inscription
mardi 24 juin 2008
Statut
Membre
Dernière intervention
5 novembre 2009
61
8 juil. 2008 à 15:29
8 juil. 2008 à 15:29
Sub Bouton36_QuandClic()
Sheets("Feuille Pivot").Select
Set CurrentChart = Sheets("Feuille Pivot").ChartObjects(1).Chart
Sheets("Feuille Pivot").ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
Fname = ThisWorkbook.Path & "\temp2.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
UserForm1.Image1.Picture = LoadPicture(Fname)
Worksheets("QSM Conso").Activate
UserForm1.Show
End Sub
test ca
Sheets("Feuille Pivot").Select
Set CurrentChart = Sheets("Feuille Pivot").ChartObjects(1).Chart
Sheets("Feuille Pivot").ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
Fname = ThisWorkbook.Path & "\temp2.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
UserForm1.Image1.Picture = LoadPicture(Fname)
Worksheets("QSM Conso").Activate
UserForm1.Show
End Sub
test ca
CapitainCo
Messages postés
126
Date d'inscription
mardi 24 juin 2008
Statut
Membre
Dernière intervention
5 novembre 2009
61
8 juil. 2008 à 15:49
8 juil. 2008 à 15:49
dr
8 juil. 2008 à 15:39
Merci beaucoup CaptainCo