Le fichier service monnaie est trés lourd et en plus il y a beaucoup de modules.
Je mets juste le code lié au fichier FDC dépouillés 2004. C'est ce fichier qui s'ouvre masqué.
Sub statistiques()
Dim datejour As Variant
datejour = Workbooks("Service Monnaie.xls").Sheets("220").Range("f1").Value
Dim fdcdepouilles As Workbook
Set fdcdepouilles = GetObject("D:\Michaël\Projet\Bhv\FDC dépouillés 2004.xls")
If Month(datejour) = 1 Then
fdcdepouilles.Sheets("jan").Activate
ElseIf Month(datejour) = 2 Then
fdcdepouilles.Sheets("fév").Activate
ElseIf Month(datejour) = 3 Then
fdcdepouilles.Sheets("mars").Activate
ElseIf Month(datejour) = 4 Then
fdcdepouilles.Sheets("avril").Activate
ElseIf Month(datejour) = 5 Then
fdcdepouilles.Sheets("mai").Activate
ElseIf Month(datejour) = 6 Then
fdcdepouilles.Sheets("juin").Activate
ElseIf Month(datejour) = 7 Then
fdcdepouilles.Sheets("juil").Activate
ElseIf Month(datejour) = 8 Then
fdcdepouilles.Sheets("août").Activate
ElseIf Month(datejour) = 9 Then
fdcdepouilles.Sheets("sept").Activate
ElseIf Month(datejour) = 10 Then
fdcdepouilles.Sheets("oct").Activate
ElseIf Month(datejour) = 11 Then
fdcdepouilles.Sheets("nov").Activate
ElseIf Month(datejour) = 12 Then
fdcdepouilles.Sheets("déc").Activate
End If
Dim compteur As Byte
For compteur = 10 To 41
If fdcdepouilles.ActiveSheet.Cells(compteur, 2).Value = Workbooks("Service Monnaie.xls").Sheets("220").Range("f1").Value Then
fdcdepouilles.ActiveSheet.Cells(compteur, 3).Value = Workbooks("Service Monnaie.xls").Sheets("220").Range("c14").Value
fdcdepouilles.ActiveSheet.Cells(compteur, 4).Value = Workbooks("Service Monnaie.xls").Sheets("220").Range("d14").Value
fdcdepouilles.ActiveSheet.Cells(compteur, 6).Value = Workbooks("Service Monnaie.xls").Sheets("220").Range("e14").Value
fdcdepouilles.ActiveSheet.Cells(compteur, 7).Value = Workbooks("Service Monnaie.xls").Sheets("220").Range("b14").Value
fdcdepouilles.ActiveSheet.Cells(compteur, 8).Value = Workbooks("Service Monnaie.xls").Sheets("220").Range("h14").Value
End If
Next compteur
fdcdepouilles.Save
fdcdepouilles.Close
Set fdcdepouilles = Nothing
End Sub
Merci.