Discussion :

[bosk1000]

bonjour à tous

j'essaie de copier coller les valeurs d'une plage i2 à i100 vers un autre fichier en bas de la colonne C

j'ai fais ce code

Code :

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

1
2
 
Workbooks("caisse.xls").Sheets("electromenager").Range("c65536").End(xlUp)(2).Value = Workbooks("COMMANDE.xls").Sheets("prepafact").Range("i2:i100").Value

mais il ne colle que la première valeur
après rien d'autre

[Gorfael]

Salut bosk1000 et le forum

j'essaie de copier coller les valeurs d'une plage i2 à i100 vers un autre fichier en bas de la colonne C

Non! tu essaies de copier les valeurs d'une plage dans la valeur d'une cellule! Ce n'est pas la même chose

Code :

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

Workbooks("COMMANDE.xls").Sheets("prepafact").Range("i2:i100").Copy Workbooks("caisse.xls").Sheets("electromenager").Range("c65536").End(xlUp)(2)

Copier la plage I2:I100 de la feuille Prepafact dans la page electromenager à la suite de la dernière non-vide dans C.

Effectivement Excel peut faire un grand nombre de choses, et si tu avais défini une plage de réception de même grandeur que la plage d'émission ça pourrait (peut-être) fonctionner. mais Excel ne prend aucune initiative et quand tu lui demandes une chose qu'il ne comprend pas, faut pas t'attendre à des miracles.
Excel fait toujours ce qu'on lui dit de faire... et quelques fois, ce qu'on voudrait qu'il fasse!
A+

[bosk1000]

merci Gorfael pour ton aide

mais si je ne me trompe, ton code est une copie simple
Or j'essaie un copier de la valeur car la source est une formule est je veux récupérer le résultat

la je n'obtiendrais que la formule

[laetitia]

re bosk Gorfael le forum essai comme cela a simplifier

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Sub es()
Dim dep, Dest As Workbook, t As Variant
Set Dest = Workbooks("caisse.xls")
Set dep = Workbooks("COMMANDE")
t = dep.Sheets("prepafact").Range("i2:i100")
Dest.Sheets("electromenager").Range("c65536").End(xlUp)(2).Resize(UBound(t, 1), UBound(t, 2)) = t
End Sub

[bosk1000]

désolé laetitia,

ça ne fonctionne pas
j'ai un code d'erreur 9 qui ressort

[laetitia]

re ,bizarre je viens de tester j' ai pas d'erreur il faudrait voir comment tu l 'as écris ??

ps: l' extension .xls qui il y soit ou pas ne génere pas d'erreur