Bonjour,

Je tente de copier des cellules dans un fichier 1, puis de les copier après la dernière ligne dans un autre fichier (après avoir retirer des colonnes dans ce nouveau fichier).

J'ai fait ça:


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
'on copie les cellules du fichier A
 
macol = NumCol("Acheteur")
LigneFin = Application.WorksheetFunction.CountA(Columns(macol))
Range("2:" & LigneFin).Select
Selection.Copy
 
' On ouvre le fichier B et on y ajoute les ligne de A après l'avoir nettoyé
export = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls", 1, "Choisir le fichier d export", , False)
 
Workbooks.Open Filename:=export
export = ActiveWorkbook.Name
 
' On masque les premières ligne inutiles
Rows("1:5").Select
Selection.EntireRow.Hidden = True
 
' On efface les colonnes prix, prix unitaire
macol = NumCol("prix")
Columns(macol).Delete
macol = NumCol("prix unitaire")
Columns(macol).Delete
 
'on ajoute les lignes du fichier A à la fin du fichier B
macol = NumCol("Numéro de la commande")
LigneFin = Application.WorksheetFunction.CountA(Columns(macol))
LigMag = LigneFin + 1
 
 
Range("A" & LigMag).Select
ActiveSheet.Paste
Il me fait une erreur 1004 en disant que la méthode paste a échoué... j'ai tenté de plusieurs façon, j'ai de temps en temps une erreur 438...

Si quelqu'un voit mon erreur, je suis preneur...
D'avance merci!

P.S NumCol est une fonction qui donne le numéro de la colonne contenant le texte entré en variable dans sa première ligne.