Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ecraser un fichier sans confirmation

Ecraser un fichier sans confirmation

6 réponses
Avatar
Fuentes Mickael
Bonjour,
je voudrais ameliorer une macro en evitant à l'utilisateur de valider
l'ecrasement d'un fichier.
J'utilise un model.xlt qui devient un model1.xls lorsque je fait nouveau
mais pour des mises à jour je fait un enregister sous model.xlt pour
enrichir mon model.
Le probleme est qu'il me demande confirmer à chaque fois l'ecrasement de mon
model.xlt.
Comment supprimer ce message ?

PS
voici la macro actuelle :

Sub version()

Dim myFileName, enreg
ChDir "C:\Program Files\Microsoft Office\Modèles"
myFileName = "Rapport.xlt"
enreg = Application.GetSaveAsFilename(myFileName)

Application.EnableEvents = False
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True

ActiveWorkbook.Close

End Sub
Signaler un problème avec ce contenu

6 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
Avatar
MichDenis
Sub version()

Dim myFileName, enreg
ChDir "C:Program FilesMicrosoft OfficeModèles"
myFileName = "Rapport.xlt"

Application.DisplayAlerts = False
enreg = Application.GetSaveAsFilename(myFileName)
Application.DisplayAlerts = true

Application.EnableEvents = False
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True

ActiveWorkbook.Close

End Sub



"Fuentes Mickael" a écrit dans le message de news:
%23NqLQr$
Bonjour,
je voudrais ameliorer une macro en evitant à l'utilisateur de valider
l'ecrasement d'un fichier.
J'utilise un model.xlt qui devient un model1.xls lorsque je fait nouveau
mais pour des mises à jour je fait un enregister sous model.xlt pour
enrichir mon model.
Le probleme est qu'il me demande confirmer à chaque fois l'ecrasement de mon
model.xlt.
Comment supprimer ce message ?

PS
voici la macro actuelle :

Sub version()

Dim myFileName, enreg
ChDir "C:Program FilesMicrosoft OfficeModèles"
myFileName = "Rapport.xlt"
enreg = Application.GetSaveAsFilename(myFileName)

Application.EnableEvents = False
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True

ActiveWorkbook.Close

End Sub
Avatar
Fuentes Mickael
Ca n'a rien changé du tout,
il m'affiche toujours la fenetre enregistrer sous, puis de confirmer le
remplacement du fichier existant.
Bizare !!!!!
Merci MichDenis pour ton aide.
Micky


"Fuentes Mickael" a écrit dans le message de
news:%23NqLQr$
Bonjour,
je voudrais ameliorer une macro en evitant à l'utilisateur de valider
l'ecrasement d'un fichier.
J'utilise un model.xlt qui devient un model1.xls lorsque je fait nouveau
mais pour des mises à jour je fait un enregister sous model.xlt pour
enrichir mon model.
Le probleme est qu'il me demande confirmer à chaque fois l'ecrasement de
mon

model.xlt.
Comment supprimer ce message ?

PS
voici la macro actuelle :

Sub version()

Dim myFileName, enreg
ChDir "C:Program FilesMicrosoft OfficeModèles"
myFileName = "Rapport.xlt"
enreg = Application.GetSaveAsFilename(myFileName)

Application.EnableEvents = False
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True

ActiveWorkbook.Close

End Sub




Avatar
Fuentes Mickael
C'est un peut mieux sous cette forme:

Application.DisplayAlerts = False
Application.EnableEvents = False
enreg = Application.GetSaveAsFilename(myFileName)
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True
Application.DisplayAlerts = True

je n'ai plus la confirmation mais toujours le fenetre enregistrer sous.

Micky


"Fuentes Mickael" a écrit dans le message de
news:%23ogN7%23$
Ca n'a rien changé du tout,
il m'affiche toujours la fenetre enregistrer sous, puis de confirmer le
remplacement du fichier existant.
Bizare !!!!!
Merci MichDenis pour ton aide.
Micky


"Fuentes Mickael" a écrit dans le message de
news:%23NqLQr$
Bonjour,
je voudrais ameliorer une macro en evitant à l'utilisateur de valider
l'ecrasement d'un fichier.
J'utilise un model.xlt qui devient un model1.xls lorsque je fait nouveau
mais pour des mises à jour je fait un enregister sous model.xlt pour
enrichir mon model.
Le probleme est qu'il me demande confirmer à chaque fois l'ecrasement de
mon

model.xlt.
Comment supprimer ce message ?

PS
voici la macro actuelle :

Sub version()

Dim myFileName, enreg
ChDir "C:Program FilesMicrosoft OfficeModèles"
myFileName = "Rapport.xlt"
enreg = Application.GetSaveAsFilename(myFileName)

Application.EnableEvents = False
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True

ActiveWorkbook.Close

End Sub








Avatar
MichDenis
Pour enregistrer un fichier où tu veux ceci est suffisant :

Application.DisplayAlerts = False
'Tu choisis l'endroit de ton choix ...
ThisWorkbook.SaveAs "C:Program FilesMicrosoft OfficeModèlesNomDuFichier.xls"
Application.EnableEvents = True




"Fuentes Mickael" a écrit dans le message de news:

C'est un peut mieux sous cette forme:

