J utilise beaucoup les fonctions, mais je ne connais que très peu le VBA. J'ai un code fonctionnel qui permet de copier une feuille avec des graph et tableaux vers une autre dont on choisit les nom dans une boite de dialogue le voici :
Private Sub annuler_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub Label1_Click()
End Sub
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
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Semaine42"
ComboBox1.AddItem "Semaine43"
ComboBox1.AddItem "Semaine44"
ComboBox1.AddItem "Semaine45"
ComboBox1.AddItem "Semaine46"
ComboBox1.AddItem "Semaine47"
ComboBox1.AddItem "Semaine48"
ComboBox1.AddItem "Semaine49"
ComboBox1.AddItem "Semaine50"
ComboBox1.AddItem "Semaine51"
ComboBox1.AddItem "Semaine52"
End Sub
Donc là tout fonctionne.. Mais le soucis est que certains graphiques restent liés à des données ce que je en veux absolument pas ! Il ne faut pas que les données se mettent à jours.. Donc comment lui dire d'exporter les graphiques en images ?
