Bonjour lulu37,

Dans ta feuille de calcul, utilise des boutons de la barre d'outils Boîte à outils Contrôles.
Fais ce petit test (en adaptant avec tes noms de feuille et de boutons) :

Private Sub BoutonFormulaire_Click()
  Sheets("Feuil1").OLEObjects("BoutonFeuilleCalcul").Visible _
  = Not (Sheets("Feuil1").OLEObjects("BoutonFeuilleCalcul").Visible)
End Sub

Merci Armojax pour ta pitié ! lol
Grace à toi, ça commence à prendre forme !
Pour ceux que ça intéresse, j'ai même simplifié :

Sheets("NomFeuil1").OLEObjects("NomBoutonFeuilleCalcul").Visible = True (ou False selon mes besoins)

à bientôt pour de nouvelles aventures...

Ludivine

Bonjour,

J'ai sensiblement le même problème que notre ami, aussi je ne créé pas de topic inutile....

Je cherche déséspéremment la solution à mon petit problème.

J'ai deux fichiers différents. Les informations du deuxième ont été copiées au préalable depuis le premier.

Je veux donc ensuite créer un bouton depuis le premier fichier, qui ouvre, renomme le fichier n°2 sous un autre nom, enlève la protection, effectue un copier-coller valeurs puis un copier-coller formats, enregistre mon fichiers n°2 (désormais libéré de ses formules de copie depuis le fichier 1), et le ferme.

Cela semble très simple, mais j'ai toujours l'erreur signalée en jaune suivant (mais que j'ai écris en rouge ici):


Private Sub CommandButton1_Click()
'
' GAV18 Macro
' GAV REELLES DE 18H00
'

'
Workbooks.Open Filename:= _
"X:\COIS\ETAT QUOTIDIEN DES GAV\GAV REELLES\GAV REEL - 18H - modèle à ne pas enregistrer.xls"
ActiveSheet.Unprotect
ActiveWorkbook.SaveAs Filename:= _
"X:\COIS\ETAT QUOTIDIEN DES GAV\GAV REELLES\GAV REELLES 18H A RENOMMER.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("G121").Select
ActiveWindow.SmallScroll Down:=-135
Range("A2:G121").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C9").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


Merci de bien vouloir m'éclairer sur la solution : faire communiquer le fichier 1 avec le fichier n°2 qui est fermé au moment du lancement de la macro, afin que tout s'exécute depuis le fichier n°1, sans avoir à ouvrir le fichier n°2.....