Repondre par defaut aux messages de excel

[jldancet]

😀 J'ai un petit souci dans une macro, j'aurai besoin d'un coup de main
lorsque je ferme un dossier excel j'ai la demande si je veux sauvegarder ou non le dossier, ensuite j'ai un autre message comme quoi j'ai beaucoup de données en attente...la question est-ce que je les garde pour des copies ultérieures ou est-ce qu'on supprime tout.
mon désir est de répondre automatiquement par NON à ces deux messages et si possible ne pas les voir.
Je vous remercie d'avance
🙂
jldancet.scrutas@wanadoo.fr

 

[porcinet82]

Re : Repondre par defaut aux messages de excel

Bonsoir,

Je pense qu'un simple Application.DisplayAlerts = False au début du code devrait te permettre de ne plus avoir ses messages.

ex :
Application.DisplayAlerts = False
'ton code
Application.DisplayAlerts = True

@+

 

[treza88]

Re : Repondre par defaut aux messages de excel

Bonsoir jldancet

si je ne me trompe pas , essaye ceci:

Application.DisplayAlerts = False

Remet le à true apres la sauvegarde.

 

[porcinet82]

Re : Repondre par defaut aux messages de excel

re,

Tu peux me contacter ici plutot qu'en bal privée afin que tout le monde en profite, c'est le but d'un forum.

Je n'ai pas tres bien saisi ce qui ne fonctionnait pas, pourrais-tu l'expliquer ici stp?

@+

 

[treza88]

Re : Repondre par defaut aux messages de excel

Re

J'ai bien eu egalement ta reponse en message privé mais je pense que ça depasse mes competences alors vois avec porcinet82.

 

[jldancet]

Re : Repondre par defaut aux messages de excel

Voila si je colle le code display.alert.false, effectivement il n'y a plus de message mais excel bloque, je suis obligé de planter l'applic.

Dans mon message je disais qu'il y a peut-etre un style de réponse par défaut general a la procedure du style "on message reponse = false"
merci pour la reponse rapide🙂

 

[porcinet82]

Re : Repondre par defaut aux messages de excel

re,

Je pense que le plus simple serait de nous mettre un exemple de ton fichier avec le bout de code qui fait planter ton appli car j'ai deja utilisé ce code et ca fonctionnait tres bien.

@+

 

[jldancet]

Re : Repondre par defaut aux messages de excel

Voila le code, tu trouveras l'endroit de la plantée en commentaires avec debut et fin de souci avec des smileys
merci d'avance

Jean-Louis

Sub PREPA_PR()
'
' Macro enregistrée le 06.08.2006 par Jean-Louis DANCET
'
'
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim fichier

Range("C94").Select
ActiveCell.FormulaR1C1 = "=LEN(R[5]C)-LEN(R[4]C)-1"
Range("C97").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R[2]C,R[-3]C)"
Range("C97").Select

fichier = [C97]
'Windows("SYNCHRO_PR_OUTLOOK.xls").activate'
Sheets("SYNC_PR").Select
Columns("$A:$AJ").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("MACRO").Select
Workbooks.Open Filename:=[c99]
Windows(fichier).Activate
Sheets("Suivi Projet PR").Select

Dim premlivide As Double
Rows("1:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
premlivide = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count

Columns("B:B").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight

Range("B2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]=R[-1]C[1],""DB"",""OK"")"
Range("B2").Select

Selection.Copy
Range("b2:b" & premlivide).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "DOUBLE"

For Each C In Range("a:a")
CC = CC + 1
cellule = "B" & CC
If CC >= premlivide Then GoTo fin1
couleur = C.Font.ColorIndex
If C.Font.ColorIndex = 7 Then
Range(cellule).Select
ActiveCell.Value = "KO"
End If
Next C
fin1:
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[2]=""pas de date"",""KO"",IF(RC[2]=""à fixer"",""KO"",RC[-1]))"
Range("C2").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Copy
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("B1").Select
ActiveCell.FormulaR1C1 = "DOUBLES"
Range("B2").Select
Application.WindowState = xlMinimized
Columns("B:B").Select
'fin de traitement dossier original





Columns("$A:$AK").Select
Selection.Copy
Windows("SYNCHRO_PR_OUTLOOK.xls").Activate
Sheets("SYNC_PR").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(fichier).Activate

😡

'le souci est la au close de la fenetre
ActiveWindow.Close
'fin de souci
😕
Windows("SYNCHRO_PR_OUTLOOK.xls").Activate
Sheets("SYNC_PR").Select


Columns("E:E").Select
Selection.Insert Shift:=xlToRight
Range("E2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[1],30)"
Range("E2").Select
Selection.Copy
Range("E2:E" & premlivide).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Call SYNCHRO_PR
Application.DisplayAlerts = True

Application.ScreenUpdating = True
Sheets("MACRO").Select
Range("A1").Select
ActiveWorkbook.Save
MsgBox ("Synchronisation de outlook terminee")
End Sub

 

[ChTi160]

Re : Repondre par defaut aux messages de excel

Salut jldancet
je ne sais pas si j'ai compris mais tu veux fermer un Classeur Nommer
Dim fichier
fichier = [C97]

si tu remplacais
ActiveWindow.Close
par
ActiveWorkBook.close
mais chez moi les deux fonctionnent ,j'ai juste la demande habituelle pour l'enregistrement des modifications lol

bonne nuit 😀

 

[jldancet]

Re : Repondre par defaut aux messages de excel

Merci, c'est sympa d'avaoir répondu aussi vite
effectivement avec wokbookclose je n'ai plus le probleme du message de la memoire à liberer mais j'ai quand meme celui de sauvegarder, je must serait de faire une reponse par VB, en attendant j'ai fait un workbook save avec un nom de fichier bidon et je n'ai plus aucun message.
avec mes salutations
JLDANCET😉 et encore merci