VBA ouverture fichier excel marche pas

[Edd93]

Bonsoir à vous !

J'ai créé une macro qui permet de fermer puis de réouvrir le même fichier mais il y a que la fermeture qui marche, l'ouverture se fait mais il n'y a rien, aucune feuille que du gris. Comme si la macro ne reconnaît pas le fichier à ouvrir.

J'ai mis une photo du fichier réouvert et je vous ai joints mon fichier, la macro s'exécute sur le bouton fermer et réouvrir.

Voici mon code

Sub Reouverture()
ThisWorkbook.Close

Workbooks.Open Filename:="C:\Users\eddajibi\Desktop\modelisationfin.xlsm"
End Sub

 

[jecherche]

Bonjour,
Ta macro demande de fermer le fichier actif... puis tu veux continuer ... mais, il est trop tard, le fichier est fermé


Jecherche

 

[Edd93]

Mmh... je souhaite une macro qui ferme ce fichier sans l'enregistrer puis qui le réouvre tout simplement, merci de me tenir au jus ! très sympa

 

[STephane]

Bonsoir,

Vous pouvez essayer ceci:

Sub Reopen_File()
'' http://stackoverflow.com/questions/22379546/vba-save-close-and-re-open-thisworkbook
'' Sub reopen()

Dim wb As Excel.Workbook
Set wb = ThisWorkbook

Dim pth As String
pth = wb.FullName

Application.OnTime Now + TimeValue("00:00:01"), Application.Workbooks.Open(pth)
wb.Close (True)

End Sub

 

[jecherche]

Bonjour,

Hé! Hé! Ça fonctionne


Jecherche

 

[Edd93]

merci beaucoup, bisoux