[Excel] Emplacement Userform
Résolu
Alessia
-
CapitainCo Messages postés 126 Date d'inscription Statut Membre Dernière intervention -
CapitainCo Messages postés 126 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- [Excel] Emplacement Userform
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
2 réponses
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
Merci beaucoup CaptainCo