simonbaron
XLDnaute Nouveau
Bonjour,
Petit problème. Ma macro doit ouvrir dans le même classeur plusieurs fichiers, et copier certaines cellules afin de les coller dans un fichier global ("global.xls"). Comment je peux lui dire "Si tu ne trouve pas ce fichier, dans "global.xls" descend de X lignes et passe au fichier suivant". Je vous joins une partie de ma macro:
Workbooks.Open ("V:\....\CHINA.xls")
Range("IV3").End(xlToLeft).Select
Range(Selection, Selection.Offset(12, -2)).Select
Selection.Copy
Windows("global.xls").Activate
ActiveSheet.Paste
ActiveCell.Offset(13, 0).Range("A1").Select
Windows(“CHINA.xls").Activate
ActiveWindow.Close
Workbooks.Open ("V:\...\ CROATIA.xls")
Range("IV3").End(xlToLeft).Select
Range(Selection, Selection.Offset(12, -2)).Select
Selection.Copy
Windows("global.xls").Activate
ActiveSheet.Paste
ActiveCell.Offset(13, 0).Range("A1").Select
Windows(“CROATIA.xls").Activate
ActiveWindow.Close
Dans ce cas là, je voudrais lui dire: "Si le fichier "CHINA" n'existe pas, dans le fichier "global" descend de 13 lignes et passe au fichier "CROATIA". Mais comme il y aura 30 fichiers, est-ce qu'il est possible de lui donner une comande plus générique (genre "si CE fichier n'existe pas, ....., ouvre le fichier qui vient après dans la liste").
Merci beaucoup
Petit problème. Ma macro doit ouvrir dans le même classeur plusieurs fichiers, et copier certaines cellules afin de les coller dans un fichier global ("global.xls"). Comment je peux lui dire "Si tu ne trouve pas ce fichier, dans "global.xls" descend de X lignes et passe au fichier suivant". Je vous joins une partie de ma macro:
Workbooks.Open ("V:\....\CHINA.xls")
Range("IV3").End(xlToLeft).Select
Range(Selection, Selection.Offset(12, -2)).Select
Selection.Copy
Windows("global.xls").Activate
ActiveSheet.Paste
ActiveCell.Offset(13, 0).Range("A1").Select
Windows(“CHINA.xls").Activate
ActiveWindow.Close
Workbooks.Open ("V:\...\ CROATIA.xls")
Range("IV3").End(xlToLeft).Select
Range(Selection, Selection.Offset(12, -2)).Select
Selection.Copy
Windows("global.xls").Activate
ActiveSheet.Paste
ActiveCell.Offset(13, 0).Range("A1").Select
Windows(“CROATIA.xls").Activate
ActiveWindow.Close
Dans ce cas là, je voudrais lui dire: "Si le fichier "CHINA" n'existe pas, dans le fichier "global" descend de 13 lignes et passe au fichier "CROATIA". Mais comme il y aura 30 fichiers, est-ce qu'il est possible de lui donner une comande plus générique (genre "si CE fichier n'existe pas, ....., ouvre le fichier qui vient après dans la liste").
Merci beaucoup