la macro ne s'execute pas en entier
Bonsoir à tous.
Je viens de créer à l'aide de plusieurs posts une macro qui me permet d'ouvrir un fichier de l'enregistrer sous un autre nom, puis de lancer une autre macro (qu on appellera macro 2)dont la sortie sera copiée et collée dans le nouveau fichier crée préalablement. le hic c'est que tout se passe bien jusqu'à ce que la macro 2 (qui provien d'un autre fichier) s'execute. Elle s'execute c'est bien, mais tout le code qui devrait copier et coller les données après ne fonctionne pas . C'est à dire que ma macro s'arrete en plein milieu et ne copie pas les données.
Voici un morceau de mon code.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Sub phase1()
'code pour ouvrir et enregistrer sous un autre nom un fichier
...
' macro 2
fichierCompilation = "P:\Projets\VCM\Hygiene\compil\2007\essainouvelles compil\appli\compilation.xls"
Workbooks.Open fichierCompilation
' et la c est tt le code qui ne s'execute pas
Windows("compil_*.xls").Activate
Range("A5:CC660").Select
Range("CC660").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("VCM 2007 hygiène_new_mois12 le 31.xls").Activate
Sheets("projets").Select
Rows("5:658").Select
Range("B5").Activate
ActiveSheet.Paste
Selection.Copy
Workbooks(nomFichierSortie).Worksheets("Projets").Activate
Cells.Select
Selection.Clear
ActiveSheet.Paste
End Sub |
Si quelqun à une idée qu'il n'hésite pas parce que la je comprend pas du tout ce qui cloche.
D'avance merci
Jamelie