Discussion :

[bilou_12]

Bonjour,

Je viens vers vous après m'être inspiré d'exemples trouvés sur le net. J'ai choisi le plus lisible

Je cherche à copier une range de cellule. J'ai pour le moment ce code qui ne marche pas:

Code :

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

1
2
3
4
5
6
ActiveWorkbook _
    .Sheets("swapeur") _
    .Range("A6:E42") _
    .Select
Selection _
    .Copy Before:=Workbooks("Classeur1").Sheets(nomFichierCurvesDate)

Quelqu'un pourrait m'aider svp?

Merci d'avance!

[jfontaine]

Bonjour,

Essais comme cela.

Code :

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

ActiveWorkbook.Sheets("swapeur").Range("A6:E42").Copy Workbooks("Classeur1").Sheets(nomFichierCurvesDate).Range("A1")

[bilou_12]

Merci jfontaine!

Mais cela ne fonctionne pas non plus!

Une autre piste:

Code :

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

Workbooks("Classeur1").Sheets(nomFichierCurvesDate).Range("H6:L42") = Workbooks("swapeur").Sheets("swapeur").Range("A6:E42").Value

Mais quelle est l'erreur dans ce code? Excel en voit une!

Merci d'avance!

[jfontaine]

le code du post précédent fonctionne, encore faut il que les noms de classeurs et de feuille soient correct et que le classeur cible soit ouvert dans la même instance d'application.
Est ce bien ton cas?
Que contient la variable nomFichierCurvesDate ?

[bilou_12]

Merci jfontaine! Je checke ca!