Discussion :

[magikmed]

Bonjour,

Je cherche à automatiser la copie d'une partie d'une feuille d'un classeur source vers une feuille d'un classeur destination. La macro se trouve sur le classeur destination. J'ai cherché à le faire sans ouvrir le fichier source mais ça me semble tellement plus simple en l'ouvrant que j'ai choisi cette méthode. Ma feuille source contient 21 colonnes mais je ne veux copier que les 7 premières. De même, ma feuille destination contient 21 colonnes mais je ne veux écraser que les 7 premières. Le nombre de lignes est variable.
Voila le code que j'ai écris :

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
Private Sub CommandButton1_Click()
Dim Chemin As String, Fichier As String
Dim Wrdarray() As String
 
'Recuperation du chemin complet (chemin + nom fichier)
sChemin = Application.GetOpenFilename
Wrdarray() = Split(sChemin, "\")
 
'Extraction du nom de fichier seul
Fichier = Wrdarray(UBound(Wrdarray))
 
'Extraction du chemin seul
For i = 0 To UBound(Wrdarray())
    Chemin = Chemin & "\" & Wrdarray(i)
Next i
Chemin = Mid(Chemin, 2)
 
'On determine la derniere ligne de ce fichier et on supprime de la colonne 1 à 7 et de la ligne 7 à la fin
findest = ThisWorkbook.Sheets("Ecarts JTZ").Range("A7").End(xlShiftDown)
ThisWorkbook.Sheets("Ecarts JTZ").Range(Cells(7, 1), Cells(findest, 7)).ClearContents
 
'On ouvre le fichier source
Workbooks.Open (sChemin)
finsrc = Workbooks(Fichier).Sheets("blabla").Range("A8").End(xlShiftDown)
 
'On copie le fichier source dans ce fichier
Workbooks(Fichier).Sheets("blabla").Range(Cells(6, 1), Cells(finsrc, 7)).Copy Destination:=ThisWorkbook.Sheets("Ecarts JTZ").Range("A7")
 
'Fermeture du fichier source
Workbooks(Fichier).Close
 
End sub

La ligne :

Code :

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

Workbooks(Fichier).Sheets("blabla").Range(Cells(6, 1), Cells(finsrc, 7)).Copy Destination:=ThisWorkbook.Sheets("Ecarts JTZ").Range("A7")

renvoi l'erreur 1004 : Erreur definie par l'application ou par l'objet.

Je ne comprends pas trop pourquoi, surtout que j'utilise exactement la même syntaxe 3 lignes au dessus...

Merci d'avance pour votre aide

[Thautheme]

Bonjour Magikmed, bonjour le forum,

Ce qui me gêne c'est ta variable finscr. Elle n'est pas déclarée (Integer ou Long) et surtout, il me semble que tu devrais la définir plutôt comme ça :

Code :

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

finsrc = Workbooks(Fichier).Sheets("blabla").Range("A8").End(xlDown).Row

Mais il est vrai que tu devrais avoir le même problème avec findest... ?!

[magikmed]

Salut Thautheme et merci pour ta réponse,

En effet, il y avait un petit problème avec finsrc et findest. Ils contenaient bien un entier mais pas la bonne valeur. Ceci dit, ça ne règle pas mon problème. J'ai trouvé une solution, en modifiant un peu la syntaxe comme suit :
A la place de

Code :

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

Workbooks(Fichier).Sheets("blabla").Range(Cells(6, 1), Cells(finsrc, 7)).Copy Destination:=ThisWorkbook.Sheets("Ecarts JTZ").Range("A7")

J'ai écrit :

Code :

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

1
2
Workbooks(Fichier).Sheets("blabla").Range("A5:G" & finsrc).Select
Selection.Copy Destination:=ThisWorkbook.Sheets("Ecarts JTZ").Range("A7")

Et là ça passe...

J'ai pas tout compris mais bon, ça tourne...

Merci pour le coup de main