Voulez-vous enregistrer les modif.

[OCTOPUS]

Bonjour,

Je voulais savoir s'il était possible par le biais de VBA, d'éviter d'avoir le message 'voulez-vous enregistrer les modifications apportées à .... ? ) ceci après une macro de copie et exportation d'une feuille d'un classeur Excel ?

Merci de votre aide ...!!!

 

[excalibur]

bonjour octoplus , le forum si j ai bien compris a la fermeture de ton classeur Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub' salutations

 

[jeromegmc]

Salut,

Je pense que tu peux utiliser : DisplayAlerts

Cette propriété a la valeur True si Microsoft Excel affiche des messages, notamment d'alerte, lorsqu'une macro est exécutée.

Affectes lui la valeur FALSE et tu n'auras plus de message d'alerte, n'oublies pas de lui remettre la valeur TRUE à la fin de la macro.


A+

 

[octopus]

Merci pour vos réponse mais je n'arrive pas à solutionner mon pb , j'ai oublier de dire que j'était novice.

Je vous joins le code utilisé, cela pourra peut être servir !!!


Sub edition_bilan()


Sheets('Tableau Semaine').Select
ActiveSheet.Unprotect
Sheets('Tableau Semaine').Copy

ChDir _
'Q:\\CRCEM\\CR HYPERVISION NATIONALE\\BILAN HEBDO\\'
NOM = 'BILAN S' & Range('s16').Value & '.xls'
ActiveWorkbook.SaveAs Filename:= _
'Q:\\CRCEM\\CR HYPERVISION NATIONALE\\BILAN HEBDO\\' & NOM, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 871.5, 184.5, 195.75, 541.5). _
Select
'pour masquer une partie de tableau
Selection.ShapeRange.ScaleWidth 1.01, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Range('a6').Select
ActiveSheet.Protect
ActiveWorkbook.Close

End Sub

 

[jeromegmc]

Resalut,

Place en début de subroutine:

displayalerts = false

et en fin de subroutine:

displayalerts = true


Ca marche avec ça ?

A+

 

[PascalXLD]

Bonjour

Je pense que c'est plutot

Application.displayalerts=false

Bonne journée

 

[octops]

malheureusement cela ne marche tjrs pas !!!

 

[OCTOPUS]

Re:Bonjour,

Merci pour vos lumières qui m'ont permis de comprendre qu'il me manquais :


DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close

Encore une fois, ce forum reste pour moi l'incontournable référence.

Merci Encore

Nicolas.