Copy / Paste de Range d'un fichier à un autre

Bonjour,

J'ai un problème très étrange et donc très énervant sur excel:

En vba depuis un fichier excel, j'ouvre un autre fichier. Je veux copier des Ranges déterminés dans le fichier "externe" pour les coller à des endroits précis dans le fichier qui contient le code:

Mon problème est que je souhaite désigner des Ranges via les coordonnées des cellules, comme ceci:

Code:

---

Range(Cells(a,b),Cells(a',b'))

---

et non pas comme celà:

Code:

---

Range ("A1:B3")...

---

Le truc étrange c'est que les deux types de sélection fonctionnent dans le workbook du fichier qui contient le code mais pas pour celui du fichier externe, où je suis visiblement obligé de passé par les coordonnées lettrées des cellules...

mon code: (wbSource est la variable workbook désignant le fichier externe)

Code:

---

1 2 3 4 5

Range(Cells(1, 1), Cells(3, 3)).Copy 'Fonctionne!   wbSource.Worksheets(1).Range(Cells(1, 1), Cells(3, 3)).Copy ' Ne fonctionne pas   wbSource.Worksheets(1).Range("A1:B3") 'Fonctionne

---

Etrange non? Quelqu'un peut m'aider à faire ce fichu copier collé à partir des coordonnées?

Est-ce que cela change quelquechose si tu mets dans ton code:

Code:

---

1 2	Application.ReferenceStyle = xlR1C1

---

C'est supposé fixer le style en mode R1C1 au lieu de A1.

Non ça ne change rien... D'une manière générale j'arrive à désigner une cellule par ses coordonnées mais là c'est juste le range(...) qui déconne quand je le fais pour la worksheet du fichier externe.

Quelqu'un a t'il un morceau de code qui ferait ça:

(-ouverture d'un fichier externe)
-sélection d'un range (par les coordonnées de deux cellules) dans une feuille du fichier externe
-Copy du range
-Paste à un endroit dans le fichier d'origine

Ce serait bien gentil!!

bonjour

si ce n'est pas un pastespecial :
le classeur source est le deuxieme ouvert il porte donc l'index 2

Le classeur de reception est le classeur 1 le premier ouvert, je place la copie dans la feuille 1 cellule A1

Code:

---

Workbooks(2).Sheets(1).Range(Cells(1, 1).address & ":" & Cells(3, 3).address).Copy destination:= workbooks(1).sheets(1).range("A1")

---

bonne soirée

bonsoir

Tu peux aussi tester

Code:

---

1 2 3

wbSource.Worksheets(1).Range( _ wbSource.Worksheets(1).Cells(1, 1), _ wbSource.Worksheets(1).Cells(3, 3)).Copy

---

michel

Bonsoir Hochimi, Tinnou, Wilfried, mon cher Michel ;-)

pour utiliser cells(x,y) il faudrait que le classeur externe soit le classeur actif (je découvre le fait avec ce post).

ce code fonctionne à partir de classeur1:

Code:

---

1 2 3 4 5

Workbooks("essai.xls").Activate tablo = Range(Cells(1, 1), Cells(3, 3)) Workbooks("classeur1").Activate Range("D10:F13") = tablo

---

bonne soirée

Oui, je pensais un truc comme ça.

En fait, je n'avais pas envie de rentrer dans les méandres du vba excel alors j'ai résolu mon problème en utilisant une fonction qui convertit les coordonnées et ça marche!

Merci quand même à tous!