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 Gérer le oui-non-annule d'un displayalerts=true

Gérer le oui-non-annule d'un displayalerts=true

5 réponses
Avatar
René Delcourt
Bonjour à tous,

Comment gérer le oui-non-annule lorsque displayalerts=true?
Ci-dessous, le fichier existe déjà et j'ai un message de mise en garde qui,
quoique je choisisse, continue le code, ce que j'aimerais gérer.

Application.DisplayAlerts = True
ActiveWorkbook.SaveAs FileName:=pa & "\" & kopie
Application.DisplayAlerts = False

Merci de votre aide
--
René Delcourt
Signaler un problème avec ce contenu

5 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
Philippe
Bonjour René,

Ceci devrait t'aider. Personnellement, je gere avec le displayalerts = False
et j'ecris moi-meme le code. Pour te mettre sur la piste, tu verras
ci-dessous comment je teste si le fichier existe deja et comment je choisis
un nom evitant l'ecrasement.

Je te joins un code permettant de gérer la situation 'le fichier existe
deja' :
(ne pas oublier de cocher la reference File Scrpting Object)

toto=1

Set fso = CreateObject("Scripting.FileSystemObject")

If Not (fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & ".xls")) Then
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date, "YYMMDD") &
".xls"
Else
i = 1
While fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & "-" & i & ".xls")
i = i + 1
Wend
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date, "YYMMDD") &
"-" & i & ".xls"
End If


En esperant te mettre sur la voie,

Philippe


Bonjour à tous,

Comment gérer le oui-non-annule lorsque displayalerts=true?
Ci-dessous, le fichier existe déjà et j'ai un message de mise en garde qui,
quoique je choisisse, continue le code, ce que j'aimerais gérer.

Application.DisplayAlerts = True
ActiveWorkbook.SaveAs FileName:=pa & "" & kopie
Application.DisplayAlerts = False

Merci de votre aide
--
René Delcourt


Avatar
René Delcourt
Merci de ton aide.


Je sens la bonne voie mais il me faudrait 2 précisions :
1.Je ne trouve pas la reference File Scrpting Object dans les références.
2.Que fais-je de la variable SAV?
--
René Delcourt



Bonjour René,

Ceci devrait t'aider. Personnellement, je gere avec le displayalerts = False
et j'ecris moi-meme le code. Pour te mettre sur la piste, tu verras
ci-dessous comment je teste si le fichier existe deja et comment je choisis
un nom evitant l'ecrasement.

Je te joins un code permettant de gérer la situation 'le fichier existe
deja' :
(ne pas oublier de cocher la reference File Scrpting Object)

toto=1

Set fso = CreateObject("Scripting.FileSystemObject")

If Not (fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & ".xls")) Then
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date, "YYMMDD") &
".xls"
Else
i = 1
While fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & "-" & i & ".xls")
i = i + 1
Wend
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date, "YYMMDD") &
"-" & i & ".xls"
End If


En esperant te mettre sur la voie,

Philippe


Bonjour à tous,

Comment gérer le oui-non-annule lorsque displayalerts=true?
Ci-dessous, le fichier existe déjà et j'ai un message de mise en garde qui,
quoique je choisisse, continue le code, ce que j'aimerais gérer.

Application.DisplayAlerts = True
ActiveWorkbook.SaveAs FileName:=pa & "" & kopie
Application.DisplayAlerts = False

Merci de votre aide
--
René Delcourt




Avatar
Philippe
Re,

Pour la reference à cocher : Microsoft Scripting Runtime (c'est une mine
d'or cette methode)

Pour SAV : ActiveWorkbookSaveAs Sav

Mais là, je traitais un problème spécifique; j'aurais pu envoyer une boite
de dialogue du type (apres test que le fichier existe comme montré)
'voulez-vous ecraser le fichier ?'.

Bon courage.

Philippe




Merci de ton aide.


Je sens la bonne voie mais il me faudrait 2 précisions :
1.Je ne trouve pas la reference File Scrpting Object dans les références.
2.Que fais-je de la variable SAV?
--
René Delcourt



Bonjour René,

Ceci devrait t'aider. Personnellement, je gere avec le displayalerts = False
et j'ecris moi-meme le code. Pour te mettre sur la piste, tu verras
ci-dessous comment je teste si le fichier existe deja et comment je choisis
un nom evitant l'ecrasement.

Je te joins un code permettant de gérer la situation 'le fichier existe
deja' :
(ne pas oublier de cocher la reference File Scrpting Object)

toto=1

Set fso = CreateObject("Scripting.FileSystemObject")

If Not (fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & ".xls")) Then
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date, "YYMMDD") &
".xls"
Else
i = 1
While fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & "-" & i & ".xls")
i = i + 1
Wend
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date, "YYMMDD") &
"-" & i & ".xls"
End If


En esperant te mettre sur la voie,

Philippe


Bonjour à tous,

Comment gérer le oui-non-annule lorsque displayalerts=true?
Ci-dessous, le fichier existe déjà et j'ai un message de mise en garde qui,
quoique je choisisse, continue le code, ce que j'aimerais gérer.

