Fermer fichier sans sauver

[pobrouwers]

Bonjour le forum,

Pourquoi ce code ne fonctionne pas en ce qui concerne la fermeture du classeur ouvert sans le sauver et ne plus avoir de message qui me demande si je veux le sauver.

voici le code...

Sub PrintFiles()
Dim i As Integer
Dim fs As FileSearch

Set fs = Application.FileSearch
Application.ScreenUpdating = False
With fs
    .NewSearch
    .LookIn = Me.TxbBrowseForFolder.Value
    .SearchSubFolders = True
    .FileType = msoFileTypeExcelWorkbooks
    .Execute msoSortByFileName, msoSortOrderAscending
    If .Execute > 1 Then
        For i = 1 To .FoundFiles.Count
        Workbooks.Open .FoundFiles(i)
        Application.DisplayAlerts = False
        For Each sh In Sheets
          If sh.Name = "MACRO" Or sh.Name = "Feuil1" Then
             sh.Delete
          End If
        Next sh
        
          'If ActiveWorkbook.Name = "12 - Energie.xls" Then
             'ActiveSheet.PrintOut copies:=1, collate:=True
          'Else
           '  Sheets.PrintOut copies:=1, collate:=True
          'End If
        ActiveWorkbook.Close False
        Next i
    Else
    MsgBox "Pas de fichier(s) trouvé(s)"
    End If
End With
Application.ScreenUpdating = True
Unload UserForm2
End Sub

 

[pobrouwers]

Re : Fermer fichier sans sauver

J'ai encore ta première version, mais c'est plus la bonne.

Pourquoi c'est plus la bonne, il n'y a rien qui a changé?


Non le fs.close ne fonctionne pas...

 

[Hellboy]

Re : Fermer fichier sans sauver

re

Désolé !

Je ne veux pas tout de suite ouvrir ton fichier posté, mais est-ce que ceci fonctionnerais mieux ?


Set fs = Application.FileSearch
Application.ScreenUpdating = False
With fs
.NewSearch
.LookIn = Me.TxbBrowseForFolder.Value
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 1 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name = "MACRO" Or sh.Name = "Feuil1" Then
sh.Delete
End If
Next sh

'If ActiveWorkbook.Name = "12 - Energie.xls" Then
'ActiveSheet.PrintOut copies:=1, collate:=True
'Else
' Sheets.PrintOut copies:=1, collate:=True
'End If
Unload UserForm2
ActiveWorkbook.Close SaveChanges:=False
Next i
Else
MsgBox "Pas de fichier(s) trouvé(s)"
End If
End With
Unload UserForm2
Application.ScreenUpdating = True
End Sub

 

[pobrouwers]

Re : Fermer fichier sans sauver

Re Helloboy,

Non désolé, je vois que tu as mis le unload USFform2 avant de fermer.
J'avais fait ce test aussi croyant que c'était le USF qui foutait la m...

Mais j'ai fait un bete de test dans un fichier vierge
sub test()
Application.DisplayAlerts = False

ThisWorkbook.Close false
end sub

ou bien

sub test()
Application.DisplayAlerts = False

ThisWorkbook.Close SaveChanges:=False
end sub

Mais ca ne fonctionne pas
Donc je pense que c'est du a excel 2000 or sur office 2007 ca fonctionne...