Discussion :

[tonybouk]

Bonjour à tous,

J'ai une erreur dans ma macro qui consiste a copier une ligne d'un classeur vers un autre. J'ai l'erreur : la méthode paste a échoué. Voici mon code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub sinistre_courant() 'SINISTRE COURANT
Call copy("Sinistres", 10)
 
Sheets("Macro").Select
Range("Q1").copy
Range("H13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Application.CutCopyMode = False
End Sub
 
 
Sub copy(onglet As String, col As Integer)
 
Dim source, cible As String
Dim reseau As Range
Dim typo As Range
Dim acopier As Range
 
Sheets(onglet).Select
 
For Each reseau In Sheets(onglet).Columns(2).Cells
    If reseau.Value = "" Then Exit For
    Sheets(onglet).Range("B12").Value = reseau.Value
 
    For Each typo In Sheets(onglet).Columns(5).Cells
        If typo.Value = "" Then Exit For
        Sheets(onglet).Range("B13").Value = typo.Value
 
            For Each acopier In Sheets(onglet).Columns(col).Cells
                If acopier.Value = "" Then Exit For
 
                source = acopier.Value
                cible = acopier.Offset(0, 1).Value
 
    Workbooks.Open Filename:=source
    Sheets("Reserves").Select
    Rows("281:281").Select
    Selection.copy
    ActiveWorkbook.Close
    Workbooks.Open Filename:=cible
    Sheets("Reserves").Select
    Rows("281:281").Select
    ActiveSheet.Paste
    ActiveWorkbook.Close
 
            Next
    Next
Next
 
Sheets("Macro").Select
 
End Sub

je ne trouve absolument pas ce qui cloche dans mon code ?

merci

[evx136]

Bonjour,
a regarder vite fait ton code je pense que c'est la ligne 40 qui cloche. Vous fermer le fichier source avant d'avoir collé

[Godzestla]

Bonjour,

pour éviter de construire une usine à Gaz et d'ouvrir tout un tas de fichiers, je te conseille de regarder ce tuto