Bonjour à tous,
Un petit souci avec je pense ma déclaration de variable!!!
Je m'explique: J'ouvre un classeur "BD" à l'aide de Workbook_open, mais le problème ce trouve à la fermeture du classeur.
J'ai cette procédure
Private chemin As String
Private Sub Workbook_Open()
Dim sem As String
chemin = "M:\DOP DT\Bases Techniques Chauffage\COMPTEUR HORAIRE AGENTS\Semainier divers groupes\Données\BD"
sem = "Semaine " & Admin.Nsemaine
Sheets("Données").Visible = xlVeryHidden
Application.OnKey "^<", "Userform" 'Ctrl+w
ActiveWindow.Zoom = 76
Init
' Ouverture du dossier "base de données BD"
On Error Resume Next
Workbooks(chemin & ".xlsm").Activate
If Err.Number <> 0 Then
Workbooks.Open Filename:=chemin & ".xlsm", Password:="081278"
ActiveWorkbook.Application.WindowState = xlMinimized
End If
On Error GoTo 0
Workbooks(sem & ".xlsm").Activate
ActiveWorkbook.Application.WindowState = xlMaximized
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemin = "M:\DOP DT\Bases Techniques Chauffage\COMPTEUR HORAIRE AGENTS\Semainier divers groupes\Données\BD"
Workbooks(chemin & ".xlsm").Close
Set gcolSecteur = Nothing
On Error Resume Next ' si une erreur ce passe
Dim oSh As Object
For Each oSh In ThisWorkbook.Sheets
If oSh.Name <> "Accueil " Then oSh.Visible = False
Next oSh
If (Err.Number > 0) Then
End If
ActiveWorkbook.Save
End Sub
A la fermeture, il me met "l'indice n'appartient pas à la selection"
Pourtant ce n'est la premiére!!!
Merci de votre aide.
Coco