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?
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
Ça fonctionne
Merci à ChrisV vous êtes d'un grand secours.
rf
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" <RichardFortin@discussions.microsoft.com> a écrit dans le
message de news: 2871027C-FBA6-4CD6-911A-A72AB754D7DC@microsoft.com...
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" <RichardFortin@discussions.microsoft.com> a écrit dans
le
message de news: A36F964D-C2A0-4E71-9AB3-058BB629F5B5@microsoft.com...
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" <RichardFortin@discussions.microsoft.com> a écrit
dans le
message de news:
B0A312F9-292B-4DBB-8418-AFC79AFFFDFB@microsoft.com...
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?
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
ChrisV
De rien... ;-)
ChrisV
"Richard Fortin" a écrit dans le message de news:
Ça fonctionne
Merci à ChrisV vous êtes d'un grand secours. rf
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
De rien... ;-)
ChrisV
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le
message de news: 0120B6F7-7232-4330-808F-9C525E19D44B@microsoft.com...
Ça fonctionne
Merci à ChrisV vous êtes d'un grand secours.
rf
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" <RichardFortin@discussions.microsoft.com> a écrit dans
le
message de news: 2871027C-FBA6-4CD6-911A-A72AB754D7DC@microsoft.com...
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" <RichardFortin@discussions.microsoft.com> a écrit
dans
le
message de news: A36F964D-C2A0-4E71-9AB3-058BB629F5B5@microsoft.com...
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" <RichardFortin@discussions.microsoft.com> a
écrit
dans le
message de news:
B0A312F9-292B-4DBB-8418-AFC79AFFFDFB@microsoft.com...
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?
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?
