Où est l' erreur dans cette macro.

[Benoit]

Bonjour,

J'ai un classeur SEREF sur le dique D et sur la feuille SUD de ce classeur, j' entre des données que j' enregistre à l' aide de la macro suivante sur la feuille BASE qui se trouve sur un autre disque. Tout se passe bien sauf vers la fin après que la base soit enregistrée et fermée, la feuille sur laquelle j'ai fait la saisie, reste dans la barre des tâches au lieu de réapparaître sur l' écran, je suis obligé de faire un click dessus pour l' avoir sur l ' écran.
Est-il possible de l' afficher automatiquement ?
Merci.
Voilà la macro coupable.

Dim wb As Workbooks

Workbooks.Open ("C:\temp\base.xls")
Application.WindowState = xlMinimized
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Application.WindowState = xlMinimized
Windows("SEREF_CH.xls").Activate
Application.ScreenUpdating = False
Sheets("DONNEES").Visible = True
Sheets("DONNEES").Select
Rows("105:105").Select
Selection.Copy
Windows("BASE.xls").Activate
Rows("2:2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close
Windows("SEREF_CH.xls").Activate
Sheets("SUD").Select
Range("A4").Select
Application.ScreenUpdating = False
Sheets("DONNEES").Visible = False
End Sub

 

[Robert]

Bonjour Benoit,
et pourquoi ne joue tu pas avec Application.WindowState ...
@+

 

[Benoit]

Bonjour Robert.

Excuse-moi Robert mais tu pourrais développer un peu plus .

@+

 

[Benoit]

Re,
Apparemment, c' est ça que j' avais oublié : Application.WindowState = xlMaximized

Je pense que c' est ce que voulais dire Robert.

Merci

 

[Robert]

ReBonjour Benoit,
En début de ton code tu as les lignes suivantes

Workbooks.Open ("C:\temp\base.xls")
Application.WindowState = xlMinimized
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Application.WindowState = xlMinimized

Ceci met les fenêtre sur la bare de tâche.....

Application.WindowState = xlMaximized
tu remet l'appli en plein ecran...
@+

 

[Benoit]

Merci Robert pour ton aide.

@Plus. Benoit.