Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel save as vba annuler la confirmation

save as vba annuler la confirmation

4 réponses
Avatar
jacques
Bonjour, avec le code suivant:

Sub sav()

ChDir "C:\Mes documents\JACQUES"
ActiveWorkbook.SaveAs FileName:=3D"C:\Mes=20
documents\JACQUES\bobo.xls", _
FileFormat:=3DxlNormal, Password:=3D"",=20
WriteResPassword:=3D"", _
ReadOnlyRecommended:=3DFalse, CreateBackup:=3DFalse
End Sub

=C0 l'ex=E9cution le syst=E8me me demmande toujours une
confirmation. j'aimerais ne pas avoir de message
de confirmation .

merci
Signaler un problème avec ce contenu

4 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
Nicolas B.
Salut jacques,

Rajoute en début de code :
Application.DisplayAlerts = False

Remets la propriété à True à la fin.


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


jacques wrote:
Bonjour, avec le code suivant:

Sub sav()

ChDir "C:Mes documentsJACQUES"
ActiveWorkbook.SaveAs FileName:="C:Mes
documentsJACQUESbobo.xls", _
FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub

À l'exécution le système me demmande toujours une
confirmation. j'aimerais ne pas avoir de message
de confirmation .

merci


Avatar
Philippe.R
Bonjour Jacques,

Le code modifié ci dessous :

Sub sav()
Application.EnableEvents = False
ChDir "C:Mes documentsJACQUES"
ActiveWorkbook.SaveAs FileName:="C:Mes
documentsJACQUESbobo.xls", _
FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Application.EnableEvents = True
End Sub

donne t il satisfaction ?

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"jacques" a écrit dans le message de
news:096b01c3a5f4$5ddd8df0$
Bonjour, avec le code suivant:

Sub sav()

ChDir "C:Mes documentsJACQUES"
ActiveWorkbook.SaveAs FileName:="C:Mes
documentsJACQUESbobo.xls", _
FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub

À l'exécution le système me demmande toujours une
confirmation. j'aimerais ne pas avoir de message
de confirmation .

merci
Avatar
Joël
Salut Jacques !!!

Ma précédente réponse est-elle correcte (concernant la suppression des
feuilles) ???

--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"jacques" a écrit dans le message de news:
096b01c3a5f4$5ddd8df0$
Bonjour, avec le code suivant:

Sub sav()

ChDir "C:Mes documentsJACQUES"
ActiveWorkbook.SaveAs FileName:="C:Mes
documentsJACQUESbobo.xls", _
FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub

À l'exécution le système me demmande toujours une
confirmation. j'aimerais ne pas avoir de message
de confirmation .

merci
Avatar
jacques
un grand merci. sa fonctionne pour la feuille
ainsi que pour le save as.


-----Message d'origine-----
Salut Jacques !!!

Ma précédente réponse est-elle correcte (concernant la
suppression des

feuilles) ???

--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"jacques" a écrit dans le message
de news:

096b01c3a5f4$5ddd8df0$
Bonjour, avec le code suivant:

Sub sav()

ChDir "C:Mes documentsJACQUES"
ActiveWorkbook.SaveAs FileName:="C:Mes
documentsJACQUESbobo.xls", _
FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub

À l'exécution le système me demmande toujours une
confirmation. j'aimerais ne pas avoir de message
de confirmation .

merci


.