Ouvrir un second classeur + image display

[PatLac]

Bonsoir !
J´ai actuellement ce code, qui me permet d´ouvrir un 2 ème classeur, à partir du premier.

Sub Bouton1()
Dim vchemin As String
vchemin = ThisWorkbook.Path
Workbooks.Open Filename:=vchemin & "\Classeur2.xlsm"
'Sheets("Feuil1").Range("A1").Activate
'Workbooks("Classeur1.xlsm").Save
Workbooks("Classeur1.xlsm").Close

End Sub

Le problème, c´est qu´en ouvrant le second, il me ferme le premier.

Je voudrais que le premier reste ouvert, et je voudrais qu´en plus il me fasse apparaitre une image type "gif", pendant 5-6 secondes.

Est-ce possible ?
Merci.

 

[Roland_M]

Re : Ouvrir un second classeur + image display

bonsoir

on ouvre Classeur2.xlsm
et on ferme > Workbooks("Classeur1.xlsm").Close
je suppose ce premier classeur !?
ça me parait donc logique ! ou alors il faut supprimer cette ligne ou la mettre en rem !

 

[PatLac]

Re : Ouvrir un second classeur + image display

Merci Roland !

Ma question était :
"Je voudrais que le premier reste ouvert, et je voudrais qu´en plus il me fasse apparaitre une image type "gif", pendant 5-6 secondes."

OK pour le rem, mais pour l´image ?
salutations

 

[Roland_M]

Re : Ouvrir un second classeur + image display

re

voir classeur ci-joint !

 

[PatLac]

Re : Ouvrir un second classeur + image display

Roland_M merci !
C´est PARFAIT !
Bonne continuation et merci pour ton aide.