Discussion :

[brioche31]

Bonjour

Je ne connais que très très peu le VBA donc je galère pas mal ..

J'ai un code qui permet de copier une feuille vers une nouvelle en choisissant le nom dans une fenêtre . Cela fonctionne, mais par contre il y à des graphiques qui gardent les liens avec les données ce que je ne veux pas ! j'aimerai qu'ils soient copiés en format images. j'ai trouvé des commandes VBA pour ça mais impossible )à placer dans le code que j'ai sans erreurs.. de plus il me copie aussi les boutons VBA de commandes ce que je ne veux pas, je désire juste les tableaux et les graphiques en images c est tout !

Voici la partie du code de copie:

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
Private Sub OK_Click()
If ComboBox1 = "" Then
MsgBox ("VEUILLEZ SELECTIONNER LA SEMAINE A CREER")
Exit Sub
End If
For I = 1 To Sheets.Count
If UCase(Left(Sheets(I).Name, Len(ComboBox1))) = UCase(ComboBox1) Then
MsgBox ("La feuille " & UCase(ComboBox1) & " existe déjà, si vous désirez regénérer une feuille de données veuillez la supprimer avant toute action")
Exit Sub
End If
Next I
' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
 Application.ScreenUpdating = False
 Sheets("Reporting").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
     .Name = UCase(ComboBox1) & "_" & Format(Now, "yyyy")
     With .UsedRange
         .Value = .Value
     End With
End With
Unload Me
End Sub

Merci les gens d'avance !