Microsoft 365 supprimer bouton lors de l'enregistrement

pelerin65 · 20 Mai 2023

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 · 20 Mai 2023

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 · 20 Mai 2023

Bonjour pelerin65 et le forum

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

Bonne continuation jcf

Staple1600 · 20 Mai 2023

Re, Bonjour @jcf6464

En attendant le fichier
(en guise de test)

Code:

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 · 20 Mai 2023

Bonjour,

Voilale fichier "essai"

Cordialement

Staple1600 · 20 Mai 2023

Re

@pelerin65
Sur la base de ton fichier
Testes ceci

VB:

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 · 20 Mai 2023

Re,

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

Staple1600 · 20 Mai 2023

Re

Ce petit test fonctionne sur mon PC

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

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

pelerin65 · 20 Mai 2023

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 · 20 Mai 2023

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

Enrichi (BBcode):

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 · 20 Mai 2023

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 · 20 Mai 2023

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 · 20 Mai 2023

pelerin65 à dit:
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 · 20 Mai 2023

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 · 20 Mai 2023

1

mapomme à dit:
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

Microsoft 365 supprimer bouton lors de l'enregistrement

pelerin65

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

jcf6464

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

Pièces jointes

Discussions similaires