Microsoft 365 supprimer bouton lors de l'enregistrement

[pelerin65]

bonjour,

je cherche le moyen de supprimer un bouton " copie tournée",
lors de l'enregistrement d'un fichier nommé par une valeur de cellule

voici le code

Sub enregistretournee()
'Affectations des Variables
Dim Nom$: Nom = [D3]
Dim Chemin As String
Dim NomDossier As String

'Désactives les alertes
Application.DisplayAlerts = False
Application.ScreenUpdating = False

'Enregistrement du fichier complet
'Adresse de la sauvegarde
Chemin = "C:\Users\6810558F\OneDrive - SNCF\Documents\0-Loc Ng\04-Tournées Realisées\" 'A ajuster selon ton cas
'Message pour l'enregistrement du fichier
If MsgBox("Voulez-vous sauvegarder votre tournée nommée" & " " & Nom, vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
'nom du dossier
NomDossier = Nom & ".xlsb"
'le fichier active est copié
ActiveWorkbook.SaveCopyAs Chemin & NomDossier
' Message dinformation du lieu de l enregistrement
MsgBox "Votre tournée est sauvegardée dans dossier : " & Chr(10) & Chemin, vbInformation, ""

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End If

End Sub

cordialement

 

[Staple1600]

Re

@pelerin65
Ce serait plus simple si tu joignais un fichier exemple allégé et anonymisé
Afin qu'on voit de quel type de bouton il s'agit.
(Shapes ou CommandButton)

 

[jcf6464]

Bonjour pelerin65 et le forum

Définir une zone d'impression en excluant les boutons,
sans fichier un peut vague,

Bonne continuation jcf

 

[Staple1600]

Re, Bonjour @jcf6464

En attendant le fichier
(en guise de test)

Sub test_Suppression_A()
'ici bouton issue de la barre Contrôles de formulaire
ActiveSheet.Buttons("Bouton").Delete
End Sub
Sub test_Suppression_B()
'ici bouton issue de la barre Contrôles ActiveX
ActiveSheet.Shapes("CommandButton1").Delete
End Sub

NB: Test OK
le 1er bouton a été renommé : bouton
Le 2nd (un CommandButton) a été juste inséré.
Résultat:
Dans les deux cas, le bouton est effacé.

 

[pelerin65]

Bonjour,

Voilale fichier "essai"

Cordialement

 

[Staple1600]

Re

@pelerin65
Sur la base de ton fichier
Testes ceci

Sub test_Suppression_A()
'ici bouton issue de la barre Contrôles de formulaire
ActiveSheet.Buttons("Bouton 7").Delete
End Sub

Normalement le bouton SAUVEGARDE TOURNEE sera effacé.

 

[pelerin65]

Re,

Ca fonctionne mais ça l'efface aussi dans le fichier d'origine hélas,
C'est ce que je ne veux pas

 

[Staple1600]

Re

Ce petit test fonctionne sur mon PC

Sub test_2()
'on copie la feuille dans un nouveau classeur
ActiveSheet.Copy
' on supprime le bouton dans la copie
ActiveWorkbook.Sheets(1).Buttons("Bouton 7").Delete
' suite du code pour enregistrer la copie
'reprendre cette partie dans le code du message#1
End Sub

NB: Le code est stocké dans le fichier source.

 

[pelerin65]

Sub enregistretournee()
'Affectations des Variables
Dim Nom$: Nom = [D3]
Dim Chemin As String
Dim NomDossier As String

'Désactives les alertes
Application.DisplayAlerts = False
Application.ScreenUpdating = False

'Enregistrement du fichier complet
'Adresse de la sauvegarde
Chemin = "C:\Users\6810558F\OneDrive - SNCF\Documents\0-Loc Ng\04-Tournées Realisées\" 'A ajuster selon ton cas
'Message pour l'enregistrement du fichier
If MsgBox("Voulez-vous sauvegarder votre tournée nommée" & " " & Nom, vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
'nom du dossier
NomDossier = Nom & ".xlsb"
'le fichier active est copié
ActiveWorkbook.SaveCopyAs Chemin & NomDossier
' Message dinformation du lieu de l enregistrement
MsgBox "Votre tournée est sauvegardée dans dossier : " & Chr(10) & Chemin, vbInformation, ""

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End If

End Sub

VB:
Sub test_2()
'on copie la feuille dans un nouveau classeur
ActiveSheet.Copy
' on supprime le bouton dans la copie
ActiveWorkbook.Sheets(1).Buttons("Bouton 7").Delete
' suite du code pour enregistrer la copie
'reprendre cette partie dans le code du message#1
End Sub

Je ne comprends pas ou le mettre avec mon code d'origine
car en enregistrant il prends le nom qui est en d" sur la feuille a enregistrer

Désolé parfois je comprends vite et parfois je nage avec les codes et depuis ce matin j ai lu et lu des pages de forums pour finir mon fichier je bute ce ce problème

 

[Staple1600]

Re

@pelerin65
Test OK sur mon PC
NB: le bouton se nomme Bouton 7
(comme dans ton fichier exemple)
Mais ici on ne sauvegarde que la feuille sur laquelle se situe le bouton

Sub enregistretournee()
'Affectations des Variables
Dim Nom$, Chemin$, NomDossier$
'Désactives les alertes
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Enregistrement du fichier complet
'Adresse de la sauvegarde
Chemin = ThisWorkbook.Path & "\" ' A ADAPTER
 Nom = ThisWorkbook.Sheets(1).Range("D3")
'Message pour l'enregistrement du fichier
If MsgBox("Voulez-vous sauvegarder votre tournée nommée" & " " & Nom, vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
'nom du dossier
NomDossier = Nom & ".xlsb"
'le fichier active la feuille active est copiée
ActiveSheet.Copy
ActiveWorkbook.Sheets(1).Buttons("Bouton 7").Delete
ActiveWorkbook.SaveAs Chemin & Nom, 51
ActiveWorkbook.Close True
' Message dinformation du lieu de l enregistrement
MsgBox "Votre tournée est sauvegardée dans dossier : " & Chr(10) & Chemin, vbInformation, ""
End If
End Sub

 

[pelerin65]

J'ai toujours le message d'erreur et une copie de la feuille dans un classeur nomme classeur1

ActiveSheet.Copy
ActiveWorkbook.Sheets(1).boutons("Bouton 7").Delete

cordialement

 

[Staple1600]

Re

@pelerin65
Tu as fait l'adaptation comme indiqué ?
Chemin = ThisWorkbook.Path & "\" ' A ADAPTER

Comme je l'ai dit , ce code de test fonctionne sur mon PC.

 

[mapomme]

Je cherche le moyen de supprimer un bouton " copie tournée",

Je ne vois aucun bouton " copie tournée" dans le classeur !!!
Où donc se cache-t-il ?

 

[Staple1600]

Bonjour @mapomme

Non mais en ce joli moi de mai comme dirait Hubert
Peut-on dire que SAUVEGARDE TOURNEE est égal à copie tournée ?

 

[pelerin65]

1

Je ne vois aucun bouton " copie tournée" dans le classeur !!!
Où donc se cache-t-il

Bonjour Pomme
c est avec le bouton copie