Fermeture automatique d'excel [Résolu]
A voir également:
- Fermeture automatique d'excel
- Fermeture automatique fichier excel inactivité - Guide
- Fermeture automatique classeur excel avec alarme - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visual Basic / VB.NET : Timeout sous vba excel (fermeture automatique de l'application) - CodeS Sour - Guide
- Fermeture automatique excel après 15 secondes inactif ✓ - Forum - VB.NET
- Insérer un filtre automatique dans Excel 2003 depuis VB.Net 2010 Interop ✓ - Forum - VB.NET
7 réponses
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:" & Range("A1"), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Range("A1") c'est la cellule ou tu as écris le nom
ActiveWorkbook.SaveAs Filename:= _
"C:" & Range("A1"), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Range("A1") c'est la cellule ou tu as écris le nom
Donc c'est sous excel,
pour enregistrer et fermer un classeur excel "Classeur1.xls"
voila
ActiveWorkbook.SaveAs Filename:= _
"C:\Classeur1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
pour enregistrer et fermer un classeur excel "Classeur1.xls"
voila
ActiveWorkbook.SaveAs Filename:= _
"C:\Classeur1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Pas besoin de mettre le chemin si tu sauvegardes le classeur sur le même chemin.
ActiveWorkbook.SaveAs Filename:= _
"C:\Classeur1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Juste sur le code de ton bouton tu mets :
Application.DisplayAlerts = False 'n'affiche pas de message
ThisWorkbook.Save
ThisWorkbook.Close
ActiveWorkbook.SaveAs Filename:= _
"C:\Classeur1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Juste sur le code de ton bouton tu mets :
Application.DisplayAlerts = False 'n'affiche pas de message
ThisWorkbook.Save
ThisWorkbook.Close