Application.DisplayAlerts = False
Application.EnableEvents = False
enreg = Application.GetSaveAsFilename(myFileName)
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True
Application.DisplayAlerts = True

je n'ai plus la confirmation mais toujours le fenetre enregistrer sous.

Micky


"Fuentes Mickael" a écrit dans le message de
news:%23ogN7%23$
Ca n'a rien changé du tout,
il m'affiche toujours la fenetre enregistrer sous, puis de confirmer le
remplacement du fichier existant.
Bizare !!!!!
Merci MichDenis pour ton aide.
Micky


"Fuentes Mickael" a écrit dans le message de
news:%23NqLQr$
Bonjour,
je voudrais ameliorer une macro en evitant à l'utilisateur de valider
l'ecrasement d'un fichier.
J'utilise un model.xlt qui devient un model1.xls lorsque je fait nouveau
mais pour des mises à jour je fait un enregister sous model.xlt pour
enrichir mon model.
Le probleme est qu'il me demande confirmer à chaque fois l'ecrasement de
mon

model.xlt.
Comment supprimer ce message ?

PS
voici la macro actuelle :

Sub version()

Dim myFileName, enreg
ChDir "C:Program FilesMicrosoft OfficeModèles"
myFileName = "Rapport.xlt"
enreg = Application.GetSaveAsFilename(myFileName)

Application.EnableEvents = False
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True

ActiveWorkbook.Close

End Sub








Avatar
lSteph
Bonjour,

je n'ai plus la confirmation mais toujours le fenetre enregistrer sous.
Dans ce cas , c'est que tu n'as pas besoin de changer de nom, alors

bien plus simplement:

Sub version()
ChDir "C:Program FilesMicrosoft OfficeModèles"
With Application
.DisplayAlerts = False
.EnableEvents = False
ThisWorkbook.SaveAs "Rapport.xlt"
.EnableEvents = True
.DisplayAlerts = True
End with
End sub

'lSteph

On 16 oct, 16:22, "Fuentes Mickael" wrote:
C'est un peut mieux sous cette forme:

Application.DisplayAlerts = False
Application.EnableEvents = False
enreg = Application.GetSaveAsFilename(myFileName)
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True
Application.DisplayAlerts = True

je n'ai plus la confirmation mais toujours le fenetre enregistrer sous.

Micky

"Fuentes Mickael" a écrit dans le message den ews:%23ogN7%23$

Ca n'a rien changé du tout,
il m'affiche toujours la fenetre enregistrer sous, puis de confirmer le
remplacement du fichier existant.
Bizare !!!!!
Merci MichDenis pour ton aide.
Micky

"Fuentes Mickael" a écrit dans le message de
news:%23NqLQr$
Bonjour,
je voudrais ameliorer une macro en evitant à l'utilisateur de valid er
l'ecrasement d'un fichier.
J'utilise un model.xlt qui devient un model1.xls lorsque je fait nouv eau
mais pour des mises à jour je fait un enregister sous model.xlt pour
enrichir mon model.
Le probleme est qu'il me demande confirmer à chaque fois l'ecraseme nt de
mon

model.xlt.
Comment supprimer ce message ?

PS
voici la macro actuelle :

Sub version()

Dim myFileName, enreg
ChDir "C:Program FilesMicrosoft OfficeModèles"
myFileName = "Rapport.xlt"
enreg = Application.GetSaveAsFilename(myFileName)

Application.EnableEvents = False
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True

ActiveWorkbook.Close

End Sub






Avatar
Fuentes Mickael
Genial,
je viens d'essayer la solution de Isteph et ça fonction,
demain j'essaye ta version MichDenis.

Merci beaucoup pour votre aide

Micky

"Fuentes Mickael" a écrit dans le message de
news:
C'est un peut mieux sous cette forme:

Application.DisplayAlerts = False
Application.EnableEvents = False
enreg = Application.GetSaveAsFilename(myFileName)
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True
Application.DisplayAlerts = True

je n'ai plus la confirmation mais toujours le fenetre enregistrer sous.

Micky


"Fuentes Mickael" a écrit dans le message de
news:%23ogN7%23$
Ca n'a rien changé du tout,
il m'affiche toujours la fenetre enregistrer sous, puis de confirmer le
remplacement du fichier existant.
Bizare !!!!!
Merci MichDenis pour ton aide.
Micky


"Fuentes Mickael" a écrit dans le message de
news:%23NqLQr$
Bonjour,
je voudrais ameliorer une macro en evitant à l'utilisateur de valider
l'ecrasement d'un fichier.
J'utilise un model.xlt qui devient un model1.xls lorsque je fait
nouveau



mais pour des mises à jour je fait un enregister sous model.xlt pour
enrichir mon model.
Le probleme est qu'il me demande confirmer à chaque fois l'ecrasement
de



mon
model.xlt.
Comment supprimer ce message ?

PS
voici la macro actuelle :

Sub version()

Dim myFileName, enreg
ChDir "C:Program FilesMicrosoft OfficeModèles"
myFileName = "Rapport.xlt"
enreg = Application.GetSaveAsFilename(myFileName)

Application.EnableEvents = False
ThisWorkbook.SaveAs enreg
Application.EnableEvents = True

ActiveWorkbook.Close

End Sub