Sub SaveSheet4()
Dim FilePath As String
FilePath = ThisWorkbook.Path & "\Sauve\"
If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath)
Application.ScreenUpdating = False
ThisWorkbook.Sheets(4).Copy
ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name
ActiveWorkbook.Close
End Sub
Tout fonctionne parfaitement, mais j'aimerais avant ActiveWorkBook.Close
supprimer tous les boutons liés au Macro de la feuille d'origine
Pascal
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour S'il s'agit de bouton de la BO Formualires, utilise Feuil1.Shapes("Bouton 1").Delete ou s'il s'agit de boutons de la BO Contrôles utilise : Feuil1.CommandButton1.Delete A adapter
Cordialement Pascal
"PB" a écrit dans le message de news:eWLGTW$
Bonjour, Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
Tout fonctionne parfaitement, mais j'aimerais avant ActiveWorkBook.Close supprimer tous les boutons liés au Macro de la feuille d'origine Pascal
Bonjour
S'il s'agit de bouton de la BO Formualires, utilise Feuil1.Shapes("Bouton
1").Delete
ou s'il s'agit de boutons de la BO Contrôles utilise :
Feuil1.CommandButton1.Delete
A adapter
Cordialement
Pascal
"PB" <NoSpam@wanadoo.fr> a écrit dans le message de
news:eWLGTW$kEHA.1936@TK2MSFTNGP12.phx.gbl...
Bonjour,
Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4()
Dim FilePath As String
FilePath = ThisWorkbook.Path & "Sauve"
If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath)
Application.ScreenUpdating = False
ThisWorkbook.Sheets(4).Copy
ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name
ActiveWorkbook.Close
End Sub
Tout fonctionne parfaitement, mais j'aimerais avant ActiveWorkBook.Close
supprimer tous les boutons liés au Macro de la feuille d'origine
Pascal
Bonjour S'il s'agit de bouton de la BO Formualires, utilise Feuil1.Shapes("Bouton 1").Delete ou s'il s'agit de boutons de la BO Contrôles utilise : Feuil1.CommandButton1.Delete A adapter
Cordialement Pascal
"PB" a écrit dans le message de news:eWLGTW$
Bonjour, Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
Tout fonctionne parfaitement, mais j'aimerais avant ActiveWorkBook.Close supprimer tous les boutons liés au Macro de la feuille d'origine Pascal
PB
Je ne peux pas utiliser cette Manip Car si sur la feuille d'origine le bouton se nomme ("Bouton 1"), sur la feuille sauvegardé il porte un autre numéro
Pascal "papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de news:
Bonjour S'il s'agit de bouton de la BO Formualires, utilise Feuil1.Shapes("Bouton 1").Delete ou s'il s'agit de boutons de la BO Contrôles utilise : Feuil1.CommandButton1.Delete A adapter
Cordialement Pascal
"PB" a écrit dans le message de news:eWLGTW$
Bonjour, Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
Tout fonctionne parfaitement, mais j'aimerais avant ActiveWorkBook.Close
supprimer tous les boutons liés au Macro de la feuille d'origine Pascal
Je ne peux pas utiliser cette Manip Car si sur la feuille d'origine le
bouton se nomme ("Bouton 1"), sur la feuille sauvegardé il porte un autre
numéro
Pascal
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:uFWOuaAlEHA.3564@TK2MSFTNGP14.phx.gbl...
Bonjour
S'il s'agit de bouton de la BO Formualires, utilise Feuil1.Shapes("Bouton
1").Delete
ou s'il s'agit de boutons de la BO Contrôles utilise :
Feuil1.CommandButton1.Delete
A adapter
Cordialement
Pascal
"PB" <NoSpam@wanadoo.fr> a écrit dans le message de
news:eWLGTW$kEHA.1936@TK2MSFTNGP12.phx.gbl...
Bonjour,
Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4()
Dim FilePath As String
FilePath = ThisWorkbook.Path & "Sauve"
If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath)
Application.ScreenUpdating = False
ThisWorkbook.Sheets(4).Copy
ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name
ActiveWorkbook.Close
End Sub
Tout fonctionne parfaitement, mais j'aimerais avant
ActiveWorkBook.Close
supprimer tous les boutons liés au Macro de la feuille d'origine
Pascal
Je ne peux pas utiliser cette Manip Car si sur la feuille d'origine le bouton se nomme ("Bouton 1"), sur la feuille sauvegardé il porte un autre numéro
Pascal "papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de news:
Bonjour S'il s'agit de bouton de la BO Formualires, utilise Feuil1.Shapes("Bouton 1").Delete ou s'il s'agit de boutons de la BO Contrôles utilise : Feuil1.CommandButton1.Delete A adapter
Cordialement Pascal
"PB" a écrit dans le message de news:eWLGTW$
Bonjour, Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
Tout fonctionne parfaitement, mais j'aimerais avant ActiveWorkBook.Close
supprimer tous les boutons liés au Macro de la feuille d'origine Pascal
papou
Re Dim btn As Shape For Each btn In Feuil1.Shapes If btn.Name Like ("Button*") Then btn.Delete Next btn
Cordialement Pascal
"PB" a écrit dans le message de news:%
Je ne peux pas utiliser cette Manip Car si sur la feuille d'origine le bouton se nomme ("Bouton 1"), sur la feuille sauvegardé il porte un autre numéro
Pascal "papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de news:
Bonjour S'il s'agit de bouton de la BO Formualires, utilise Feuil1.Shapes("Bouton
1").Delete ou s'il s'agit de boutons de la BO Contrôles utilise : Feuil1.CommandButton1.Delete A adapter
Cordialement Pascal
"PB" a écrit dans le message de news:eWLGTW$
Bonjour, Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
Tout fonctionne parfaitement, mais j'aimerais avant ActiveWorkBook.Close
supprimer tous les boutons liés au Macro de la feuille d'origine Pascal
Re
Dim btn As Shape
For Each btn In Feuil1.Shapes
If btn.Name Like ("Button*") Then btn.Delete
Next btn
Cordialement
Pascal
"PB" <NoSpam@wanadoo.fr> a écrit dans le message de
news:%23Xz97dAlEHA.3372@TK2MSFTNGP09.phx.gbl...
Je ne peux pas utiliser cette Manip Car si sur la feuille d'origine le
bouton se nomme ("Bouton 1"), sur la feuille sauvegardé il porte un autre
numéro
Pascal
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:uFWOuaAlEHA.3564@TK2MSFTNGP14.phx.gbl...
Bonjour
S'il s'agit de bouton de la BO Formualires, utilise
Feuil1.Shapes("Bouton
1").Delete
ou s'il s'agit de boutons de la BO Contrôles utilise :
Feuil1.CommandButton1.Delete
A adapter
Cordialement
Pascal
"PB" <NoSpam@wanadoo.fr> a écrit dans le message de
news:eWLGTW$kEHA.1936@TK2MSFTNGP12.phx.gbl...
Bonjour,
Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4()
Dim FilePath As String
FilePath = ThisWorkbook.Path & "Sauve"
If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath)
Application.ScreenUpdating = False
ThisWorkbook.Sheets(4).Copy
ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name
ActiveWorkbook.Close
End Sub
Tout fonctionne parfaitement, mais j'aimerais avant
ActiveWorkBook.Close
supprimer tous les boutons liés au Macro de la feuille d'origine
Pascal
Re Dim btn As Shape For Each btn In Feuil1.Shapes If btn.Name Like ("Button*") Then btn.Delete Next btn
Cordialement Pascal
"PB" a écrit dans le message de news:%
Je ne peux pas utiliser cette Manip Car si sur la feuille d'origine le bouton se nomme ("Bouton 1"), sur la feuille sauvegardé il porte un autre numéro
Pascal "papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de news:
Bonjour S'il s'agit de bouton de la BO Formualires, utilise Feuil1.Shapes("Bouton
1").Delete ou s'il s'agit de boutons de la BO Contrôles utilise : Feuil1.CommandButton1.Delete A adapter
Cordialement Pascal
"PB" a écrit dans le message de news:eWLGTW$
Bonjour, Michel m'a envoyé ce code merci à lui.
Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
Tout fonctionne parfaitement, mais j'aimerais avant ActiveWorkBook.Close
supprimer tous les boutons liés au Macro de la feuille d'origine Pascal
