Voici mon problème :
Je souhaiterais que mon classeur soit enregistré automatiquement après un
certain délai d'ouverture (30 secondes environ) et que lorsqu'il
s'enregistre qu'il insére la date du jour avec le nom du fichier.
Pouvez-vous m'aider ?
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
Zambohanga
Bonjour,
Voici une partie de la réponse (enregistrment automatique) Code a placer dans l'objet workbook:
Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:15:30"), "Sortie" End Sub ----- Pour le time value, tu changes la durée comme tu veux. Ensuite, dans un module standard: ------ Sub Sortie() ThisWorkbook.Save ThisWorkbook.Close End Sub
Merci disciplus !
Z
"Stéphane Tellier" a écrit dans le message de news:uGvvnE3%
Bonjour
Voici mon problème : Je souhaiterais que mon classeur soit enregistré automatiquement après un certain délai d'ouverture (30 secondes environ) et que lorsqu'il s'enregistre qu'il insére la date du jour avec le nom du fichier. Pouvez-vous m'aider ?
Stéphane.
Bonjour,
Voici une partie de la réponse (enregistrment automatique)
Code a placer dans l'objet workbook:
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:15:30"), "Sortie"
End Sub
-----
Pour le time value, tu changes la durée comme tu veux. Ensuite, dans un
module standard:
------
Sub Sortie()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
Merci disciplus !
Z
"Stéphane Tellier" <stellier@telemarket.r> a écrit dans le message de
news:uGvvnE3%23DHA.3712@tk2msftngp13.phx.gbl...
Bonjour
Voici mon problème :
Je souhaiterais que mon classeur soit enregistré automatiquement après un
certain délai d'ouverture (30 secondes environ) et que lorsqu'il
s'enregistre qu'il insére la date du jour avec le nom du fichier.
Pouvez-vous m'aider ?
Voici une partie de la réponse (enregistrment automatique) Code a placer dans l'objet workbook:
Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:15:30"), "Sortie" End Sub ----- Pour le time value, tu changes la durée comme tu veux. Ensuite, dans un module standard: ------ Sub Sortie() ThisWorkbook.Save ThisWorkbook.Close End Sub
Merci disciplus !
Z
"Stéphane Tellier" a écrit dans le message de news:uGvvnE3%
Bonjour
Voici mon problème : Je souhaiterais que mon classeur soit enregistré automatiquement après un certain délai d'ouverture (30 secondes environ) et que lorsqu'il s'enregistre qu'il insére la date du jour avec le nom du fichier. Pouvez-vous m'aider ?
Stéphane.
Philippe.R
Bonjour Stéphane, Voici, en complément de la réponse précédente, copie d'une réponse déjà apportée ici il y a quelques temps :
sub enregistresous 'MPFE 07/10/2003 'enregistre le classeur sous un nom comportant la date du jour Monfichier="Nom"&year(date)&month(date)&day(date) 'chemin ci dessous à adapter ActiveWorkbook.SaveAs Filename:=ServeurDossierSousdossierMonfichier.xlts end sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Stéphane Tellier" a écrit dans le message de news:uGvvnE3%
Bonjour
Voici mon problème : Je souhaiterais que mon classeur soit enregistré automatiquement après un certain délai d'ouverture (30 secondes environ) et que lorsqu'il s'enregistre qu'il insére la date du jour avec le nom du fichier. Pouvez-vous m'aider ?
Stéphane.
Bonjour Stéphane,
Voici, en complément de la réponse précédente, copie d'une réponse déjà apportée ici il y a quelques
temps :
sub enregistresous
'MPFE 07/10/2003
'enregistre le classeur sous un nom comportant la date du jour
Monfichier="Nom"&year(date)&month(date)&day(date)
'chemin ci dessous à adapter
ActiveWorkbook.SaveAs Filename:=\ServeurDossierSousdossierMonfichier.xlts
end sub
"Stéphane Tellier" <stellier@telemarket.r> a écrit dans le message de
news:uGvvnE3%23DHA.3712@tk2msftngp13.phx.gbl...
Bonjour
Voici mon problème :
Je souhaiterais que mon classeur soit enregistré automatiquement après un
certain délai d'ouverture (30 secondes environ) et que lorsqu'il
s'enregistre qu'il insére la date du jour avec le nom du fichier.
Pouvez-vous m'aider ?
Bonjour Stéphane, Voici, en complément de la réponse précédente, copie d'une réponse déjà apportée ici il y a quelques temps :
sub enregistresous 'MPFE 07/10/2003 'enregistre le classeur sous un nom comportant la date du jour Monfichier="Nom"&year(date)&month(date)&day(date) 'chemin ci dessous à adapter ActiveWorkbook.SaveAs Filename:=ServeurDossierSousdossierMonfichier.xlts end sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Stéphane Tellier" a écrit dans le message de news:uGvvnE3%
Bonjour
Voici mon problème : Je souhaiterais que mon classeur soit enregistré automatiquement après un certain délai d'ouverture (30 secondes environ) et que lorsqu'il s'enregistre qu'il insére la date du jour avec le nom du fichier. Pouvez-vous m'aider ?
Stéphane.
Stéphane Tellier
Merci à tous pour votre aide.
Cordialement.
Stéphane.
"Philippe.R" a écrit dans le message de news:ODtqqp3%
Bonjour Stéphane, Voici, en complément de la réponse précédente, copie d'une réponse déjà apportée ici il y a quelques
temps :
sub enregistresous 'MPFE 07/10/2003 'enregistre le classeur sous un nom comportant la date du jour Monfichier="Nom"&year(date)&month(date)&day(date) 'chemin ci dessous à adapter ActiveWorkbook.SaveAs Filename:=ServeurDossierSousdossierMonfichier.xlts
end sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Stéphane Tellier" a écrit dans le message de news:uGvvnE3%
Bonjour
Voici mon problème : Je souhaiterais que mon classeur soit enregistré automatiquement après un
certain délai d'ouverture (30 secondes environ) et que lorsqu'il s'enregistre qu'il insére la date du jour avec le nom du fichier. Pouvez-vous m'aider ?
Stéphane.
Merci à tous pour votre aide.
Cordialement.
Stéphane.
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:ODtqqp3%23DHA.2516@TK2MSFTNGP11.phx.gbl...
Bonjour Stéphane,
Voici, en complément de la réponse précédente, copie d'une réponse déjà
apportée ici il y a quelques
temps :
sub enregistresous
'MPFE 07/10/2003
'enregistre le classeur sous un nom comportant la date du jour
Monfichier="Nom"&year(date)&month(date)&day(date)
'chemin ci dessous à adapter
ActiveWorkbook.SaveAs
Filename:=\ServeurDossierSousdossierMonfichier.xlts
"Stéphane Tellier" <stellier@telemarket.r> a écrit dans le message de
news:uGvvnE3%23DHA.3712@tk2msftngp13.phx.gbl...
Bonjour
Voici mon problème :
Je souhaiterais que mon classeur soit enregistré automatiquement après
un
certain délai d'ouverture (30 secondes environ) et que lorsqu'il
s'enregistre qu'il insére la date du jour avec le nom du fichier.
Pouvez-vous m'aider ?
"Philippe.R" a écrit dans le message de news:ODtqqp3%
Bonjour Stéphane, Voici, en complément de la réponse précédente, copie d'une réponse déjà apportée ici il y a quelques
temps :
sub enregistresous 'MPFE 07/10/2003 'enregistre le classeur sous un nom comportant la date du jour Monfichier="Nom"&year(date)&month(date)&day(date) 'chemin ci dessous à adapter ActiveWorkbook.SaveAs Filename:=ServeurDossierSousdossierMonfichier.xlts
end sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Stéphane Tellier" a écrit dans le message de news:uGvvnE3%
Bonjour
Voici mon problème : Je souhaiterais que mon classeur soit enregistré automatiquement après un
certain délai d'ouverture (30 secondes environ) et que lorsqu'il s'enregistre qu'il insére la date du jour avec le nom du fichier. Pouvez-vous m'aider ?
