Petit soucis debogage VBA

Bonjour.
Voici mon problème.
J'ai un tableur "x" et un tableur "y"
Je souhaite copier des valeurs de "x" vers "y" dans un ordre précis et des cases précises.
Tout fonctionne parfaitement sauf lorsque je demande a VBA d'ouvrir le tableur "y" ( qui reçoit les données ) puis de le fermer à la fin.
Voici la ligne qui pose soucis : Windows("Y.xlsx").Activate

Mon Code

Sub ADD_NEW_CLIENT()
'
' ADD_NEW_CLIENT Macro
'

'
Dim MonApplication As Object
Dim MonFichier As String
Set MonApplication = CreateObject("Shell.Application")

MonFichier = "C:\lieu\Y.xlsx" '
MonApplication.Open (MonFichier)
Application.Wait(Now + TimeValue("0:00:05"))
Windows("Y.xlsx").Activate
ActiveWorkbook.Worksheets("Liste Client").Activate

Si le tableur est ouvert à l'avance, pas de soucis.. mais s'il est fermé et qu'il doit l'ouvrir, alors blocage.
Pour information, il m'ouvre bien "Y.xlsx" malgré l'erreur. Il n'y a donc pas de soucis de chemin ou autre. Aussitôt après avoir cliqué sur "FIN" pour le débogage, je relance la macro et ça marche parfaitement.

Merci pour votre aide.

Bonsoir,

Workbook à la place de windows, non ?

@ bientôt

LouReeD

Merci pour ta réponse. Je me retrouve avec "Erreur de compilation Sub ou Fonction non définie"

Sub ADD_NEW_CLIENT()
'
' ADD_NEW_CLIENT Macro
'

'
   Dim MonApplication As Object
  Dim MonFichier As String
  Set MonApplication = CreateObject("Shell.Application")

  MonFichier = "C:\le lieu\DATA GLO.xlsx" 'à remplacer par votre fichier
  MonApplication.Open (MonFichier)
 Workbook("DATA GLO.xlsx").Activate
 ActiveWorkbook.Worksheets("Liste Client").Activate
 MsgBox "It works!"

Bonjour,

avec Set MonApplication = CreateObject("Shell.Application") tu crées une nouvelle session, les 2 ne peuvent se voir et tu ne peux agir sur l'autre.
Pour ouvrir dans la même session :
Workbooks.Open("C:\lieu\Y.xlsx")

Ou même mieux avec une variable. Qq chose comme :
Dim wb as workbook
Set wb = Workbooks.Open("C:\lieu\Y.xlsx")
'...
eric

j'en étais pas loin !

@ bientôt

LouReeD

Pas eu trop le courage de tester mon affirmation, faux souvenir possible...

Tu avais peut-être bon aussi