Discussion :

[ogichi]

Bonjour,

j'obtiens le message d'erreur "erreur d'exécution '1004' : La méthode Paste de la classe WorkSheet à échoué":

j'ouvre un classeur excel "Code.xlsx", j'incrémente la valeur située en case A5, je copie la valeur obtenue, je sauvegarde et ferme le classeur "Code.xlsx", je me repositionne sur le classeur "xxxx-date.xlsx" et souhaite coller la valeur dans la case A17.

J'obtiens donc le message "erreur d'exécution '1004' : La méthode Paste de la classe WorkSheet à échoué" et l'erreur semble se situer sur:

Code :

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

ActiveSheet.Paste

La partie de code (Erreur sur "Récupération code facture"):

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
 
Sub facture()
 
Dim Chemin As String, Fichier As String, Code As String, Chemin2 As String
 
'Chemin où se trouve le fichier à ouvrir
Chemin = "C:\Users\XXXX\Desktop\Ent\Facture"
Chemin2 = "C:\Users\XXXX\Desktop\Ent\"
 
'Nom du fichier à ouvrir
Fichier = "facture_client.xlsx"
Code = "code.xlsx"
Fichier2 = ThisWorkbook.Sheets("Clients").Range("B4") & "-" & Format(Date, "dd_mm_yy") & ".xlsx"
Fichier_Client = ThisWorkbook.Sheets("Clients").Range("B4") & ".xlsm"
MaLigne = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
 
'Empêche le raffraichissement de l'écran
Application.ScreenUpdating = False
 
'Ouverture du fichier
Workbooks.Open Chemin & "\" & Fichier
Workbooks(Fichier).SaveAs Filename:=Chemin & "\" & Fichier2
 
'Récupération code facture
Workbooks.Open Chemin2 & "\" & Code
Dim valeur As Integer
valeur = Worksheets("Code").Range("A5").Value
Worksheets("Code").Range("A5").Value = valeur + 1
Worksheets("Code").Range("A5").Copy
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(Fichier2).Activate
Sheets("Feuil1").Range("A17").Select
ActiveSheet.Paste

Je pense que c'est tout con comme erreur, mais je ne vois pas ...

[Al__22]

Change dans un premier temps :

Code :

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

1
2
Sheets("Feuil1").Range("A17").Select
ActiveSheet.Paste

Par

Code :

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

Sheets("Feuil1").Range("A17").PasteSpecial

OU

Code :

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

1
2
3
4
5
6
7
8
9
Dim valeur As Integer
valeur = Worksheets("Code").Range("A5").Value
Worksheets("Code").Range("A5").Value = valeur + 1
Worksheets("Code").Range("A5").Copy
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(Fichier2).Activate
Sheets("Feuil1").Range("A17").Select
ActiveSheet.Paste

par

Code :

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

1
2
3
4
5
6
 
Worksheets("Code").Range("A5").Value = Worksheets("Code").Range("A5").Value + 1
Windows(Fichier2).Sheets("Feuil1").Range("A17").Value = Worksheets("Code").Range("A5").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(Fichier2).Activate

[riaolle]

Change dans un premier temps :

Code :

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

1
2
Sheets("Feuil1").Range("A17").Select
ActiveSheet.Paste

Par

Code :

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

Sheets("Feuil1").Range("A17").Paste

Je me trompe peut-être, mais selon moi, la méthode Paste s'utilise sur un objet Worksheet. Pour un objet Range, il faut utiliser la méthode PasteSpecial.

[Al__22]

Je me trompe peut-être, mais selon moi, la méthode Paste s'utilise sur un objet Worksheet. Pour un objet Range, il faut utiliser la méthode PasteSpecial.

En effet j'ai corrigé juste après

[ogichi]

Merci à tous pour vos réponses.
ça marche nickel, merci les gens

[riaolle]

Bonjour,
Je ne réponds pas vraiment à la question, mais au lieu de faire un copier-coller pourquoi ne récupères-tu pas valeur à copier pour l'écrire dans la bonne cellule :

Code :

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

1
2
3
4
5
6
7
Dim valeur As Integer
Worksheets("Code").Range("A5").Value = Worksheets("Code").Range("A5").Value + 1
valeur = Worksheets("Code").Range("A5").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(Fichier2).Activate
Sheets("Feuil1").Range("A17").Value = valeur

[Jean-Philippe André]

Salut,

evite le decoupage tout droit sorti de l'enregistreur de macro

Tes donnees copiees dans un classeur disparaissent sous toutes vraisemblance au moment de la fermeture de ton classeur =]

Essaie avec le plus direct

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 facture()
 
Dim Chemin As String, Fichier As String, Code As String, Chemin2 As String
 
'Chemin où se trouve le fichier à ouvrir
Chemin = "C:\Users\XXXX\Desktop\Ent\Facture"
Chemin2 = "C:\Users\XXXX\Desktop\Ent\"
 
'Nom du fichier à ouvrir
Fichier = "facture_client.xlsx"
Code = "code.xlsx"
Fichier2 = ThisWorkbook.Sheets("Clients").Range("B4") & "-" & Format(Date, "dd_mm_yy") & ".xlsx"
Fichier_Client = ThisWorkbook.Sheets("Clients").Range("B4") & ".xlsm"
MaLigne = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
 
'Empêche le raffraichissement de l'écran
Application.ScreenUpdating = False
 
'Ouverture du fichier
Workbooks.Open Chemin & "\" & Fichier
Workbooks(Fichier).SaveAs Filename:=Chemin & "\" & Fichier2
 
'Récupération code facture
Workbooks.Open Chemin2 & "\" & Code
Dim valeur As Integer
valeur = Worksheets("Code").Range("A5").Value
Worksheets("Code").Range("A5").Value = valeur + 1
Worksheets("Code").Range("A5").Copy Destination:=Workbooks(Fichier2).Sheets("Feuil1").Range("A17")
ActiveWorkbook.Save
ActiveWorkbook.Close