Sauver un classeur Excel via VB sans confirmation

Signaler
Messages postés
20
Date d'inscription
vendredi 8 février 2002
Statut
Membre
Dernière intervention
6 février 2004
-
Messages postés
85
Date d'inscription
samedi 20 novembre 2004
Statut
Membre
Dernière intervention
18 juin 2009
-
Bonjour,

Je récupére des fichiers textes, et je met en forme ces derniers dans Excel.
Si le fichier Excel n'existe pas, je le créé, l'alimente et le sauve sous un nom prédéfini.
Si il existe, je l'ouvre, l'alimente et le sauve.

Mon problème est qu'il faudrait que la sauvegarde du fichier se fasse sans action de l'utilisateur :

Excel demande en effet si l'utilisateur veut sauvegarder les modifications effectuées !!!

Voici un petit bout de mon code :

If blnExisteDeja Then
xlWBook.Save FileName:=strPath & "\Recap.xls", PromptUser:=False
Else
xlWBook.SaveAs FileName:=strPath & "\Recap.xls"
End If

' Fermeture d'Excel
xlWBooks.Close
xlAppl.Quit
Set xlAppl = Nothing

J'ai essayé de multiples combinaisons avec PromptUser, Close, CloseAll, etc ... rien ne semble fonctionner.
Soit il me demande encore, soit il ne me demande pas MAIS il ne sauve pas :-(((((((

Merci pour votre aide

2 réponses

Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
1
Utilise la propriété DisplayAlerts d'Excel.

Cet exemple, extrait de l'aide de VBA, montre comment fermer le classeur Book1.xls sans inviter l'utilisateur à enregistrer les modifications. Les modifications apportées à Book1.xls ne sont pas enregistrées.

Application.DisplayAlerts = False
Workbooks("BOOK1.XLS").Close
Application.DisplayAlerts = True

Bonne chance
Messages postés
85
Date d'inscription
samedi 20 novembre 2004
Statut
Membre
Dernière intervention
18 juin 2009

t'a essayer sa ??

' Fermeture d'Excel
xlWBooks.Close False
xlAppl.Quit
Set xlAppl = Nothing