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

 

[flo2002]

Re : Fermer fichier sans sauver

bonjour,
pour les messages je crois que c'est:
Application.DisplayAlerts = False

et je crois que ca doit suffir,
sinon tu ajoute save=xlno je crois mais la encore moins sur.

 

[pobrouwers]

Re : Fermer fichier sans sauver

Merci flo2002,

si tu regardes bien le code, j'ai mis Application.DisplayAlerts = False
je ne comprends pas pourquoi ca ne fonctionne pas ...

Save = xlNo ne marche pas non plus ...

 

[flo2002]

Re : Fermer fichier sans sauver

si il te ferme bien le bon fichier je ne vois pas ce qui le perturbe...
etrange!

 

[flo2002]

Re : Fermer fichier sans sauver

peut etre en lui mettant quelque chose comme ca:
Windows(AAA).Activate
ActiveWindow.Close

 

[pobrouwers]

Re : Fermer fichier sans sauver

Salut jmps

Via une autre feuille xl et un usf

 

[pobrouwers]

Re : Fermer fichier sans sauver

oui c'est bien ca...

 

[pobrouwers]

Re : Fermer fichier sans sauver

Re,
Voici je le poste...

Pour que le test fontionne, je te propose de faire cela,

1 cree un rep sur ton pc
2 cree par ex 2 classeurs nommés 1.xls et 2.xls
3 renomme toutes les feuilles sous n'importe quel nom DONT une que tu nommes MACRO (en majuscule) C'est important car tu dois faire un changement pour qu'il te demande si tu veux sauver ici le changement c'est que la macro va supprimer la feuille qui est nommée MACRO
4 clique sur imprimer

J'ai enlever les lignes pour l'impression car je suppose que tu n'as pas envie d'imprimer des pages blanches
Merci d'avance

 

[pobrouwers]

Re : Fermer fichier sans sauver

C'est normal que tu te retrouves avec des noms de fichiers différents c'est que tu as cliquer sur renomer.

cliques sur imprimer et indiques le chemin (avec le bouton parcourir) dans lequel tu as stocké les 2 fichiers
Ca devrait fonctionner...

 

[pobrouwers]

Re : Fermer fichier sans sauver

Non pardon, effectivement chez moi le fichier "centralisation MO" ne se trouve pas dans le meme répertoire que les autres fichiers donc c'est pour ca que je n'ai pas mis de if qui excluerait le fichier qui contient le code...

sauve si tu veux bien le fichier "centralisation MO" dans un autre répertoire et refais la manip

attention dans les 2 fichiers que tu as créés, tu dois avoir une feuille qui se nomme "MACRO"

Tu vas voir, tu auras un message te demandant si tu veux sauver le fichier ou pas. c'est ce message que je veux eviter

Merci

 

[pobrouwers]

Re : Fermer fichier sans sauver

;-)

Je crois que tu ne comprends pas bien ce que je veux faire.

Si je mets
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub

je vais agir sur le fichier ou le code se trouve cad centralisation MO
Ce que fait la macro :

Il ouvre les fichiers qui se trouvent dans un repertoire,
execute les différents actions
et puis le ferme
mais comme je delete une feuille dans les fichiers ouverts, il me demande si je veux les enregistrer, moi ce que je souhaiterai c'est qu'il ne les sauve pas et qu'il ne demande pas si je veux les enregistrer ou pas

 

[pobrouwers]

Re : Fermer fichier sans sauver

Bonjour,

Je crois que le probleme vient du fait que je suis sur excel 2000, cette version ne gererait pas le ThisWorkbook.Close False.

Quelqu'un a une idée sur ce sujet ?

Merci

 

[pobrouwers]

Re : Fermer fichier sans sauver

Parce que je ne veux pas imprimer ces feuilles mais j'ai envie de les garder pour infos...
Tu vas me dire tu n'as qu'a inserer un if dans le processus pour ne pas imprimer ces feuilles. C'est vrai mais je trouvais plus facile des les supprimer et puis imprimer toutes les feuilles des classeurs

 

[Hellboy]

Re : Fermer fichier sans sauver

Bonjour

Est-ce que ce code peut vous servir ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  ThisWorkbook.Saved = False
  ThisWorkbook.Close

End Sub

 

[pobrouwers]

Re : Fermer fichier sans sauver

Bonjour Helloboy

Non désolé, jmps m'avait fait cette proposition mais voir le post que j'ai répondu hier 19h43

Merci