empêcher apparition boite de dialogue "voulez-vous enregistrer les modifications..."

[osiris150]

Bonjour,

Voilà je rencontre un petit problème. J'ai crée une macro à partir d'un fichier Excel qui ouvre un fichier .Txt. Ensuite dans ce dernier j'opère quelques modifications de mise en page que je recopie dans le fichier Excel. Le problème c'est qu'à la fin de ma macro, il apparaît toujours la fenêtre "Voulez-vous enregistrer les modifications apportés au NOM DU FICHIER.txt". Je souhaiterais que cette fenêtre n'apparaisse plus car de toute façon je ne veux pas sauvegarder les modifications effectuées dans le fichier .txt.

Merci d'avance pour votre aide.

Voilà le code que j'utilise :

Sub Macro6()
'
' Macro6 Macro
'

'
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Nicolas\Mes documents\Box Vannes.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1) _
, Array(8, 1), Array(21, 1), Array(62, 1), Array(72, 1), Array(79, 1), Array(92, 1), Array( _
102, 1), Array(113, 1), Array(117, 1), Array(125, 1), Array(133, 1), Array(144, 1)), _
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:= _
True
Columns("A:M").Select
ActiveWorkbook.Worksheets("Box Vannes").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Box Vannes").Sort.SortFields.Add Key:=Range("E4:E127"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Box Vannes").Sort
.SetRange Range("A4:M127")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Rows("1:6").Select
Selection.Delete Shift:=xlUp
Range("F9").Select
ActiveWindow.SmallScroll Down:=-3
Range("A1:M300").Select
Selection.Copy
Windows("PRODUITS PRESENTS DANS LES SALLES EXPO 2007.xls").Activate
Sheets("Box Vannes Temp").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("Box Vannes.txt").Activate
Cancel = True
ActiveWorkbook.Close
Sheets("Box Vannes").Select
End Sub


Nicolas

 

[kiki29]

Re : empêcher apparition boite de dialogue "voulez-vous enregistrer les modifications

Salut,le balisage n'est pas interdit

    Application.DisplayAlerts = False
    '......
    Application.DisplayAlerts = True

 

[James007]

Re : empêcher apparition boite de dialogue "voulez-vous enregistrer les modifications

Bonjour,

As-tu essayé :

Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

A +

 

[Efgé]

Re : empêcher apparition boite de dialogue "voulez-vous enregistrer les modifications

Bonjour osiris150,
Peut être , en début de macro:

Application.DisplayAlerts = False

En fin de macro :

ActiveWorkbook.Close (False)
Sheets("Box Vannes").Select
Application.DisplayAlerts = True

Cordialement

 

[osiris150]

Re : empêcher apparition boite de dialogue "voulez-vous enregistrer les modifications

ça c'est de la réponse rapide !!! Merci à tous les deux ça fonctionne à merveille !
Bonne journée