Discussion :

[jimbololo]

bonjour a tous ! voila jai un pb, jariv pa a recopié une plage de cellule d'un classeur vers l'autre. jvous montre mon code en espérant ke vous pouré m'aidé... merci

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
 
Call select_ch_agric
    Range("L65C4:L71C4").Select
    Selection.Copy
    Call select_moth9293
    Range("B" & i).Select
    ActiveSheet.Paste
 
private sub select_ch_agric()
    Windows("CH_AGRIC.XLS").Activate
end sub
 
private sub select_ch_agric()
    Windows("MOTH9293.XLS").Activate
end sub

[linda15975]

tu as deux procédures qui s'appelle pareil...
Change le nom de la deuxième par select_moth9293 et ça marchera peut-être mieux

[jimbololo]

autant pour moi javai oublié de changé le nom de la deuxième dans mon message précédent

l'autre procédure s'appelle private sub select_moth9293(), jorai bien voulu ke sa soit le pb mai malheureusement nan

jai un message d'erreur comme koi la fonction range a échoué, et jvoi pa ou est le pb !!!

[linda15975]

tu es en VB6 ou VBA-E?

[jimbololo]

je suis sous VBA - EXCEL, je croi ke le pb c'est le passage d'un classeur à l'autre mai jvois pa du tout comment y remédié.

[linda15975]

Ton erreur arrive au niveau du deuxième range?
As-tu testé la valeur de "b" & i ?