Application.DisplayAlerts = True
ActiveWorkbook.SaveAs FileName:=pa & "" & kopie
Application.DisplayAlerts = False

Merci de votre aide
--
René Delcourt






Avatar
René Delcourt
Désolé mes je ne trouve pas Microsoft Scripting Runtime dans les références...
--
René Delcourt



Re,

Pour la reference à cocher : Microsoft Scripting Runtime (c'est une mine
d'or cette methode)

Pour SAV : ActiveWorkbookSaveAs Sav

Mais là, je traitais un problème spécifique; j'aurais pu envoyer une boite
de dialogue du type (apres test que le fichier existe comme montré)
'voulez-vous ecraser le fichier ?'.

Bon courage.

Philippe




Merci de ton aide.


Je sens la bonne voie mais il me faudrait 2 précisions :
1.Je ne trouve pas la reference File Scrpting Object dans les références.
2.Que fais-je de la variable SAV?
--
René Delcourt



Bonjour René,

Ceci devrait t'aider. Personnellement, je gere avec le displayalerts = False
et j'ecris moi-meme le code. Pour te mettre sur la piste, tu verras
ci-dessous comment je teste si le fichier existe deja et comment je choisis
un nom evitant l'ecrasement.

Je te joins un code permettant de gérer la situation 'le fichier existe
deja' :
(ne pas oublier de cocher la reference File Scrpting Object)

toto=1

Set fso = CreateObject("Scripting.FileSystemObject")

If Not (fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & ".xls")) Then
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date, "YYMMDD") &
".xls"
Else
i = 1
While fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & "-" & i & ".xls")
i = i + 1
Wend
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date, "YYMMDD") &
"-" & i & ".xls"
End If


En esperant te mettre sur la voie,

Philippe


Bonjour à tous,

Comment gérer le oui-non-annule lorsque displayalerts=true?
Ci-dessous, le fichier existe déjà et j'ai un message de mise en garde qui,
quoique je choisisse, continue le code, ce que j'aimerais gérer.

Application.DisplayAlerts = True
ActiveWorkbook.SaveAs FileName:=pa & "" & kopie
Application.DisplayAlerts = False

Merci de votre aide
--
René Delcourt








Avatar
Clément Marcotte
Bonjour,

Fais une recherche de fichier sur ton disque pour trouver scrrun.dll

Sinon, tu peux télécharger à partir de là:

(Attention à la version de Windows)

http://www.microsoft.com/downloads/details.aspx?displaylang=fr&FamilyIDÇ17d943-7e4b-4622-86eb-95a22b832caa
(2000 et XP)

ou

http://www.microsoft.com/downloads/details.aspx?displaylang=fr&FamilyID
8a18f6-249c-4a72-bfcf-fc6af26dc390
(98 - me - NT)






"René Delcourt" a écrit dans le message de news:

Désolé mes je ne trouve pas Microsoft Scripting Runtime dans les
références...
--
René Delcourt



Re,

Pour la reference à cocher : Microsoft Scripting Runtime (c'est une mine
d'or cette methode)

Pour SAV : ActiveWorkbookSaveAs Sav

Mais là, je traitais un problème spécifique; j'aurais pu envoyer une
boite
de dialogue du type (apres test que le fichier existe comme montré)
'voulez-vous ecraser le fichier ?'.

Bon courage.

Philippe




Merci de ton aide.


Je sens la bonne voie mais il me faudrait 2 précisions :
1.Je ne trouve pas la reference File Scrpting Object dans les
références.
2.Que fais-je de la variable SAV?
--
René Delcourt



Bonjour René,

Ceci devrait t'aider. Personnellement, je gere avec le displayalerts
= False
et j'ecris moi-meme le code. Pour te mettre sur la piste, tu verras
ci-dessous comment je teste si le fichier existe deja et comment je
choisis
un nom evitant l'ecrasement.

Je te joins un code permettant de gérer la situation 'le fichier
existe
deja' :
(ne pas oublier de cocher la reference File Scrpting Object)

toto=1

Set fso = CreateObject("Scripting.FileSystemObject")

If Not (fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & ".xls")) Then
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date,
"YYMMDD") &
".xls"
Else
i = 1
While fso.FileExists(FullNameOfDir & "REL" & toto & "-" &
Format(Date, "YYMMDD") & "-" & i & ".xls")
i = i + 1
Wend
Sav = FullNameOfDir & "REL" & toto & "-" & Format(Date,
"YYMMDD") &
"-" & i & ".xls"
End If


En esperant te mettre sur la voie,

Philippe


Bonjour à tous,

Comment gérer le oui-non-annule lorsque displayalerts=true?
Ci-dessous, le fichier existe déjà et j'ai un message de mise en
garde qui,
quoique je choisisse, continue le code, ce que j'aimerais gérer.

Application.DisplayAlerts = True
ActiveWorkbook.SaveAs FileName:=pa & "" & kopie
Application.DisplayAlerts = False

Merci de votre aide
--
René Delcourt