Bonjour à tous,

après plsuieur test/recherche je ne comprend pas pourquoi ma macro ne fonctionne pas donc je me tourne vers vous.

tout d'abord voici ma macro :

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
 
Sub test2()
 
 
Dim SourceFile As String
Dim nomListePiece As String
Dim nomFichier As String
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
 
recherche = Mid(Cells(15, 3).Value, 4, 2)
moisencour = MonthName(recherche)
anneeencour = Right(Cells(15, 3).Value, 4)
 
 
 
    Range("A1:P60").Select
    Selection.Copy
    nomFichier = "C:\Users\209783\Documents\CRA\test\CRA " & moisencour & " " & anneeencour & ".xls"
    Workbooks.Open (nomFichier)
 
    Sheets("CRA").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, Transpose:=True
 
End Sub
et maintenant mon problème, quand j'exécute la macro via un bouton présent sur mon fichier excel source j'ai un erreur 400 qui apparait au moment du collage (qui fonctionne manuellement).
et quand j'exécute la macro via le code direct j'ai :
erreur d'exécution 1004 : erreur définie par l'application ou par l'objet.

Et je comprend pas pourquoi.

j'ai vraiment besoin d'aide.... sinon je crois que je laissé tomber.

Merci.