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.
Si quelqun à une idée qu'il n'hésite pas parce que la je comprend pas du tout ce qui cloche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
D'avance merci
Jamelie
Partager