Discussion :

[pcone]

Bonjour
Par une macro, je copie la valeur une plage de cellules fusionnées (A1:C2) d'un classeur ouvert nommé par ex. "A.xlsm" vers une plage identique (fusionnée également) d'un second classeur ouvert dont je ne connais pas le nom par avance (il change à chaque sélection).
Le but est donc de chercher quels sont les classeurs ouverts et de coller la valeur copiée de A.xlsm vers ce second classeur ouvert.
Jusqu'à aujourd'hui la macro fonctionnait, mais maintenant elle plante dès qu'il s'agit de coller (il semble qu'elle ait perdu la valeur copiée lors du changement de classeur)
Je reçois le message : "erreur d'exécution 1004, La méthode PasteSpecial de la classe Range a échoué"
Quelqu'un peut-il me sortir de ce mauvais pas ? Merci d'avance

[Igloobel]

Bonjour,

Peux-tu mettre le code de ta macro sur le fil que l'on puisse voir

entre balise code [#]

[pcone]

Bonjour Igloobel
Voici le code complet des deux macros concernées (dans le même module).
Le fichier à partir duquel la macro est lancée se nomme "liste_ia.xlsm"
Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub ingaff_1()
    Range("a1:c2").Select
    Selection.Copy
    coping
End Sub

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
 
Sub coping()
Application.CutCopyMode = True
Dim wb As Workbook
For Each wb In Workbooks
    wb.Activate
    If wb.Name = "PERSONAL.XLB" Then GoTo suite
    If wb.Name = "liste_ia.xlsm" Then GoTo suite
suite:
Next wb
ActiveWorkbook.Unprotect Password:="Toto"
'Excel.Workbooks(Fichier).Worksheets("Formulaire").Activate
 
Dim DernLigne As Long
DernLigne = Range("F" & Rows.Count).End(xlUp).Row
If DernLigne = 219 Then GoTo cas1 Else GoTo cas2
cas1:
Range("G57:I58").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.Close savechanges:=True
GoTo fincas
cas2:
Range("G59:I60").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.Close savechanges:=True
fincas:
 
End Sub

[pcone]

Bonjour,

Peux-tu mettre le code de ta macro sur le fil que l'on puisse voir

entre balise code [#]

Bonjour Igloobel
Voici le code complet des deux macros concernées (dans le même module).
Le fichier à partir duquel la macro est lancée se nomme "liste_ia.xlsm"
Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub ingaff_1()
    Range("a1:c2").Select
    Selection.Copy
    coping
End Sub

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
 
Sub coping()
Application.CutCopyMode = True
Dim wb As Workbook
For Each wb In Workbooks
    wb.Activate
    If wb.Name = "PERSONAL.XLB" Then GoTo suite
    If wb.Name = "liste_ia.xlsm" Then GoTo suite
suite:
Next wb
ActiveWorkbook.Unprotect Password:="Toto"
'Excel.Workbooks(Fichier).Worksheets("Formulaire").Activate
 
Dim DernLigne As Long
DernLigne = Range("F" & Rows.Count).End(xlUp).Row
If DernLigne = 219 Then GoTo cas1 Else GoTo cas2
cas1:
Range("G57:I58").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.Close savechanges:=True
GoTo fincas
cas2:
Range("G59:I60").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.Close savechanges:=True
fincas:
 
End Sub