Bonsoir le forum
Je souhaiterai qu'a l'ouverture de mon fichier, la macro recherche si un fichier avec le meme nom que celui-ci + l"année et le mois existe déjà, si non, qu'elle enregistre le contenu de la feuille "Stats_FSHO" sur un fichier avec le meme nom + l'année et le mois de la sauvegarde, puis efface le contenu de la feuille "stats_FSHO" afin qu'elle redevienne vierge.
Grace à mes recherches sur Internet et ce forum, je suis arrivée au code suivant :
Private Sub Workbook_Open()
Dim NomFichier As String
Dim Chemin As String
Chemin = ThisWorkbook.Path
NomFichier = ThisWorkbook.Name & "_" & CStr(Year(Date)) & "_" & CStr(Month(Date))
'recherche si un fichier à ce nom existe
With Application.FileSearch 'il me dit "object doesn't support this action"
.LookIn = Chemin
.Filename = NomFichier & ".xls"
If .Execute() > 0 Then
GoTo fin
Else
ThisWorkbook.Sheets("stats_FSHO").SaveAs Chemin & NomFichier & ".xls"
Sheets("stats_FSHO").Range("A2:F45000").Delete
Sheets("stats_FSHO").Range("H2:H45000").Delete
End If
End With
fin:
End Sub
cependant Excel me dit que mon code "application.filesearch" = "object doesn"t support this action"...
Qualqu'un peut il m'aider svp?
Merci encore!
Je souhaiterai qu'a l'ouverture de mon fichier, la macro recherche si un fichier avec le meme nom que celui-ci + l"année et le mois existe déjà, si non, qu'elle enregistre le contenu de la feuille "Stats_FSHO" sur un fichier avec le meme nom + l'année et le mois de la sauvegarde, puis efface le contenu de la feuille "stats_FSHO" afin qu'elle redevienne vierge.
Grace à mes recherches sur Internet et ce forum, je suis arrivée au code suivant :
Private Sub Workbook_Open()
Dim NomFichier As String
Dim Chemin As String
Chemin = ThisWorkbook.Path
NomFichier = ThisWorkbook.Name & "_" & CStr(Year(Date)) & "_" & CStr(Month(Date))
'recherche si un fichier à ce nom existe
With Application.FileSearch 'il me dit "object doesn't support this action"
.LookIn = Chemin
.Filename = NomFichier & ".xls"
If .Execute() > 0 Then
GoTo fin
Else
ThisWorkbook.Sheets("stats_FSHO").SaveAs Chemin & NomFichier & ".xls"
Sheets("stats_FSHO").Range("A2:F45000").Delete
Sheets("stats_FSHO").Range("H2:H45000").Delete
End If
End With
fin:
End Sub
cependant Excel me dit que mon code "application.filesearch" = "object doesn"t support this action"...
Qualqu'un peut il m'aider svp?
Merci encore!