Classeur excel masqué

[mic-mic]

Bonsoir,

J'ai récupéré un fichier excel au boulot mais lorsque je veux l'ouvrir
celui-ci reste masqué. Je suis obligé de passer par Fenêtre-Afficher.
Comment faire pour afficher ce classeur dés son ouverture ???

Merci.

 

[Minick]

Salut,

Est ce que tu l'as deja enregistré apres l'avoir démasqué, car
normalement il suffit de l'enregistrer quand tu l'a demasqué pour qu'il ne soit plus masqué à la prochaine ouverture.

Ou alors il y a peut etre une macro a l'ouverture qui le remasque.

@+
Minick

 

[mic-mic]

Je l'ai enregistré après l'avoir démasqué mais ça ne marche pas.
En fait, j'ai une macro dans un autre fichier qui met à jour ce fichier en question, qui l'enregistre et qui le ferme mais je ne lui ai pas demandé de le masquer.
Je fais appel à la fonction GetObject, est-ce que ça peut avoir un lien ?????

 

[Minick]

Re,

Je ne pense pas kil y é un lien avec GetObject.

si t fichier ne son pas trop lourd zip les é join les
en voyan ton code on ne c jamais

@+
Minick

 

[mic-mic]

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.

 

[Minick]

Re re,

J'ai testé ton code et effectivement apres avoir lancé le code la feuille se masque.
il sembleré donc que cela vienne de la fonction GetObject mais je ne peu te dire pkoi.
A vrai dire je ne suis pas coutumier de cette fonction je ne c pas si c couran d'avoir ce pb ou pas.


Je peux juste te proposer de faire autrement (ouvrir le fichier é le fermer ensuite)

désolé de ne pas pouvoir t'aider plus

@+
Minick

 

[mic-mic]

Merci pour ton aide.