Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Supprimer deux pages par une macro

Supprimer deux pages par une macro

12 réponses
Avatar
Richard Fortin
Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est (aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est 2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page "details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
ChrisV
Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection, cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit dans le
message de news:
Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page "details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF




Avatar
ChrisV
Oups... mal lu le ps...

Sub protProc()
Dim rep As String
rep = InputBox("Quel est le mot magique ?")
If rep <> "mpfe" Then
MsgBox "Impossible d'exécuter la procédure " _
& "sans le mot de passe !", , "Mot de passe incorrect..."
Exit Sub
End If
'si le MdP est correct exécution du reste du code de la macro
'exemple
MsgBox "Merci, et à bientôt sur MPFE ! ;-)"
'ou
zaza 'pour exécuter la suppression des onglets master et details
End Sub


ChrisV


"ChrisV" a écrit dans le message de news:
%
Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection, cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit dans le
message de news:
Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page "details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF








Avatar
Richard Fortin
Merci, ça fonctionne bien. Cependant j'aimerais à ce que cette macro s'active
à l'ouverture du dossier. Est-ce possible?


Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection, cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit dans le
message de news:
Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page "details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF









Avatar
anonymousA
Bonnjour,

utiliser l'evenement workbook_open du module Thisworkbook.

A+


Merci, ça fonctionne bien. Cependant j'aimerais à ce que cette macro s'active
à l'ouverture du dossier. Est-ce possible?



Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection, cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit dans le
message de news:

Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page "details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF











Avatar
Richard Fortin
J'ai ajouté à la fin "ActiveWorkbook.Close".
Ceci ferme le fichier mais il demande une confirmation que je ne désire pas
avoir.
Pour utiliser la commande que vous me référez, où dois-je l'insérer?
Je suis un peu dans le néant

rf


Bonnjour,

utiliser l'evenement workbook_open du module Thisworkbook.

A+


Merci, ça fonctionne bien. Cependant j'aimerais à ce que cette macro s'active
à l'ouverture du dossier. Est-ce possible?



Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection, cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit dans le
message de news:

Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page "details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF














Avatar
Richard Fortin
Erreur,

Le fichier se ferme automatiquement à la fermeture mais les feuilles
demeurent là ?
Je ne comprend pas car sans la commande de fermer le fichier, les feuilles
sont supprimées.
A savoir ce qui se passe ???

rf


J'ai ajouté à la fin "ActiveWorkbook.Close".
Ceci ferme le fichier mais il demande une confirmation que je ne désire pas
avoir.
Pour utiliser la commande que vous me référez, où dois-je l'insérer?
Je suis un peu dans le néant

rf


Bonnjour,

utiliser l'evenement workbook_open du module Thisworkbook.

A+


Merci, ça fonctionne bien. Cependant j'aimerais à ce que cette macro s'active
à l'ouverture du dossier. Est-ce possible?



Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection, cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit dans le
message de news:

Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page "details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF
















Avatar
anonymousA
ActiveWorkbook.Close True devrait résoudre le problème

A+


Erreur,

Le fichier se ferme automatiquement à la fermeture mais les feuilles
demeurent là ?
Je ne comprend pas car sans la commande de fermer le fichier, les feuilles
sont supprimées.
A savoir ce qui se passe ???

rf



J'ai ajouté à la fin "ActiveWorkbook.Close".
Ceci ferme le fichier mais il demande une confirmation que je ne désire pas
avoir.
Pour utiliser la commande que vous me référez, où dois-je l'insérer?
Je suis un peu dans le néant

rf



Bonnjour,

utiliser l'evenement workbook_open du module Thisworkbook.

A+



Merci, ça fonctionne bien. Cependant j'aimerais à ce que cette macro s'active
à l'ouverture du dossier. Est-ce possible?




Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection, cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit dans le
message de news:


Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page "details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF

















Avatar
ChrisV
Bonjur Richard,

Peux-tu expliquer plus précisément ce que tu désires faire...


ChrisV


"Richard Fortin" a écrit dans le
message de news:
Erreur,

Le fichier se ferme automatiquement à la fermeture mais les feuilles
demeurent là ?
Je ne comprend pas car sans la commande de fermer le fichier, les feuilles
sont supprimées.
A savoir ce qui se passe ???

rf


J'ai ajouté à la fin "ActiveWorkbook.Close".
Ceci ferme le fichier mais il demande une confirmation que je ne désire
pas
avoir.
Pour utiliser la commande que vous me référez, où dois-je l'insérer?
Je suis un peu dans le néant

rf


Bonnjour,

utiliser l'evenement workbook_open du module Thisworkbook.

A+


Merci, ça fonctionne bien. Cependant j'aimerais à ce que cette macro
s'active
à l'ouverture du dossier. Est-ce possible?



Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection,
cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit
dans le
message de news:


Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page
"details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF


















Avatar
Richard Fortin
Je remercie l'intérêt de ChrisV,

Voici plus précisément que je tente de faire.

J’offre à mes clients un fichier qu’ils utilisent aux fins d’administration.
Cependant, je ne veux pas que ce fichier soit utilisé autre personne que mon
client et de plus qui est, si celui-ci décide de ne plus transiger avec ma
firme, qu'à une date précise, le fichier ne soit plus utilisable.
C'est la raison pour laquelle, qu'une fois la date fatidique arrivée, qu'une
macro protégée s’active à l’ouverture du fichier, supprimant 2 ou 3 feuilles
et se ferme automatiquement sans en demandé l’autorisation. Pour ce qui est
d’autoriser les macros à l’ouverture du fichier, ils ont l’habitude de les
autorisées.
Mon but est que mon fichier ne soit plus utilisable sans qu'il puisse y
faire quoi que ce soit puisque qu'à chaque fois que le fichier s’ouvre, les
trois principales feuilles ne sont plus là.
J'espère avoir été assez précis

rf


Bonjur Richard,

Peux-tu expliquer plus précisément ce que tu désires faire...


ChrisV


"Richard Fortin" a écrit dans le
message de news:
Erreur,

Le fichier se ferme automatiquement à la fermeture mais les feuilles
demeurent là ?
Je ne comprend pas car sans la commande de fermer le fichier, les feuilles
sont supprimées.
A savoir ce qui se passe ???

rf


J'ai ajouté à la fin "ActiveWorkbook.Close".
Ceci ferme le fichier mais il demande une confirmation que je ne désire
pas
avoir.
Pour utiliser la commande que vous me référez, où dois-je l'insérer?
Je suis un peu dans le néant

rf


Bonnjour,

utiliser l'evenement workbook_open du module Thisworkbook.

A+


Merci, ça fonctionne bien. Cependant j'aimerais à ce que cette macro
s'active
à l'ouverture du dossier. Est-ce possible?



Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection,
cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit
dans le
message de news:


Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page
"details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF























Avatar
ChrisV
Bonjour Richard,

Private Sub Workbook_Open()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date > CDate("20/10/2005") Then
On Error Resume Next
Sheets(Array("master", "details")).Delete
ThisWorkbook.Close True
End If
End Sub


ChrisV


"Richard Fortin" a écrit dans le
message de news:
Je remercie l'intérêt de ChrisV,

Voici plus précisément que je tente de faire.

J'offre à mes clients un fichier qu'ils utilisent aux fins d'administration.
Cependant, je ne veux pas que ce fichier soit utilisé autre personne que
mon
client et de plus qui est, si celui-ci décide de ne plus transiger avec ma
firme, qu'à une date précise, le fichier ne soit plus utilisable.
C'est la raison pour laquelle, qu'une fois la date fatidique arrivée,
qu'une
macro protégée s'active à l'ouverture du fichier, supprimant 2 ou 3
feuilles
et se ferme automatiquement sans en demandé l'autorisation. Pour ce qui
est
d'autoriser les macros à l'ouverture du fichier, ils ont l'habitude de les
autorisées.
Mon but est que mon fichier ne soit plus utilisable sans qu'il puisse y
faire quoi que ce soit puisque qu'à chaque fois que le fichier s'ouvre,
les
trois principales feuilles ne sont plus là.
J'espère avoir été assez précis

rf


Bonjur Richard,

Peux-tu expliquer plus précisément ce que tu désires faire...


ChrisV


"Richard Fortin" a écrit dans
le
message de news:
Erreur,

Le fichier se ferme automatiquement à la fermeture mais les feuilles
demeurent là ?
Je ne comprend pas car sans la commande de fermer le fichier, les
feuilles
sont supprimées.
A savoir ce qui se passe ???

rf


J'ai ajouté à la fin "ActiveWorkbook.Close".
Ceci ferme le fichier mais il demande une confirmation que je ne
désire
pas
avoir.
Pour utiliser la commande que vous me référez, où dois-je l'insérer?
Je suis un peu dans le néant

rf


Bonnjour,

utiliser l'evenement workbook_open du module Thisworkbook.

A+


Merci, ça fonctionne bien. Cependant j'aimerais à ce que cette
macro
s'active
à l'ouverture du dossier. Est-ce possible?



Bonjour Richard,

Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
If Date = CDate("01/11/2005") Then _
Sheets(Array("master", "details")).Delete
End Sub

ps: dans l'éditeur, Outils/Propriétés de VBAProject.../Protection,
cocher
Verrouillage du projet, puis indiquer un MdP


ChrisV


"Richard Fortin" a écrit
dans le
message de news:


Bonjour à tous,
Je tente de supprimer deux pages par une macro. Voici les
données.
J'ai une page nommé "noms" et la valeur de la cellule V1 est
(aujourd'hui).
J'ai une 2e page nommé "master" et la valeur de la cellule V1 est
2005-10-31.
J'aimerais qu'en date du 2005-11-01 la page "master" et la page
"details"
soient supprimé.
Merci pour toute suggestion
p.s. Peut-on protégé une macro par un mot de passe?

RF

























1 2