PatLac
XLDnaute Occasionnel
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.
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.