Bonjour à tous,
J'ai un fichier contenant deux bases de données, une Élève et l'autre MDS, chacune sur une feuille cachée. A l'ouverture de mon fichier Excel, je voudrais faire une copie de ces 2 feuilles cachées pour les archiver. La seule solution que j'ai trouvé est de les rendre visible, les copier puis les recacher. En faisant cela, on a l'impression que les feuilles "clignotent"...
Existe-t-il un façon de copier une feuille cachée sans la rendre visible?
Xav
PS: Voici le code que j'utilise pour la copie:
Private Sub Workbook_Open()
Dim Répertoire As String
Répertoire = "C:\base donnée\stages\Archives\"
Worksheets("Elèves").Visible = True
Sheets(Array("Elèves")).Copy
ActiveWorkbook.SaveAs Filename:=Répertoire & "Base Elèves " & Format(Now, "yyyymmdd_hhmmss") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close True
Worksheets("Elèves").Visible = False
Worksheets("MDS").Visible = True
Sheets(Array("MDS")).Copy
ActiveWorkbook.SaveAs Filename:=Répertoire & "Base MDS " & Format(Now, "yyyymmdd_hhmmss") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close True
Worksheets("MDS").Visible = False
End Sub
J'ai un fichier contenant deux bases de données, une Élève et l'autre MDS, chacune sur une feuille cachée. A l'ouverture de mon fichier Excel, je voudrais faire une copie de ces 2 feuilles cachées pour les archiver. La seule solution que j'ai trouvé est de les rendre visible, les copier puis les recacher. En faisant cela, on a l'impression que les feuilles "clignotent"...
Existe-t-il un façon de copier une feuille cachée sans la rendre visible?
Xav
PS: Voici le code que j'utilise pour la copie:
Private Sub Workbook_Open()
Dim Répertoire As String
Répertoire = "C:\base donnée\stages\Archives\"
Worksheets("Elèves").Visible = True
Sheets(Array("Elèves")).Copy
ActiveWorkbook.SaveAs Filename:=Répertoire & "Base Elèves " & Format(Now, "yyyymmdd_hhmmss") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close True
Worksheets("Elèves").Visible = False
Worksheets("MDS").Visible = True
Sheets(Array("MDS")).Copy
ActiveWorkbook.SaveAs Filename:=Répertoire & "Base MDS " & Format(Now, "yyyymmdd_hhmmss") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close True
Worksheets("MDS").Visible = False
End Sub