la macro ne s'execute pas en entier

Version imprimable

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

07/01/2008, 17h48
ucfoutu

Bonsoir,

Enlève le 2àme selection.copy ...
07/01/2008, 18h22
jamelie

bah ca marche po quand même
07/01/2008, 18h36
Pierre Fauconnier
Bonjour

La ligne
Code:

1 2 Selection.Clear
pose problème lors du collage, sinon, il semble que le copier/coller s'effectue sans problème...

Je suppose que ton code provient de copier/coller de codes réalisés avec l'enregistreur de macros... Le problème, c'est que l'enregistreur produit souvent un code merd*. (Et dire qu'on le conseille aux débutants...:cry:)

Lorsque c'est possible, il est préférable d'utiliser la syntaxe suivante
Code:

1 2 Range("A5:CC660").Copy Destination:=...
qui est beaucoup plus claire à lire et à déboguer... et qui évite plein de lignes superflues...

Ok?

Bonjour, j'ai essayé ce que tu m'as dit mais ca ne fonctionne toujours pas.
Effectivement pour obtenir le code pour copier et coller les données j'avais utilisé l'enregistreur de macros.

Je remets le bout de code que j'ai modifié. J'ai probablement fais une erreur.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub phase1() ... wkbNew.Activate fichierCompilation = "P:\Projets\VCM\Hygiene\compil\2007\essainouvelles compil\appli\compilation.xls" Workbooks.Open fichierCompilation Range("A5:CC660").Copy Destination:=Workbooks(nomFichierSortie).Worksheets("Projets").Range("A5:CC800") End Sub
Merci d'avoir essayé de m'aider.

Jamelie

je vien de m'appercevoir que dans ma macro compilation le code s'arrete ici:
Code:

1 2 3 4 5 6 7 8 9 10 Sub compilation() ... Workbooks.Open NomFichier Application.DisplayAlerts = False Workbooks("Compilation.xls").Close 'une fois que le fichier compilation se ferme, il ne se passe plus rien 'même cette dernière ligne ne s'execute pas Workbooks(NomFichier).Worksheets("Feuil1").Activate
je pense que le problème pourrait venir d'ici mais je vois pas trop ce qui ne va pas

je bloque carrément, j'ai toujours pas trouvé ce qui ne va pas. J'ai essayé de faire une bloucle if disant que si le fichier a est ouvert alors il faut copier et coller les données dans le fichier b désigné. Voici le code, je l'ai trouvé sur le forum.

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
29
30
31
32
33
34
35
36
37
38
39
40
 
Function GetClasseur(Nom As Variant) As Workbook
    Dim wk As Workbook
 
    For Each wk In Workbooks
        If UCase(wk.FullName) = UCase(Nom) Then
            Set GetClasseur = wk
            Exit For
        End If
    Next wk
    Set wk = Nothing
End Function
 
Sub OuvrirClasseur()
Dim ladate As String
Dim MyDate, MyDay, MyMonth, MyYear As Integer
 
MyDate = Date
MyDay = Day(Date)
MyMonth = Month(Date)
MyYear = Right(Year(Date), 2)
 
ladate = Format(MyDate, "ddmmyy")
 
Dim NomClasseur1, NomClasseur2, NomClasseur3 As Variant
Dim wk As Workbook
 
    NomClasseur1 = "P:\...\compil_" & ladate & ".xls"
    NomClasseur2 = "P:\...\Appli\Compilation.xls"
    NomClasseur3 = "P:\...\VCM 2007 hygiène_new_mois * .xls"
 
    Set wk = GetClasseur(NomClasseur1)
    If wk Is Nothing Then
        Workbooks(NomClasseur2).Close
        Else
        wk.ActiveSheet
        Selection.Copy Destination:=Workbooks(NomClasseur3).Worksheets("Projets").Range("A5:CC800")
 
    End If
End Sub

Mais ça ne change rien visiblement puisque mon fichier compilation se ferme et que la plage selectionnée ne se copie pas dans mon autre fichier.

est ce que quelqu'un aurait une idée svp?

Jamelie