VBA : Revenir au classeur à la fin de la macro

Bonjour,

Dans votre code, vous ne revenez a votre classeur Excel que si vous avez une erreur.

Bonjour à tous les deux

Une petite fonction qui évite le/s "on error goto" dans le code

Function FichierOuvert(F As String) As Boolean
  On Error Resume Next
  FichierOuvert = Not Workbooks(F) Is Nothing
End Function

Cdlmnt

Merci pour votre réponse !

Malhreusement rien ne se passe toujours malgré les modifs, j'ai enlevé la partie qui gère l'erreur juste pour tester ce qui fait que j'ai ceci :

                   Dim MonApplication As Object
                   Dim MonFichier As String
                   Set MonApplication = CreateObject("Shell.Application")
                   MonFichier = Range("D2").Value 'à remplacer par votre fichier
                    
                   MonApplication.Open (MonFichier)
                   
                   Application.Wait (Now + TimeValue("00:00:02"))
                                    
                  Workbooks("Vente-des-variétés-VERSION LOCALE.xlsm").Activate
 

Mais cela ne fonctionne toujours pas, rien ne se passe avec la dernière ligne (testée encore une fois avec un autre fichier excel qui me fait bien revenir sur le fichier).

Bonjour,

testée encore une fois avec un autre fichier excel qui me fait bien revenir sur le fichier).

Ben, je serai tente de vous conseiller de prendre ce dit fichier, mais peut-etre un peu leger comme reponse.

Dans le fichier qui "fonctionne", vous n'avez mis que le code du test?

Vous avez deux ecrans, comment est faite la projection?

Bonjour, En fait quand je dis que cela fonctionne c'est juste la dernière ligne, pour revenir sur le fichier 

Mais des que j'ajoute le morceau qui ouvre l'image cela ne fonctionne plus. L'image s'ouvre mais je ne reviens pas dans le excel.

Pour l'histoire des 2 écrans, c'est un détail car tous ces tests sont effectués sur un seul et même écran en attendant.

Mais l'idée, qui fonctionne, est que le fichier Excel ouvre un photo et cette dernière se fait au niveau de l'autre écran qui est celui par défaut, pendant que sur l'écran secondaire je continue à travailler dessus, sauf que comme le excel ne se réactive pas la fin je suis obligé manuellement de cliquer pour revenir dessus. Ce qui est très embêtant car j'utilise ce fichier avec une doucette à code barre donc si je dois cliquer sur le fichier pour le réactiver à chaque scannage (des milliers en quelques jours) c'est peu optimisé et même une sacré perte de temps. C'est dans le cadre d'une exposition vente. 

Bonjour,

A tester avec votre nom de fichier. Chez moi, je lance le code avec un bouton sur feuil1, le fichier photo s'ouvre et 5 secondes plus tard j'ecrit la date dans une cellule en changeant de feuille

Windows("Photo.xlsm").Activate