maval
XLDnaute Barbatruc
Bonjour,
Je suis a la recherche d'un code pour supprimer tous les boutons qui se trouve sur ma feuille sauf un nommer "dudu"
J'ai comme code ceci qui a était réaliser par Pierrot que je remercie encore.
Je vous remercie de votre aide
Je suis a la recherche d'un code pour supprimer tous les boutons qui se trouve sur ma feuille sauf un nommer "dudu"
J'ai comme code ceci qui a était réaliser par Pierrot que je remercie encore.
Code:
Sub test()
Dim i As Integer, x As String, Chemin As String
Workbooks("Matrise.xlsm").Save
Application.DisplayAlerts = False
For i = 10 To 3 Step -1
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
x = InputBox("Nom fichier ?")
Chemin = "C:\Users\Max\Desktop\Test\"
If x <> "" Then ActiveWorkbook.SaveAs Chemin & x
End Sub
Je vous remercie de votre aide