Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub Auto_Close()
If ThisWorksheets("MATRICE").Saved = False Then
ThisWorksheets("MATRICE").Save
End If
End Sub
Option Explicit
Sub es()
Dim ws As Worksheet
Sheets("MATRICE").Visible = True
With Application
.DisplayAlerts = False
.ScreenUpdating = False
For Each ws In Worksheets
If ws.name <> "MATRICE" Then ws.Delete
Next ws
.DisplayAlerts = True
.ScreenUpdating = True
End With
Dim Fichier As String
Fichier = Environ("USERPROFILE") & "Documents\POINTAGES\"
Application.DisplayAlerts = False
' Ta sauvegarde
ThisWorkbook.SaveAs "RapHebdo"
Application.DisplayAlerts = True
Application.Quit
End Sub
Fichier = Environ("USERPROFILE") & "\Documents\POINTAGES\"
Fichier = Environ("USERPROFILE") & "\Documents\POINTAGES\"
Fichier = Environ("USERPROFILE") & "\Mes documents\POINTAGES\"
Fichier = Application.DefaultFilePath & "\POINTAGES\"
Fichier = ThisWorkbook.Sheets("chemin").Range("A1").Value
Dim Fichier As String
Fichier = Environ("USERPROFILE") & "Documents\POINTAGES\"
Application.DisplayAlerts = False
' Ta sauvegarde
ThisWorkbook.SaveAs "RapHebdo"
Application.DisplayAlerts = True
Application.Quit
Sub es()
Dim ws As Worksheet
Sheets("MATRICE").Visible = True
With Application
.DisplayAlerts = False
.ScreenUpdating = False
For Each ws In Worksheets
If ws.name <> "MATRICE" Then ws.Delete
Next ws
.DisplayAlerts = True
.ScreenUpdating = True
End With
Application.DisplayAlerts = False
' Ta sauvegarde
ThisWorkbook.SaveAs "RapHebdo"
Application.DisplayAlerts = True
Application.Quit
End Sub
en faite pour qu'il sauvegarde au bon endroit (donc dans le dossier pointage), il fallait juste mettre ce classeur dans le dossier
--dis-moi a quoi te sert la variable Fichier?
A rien.
FAUX