erreur d'exécution 9 sur une macro qui copie des donnée d'un fichier à un autre

[tapha20]

Bonjour,

j'espère trouver de l'aide pour cette macro.


je voudrai copier Ce cellules D, E, F, H, K du fichier STOCK MOAd classeur STOCK_MOAD à un autre fichier Doc travail classeur MOAD.

voilà la macro:

Sub Import_MOAD()


Workbooks.Open Filename:="C:\HYPERVISION\HYPERVISION\Exports\STOCK MOAD.xls"
Range("H:H,D😀,E:E,F:F,K:K").Copy
Windows("Doc.travail.xls").Activate
Sheets("MOAD").Select
Range("A1").Select
ActiveSheet.Paste
Windows("STOCK MOAD.xls").Activate
Range("A:A,B:B,C:C,D😀,E:E").Copy
Windows("Doc.travail.xls").Activate
Sheets("STOCK_MOAD").Select
Range("A1").Select
ActiveSheet.Paste
Windows("STOCK MOAD.xls").Close
Sheets("MOAD").Select

End Sub

à chaque fois que j'exécute la macro, elle fonctionne mais il y a tjrs l'erreur d'exécution 9 qui s'affiche.

y a t-il quelq'un pour m'aider à corriger cette anomalie.

MErci infiniment

 

[ERIC S]

Re : erreur d'exécution 9 sur une macro qui copie des donnée d'un fichier à un autre

Bonjour

dur de tester sans fichier et réinventer c'est fatiguant. Erreur 9 c'est quoi?

peut-être remplacer

Windows("STOCK MOAD.xls").Close

par

Windows("STOCK MOAD.xls").activate
activeworkbook.close savechanges:=false

 

[tapha20]

Re : erreur d'exécution 9 sur une macro qui copie des donnée d'un fichier à un autre

re bjr

dsl de ne pas pu le fichier, le problème c'est qu'il contient bcp de données confidentielles pour la boite ou je passe mon stage, ils ont insister sur ça.

En ce qui concerne mon problème, je ne sais pas vraiment si je l'ai résolu par contre j'ai suprimé les dernières ligne de code
et ça donne ça:

Sub Import_MOAD()


Workbooks.Open Filename:="C:\HYPERVISION\HYPERVISION\Exports\STOCK MOAD.xls"
Range("H:H,D😀,E:E,F:F,K:K").Copy

Windows("Doc.travail.xls").Activate
Sheets("MOAD").Select
Range("A1").Select
ActiveSheet.Paste

End Sub

je sais pas vraiment si j'ai réussi mais l'erreur 9.... n'apparait plus et la macro a l'air de marcher, j'ai pas trop compris pourquoi??

entouka merci bien pour votre aide

Windows("STOCK MOAD.xls").Activate
Range("A:A,B:B,C:C,D😀,E:E").Copy

Windows("STOCK MOAD.xls").Close
Sheets("MOAD").Select

 

[Roland_M]

Re : erreur d'exécution 9 sur une macro qui copie des donnée d'un fichier à un autre

bonjour,

as-tu essayé d'exécuter la macro pas à pas !
si tu connais pas ...
tu te place sur la macro et tu tapes F8 plusieurs fois
et à un moment donné tu auras l'erreur sur la ligne concernée !?