Objet Range d'un fichier à l'autre

Bonsoir
J'ai des data dans une feuille excel (je la vois comme une dase de connée que je complète) et je souhaite prélever des valeurs vers un autre fichier pour faire des calculs :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub transfertDATA() ' transfertDATA Macro Dim etendue As Range Windows("Copie de CAL_BaseDATA.xls").Activate Set etendue = Worksheets("laBase").Range("C1:G25") etendue.Activate Selection.Copy Windows("Calculateur.xls").Activate Worksheets("INPUT").etendue.Select ActiveSheet.Paste End Sub

---

Ça couince à

Code:

---

Worksheets("INPUT").etendue.Select

---

car je pige que etendu ne s'appilque pas à la feuille INPUT.
Comment puis je faire pour que ça marche?
;)

Bonjour malouxa,
tout d'abord, etandue est une plage de données qui se situe dans l'onglet "laBase".
Donc, lorsque du demande ceci :

Code:

---

Worksheets("INPUT").etendue.Select

---

cela signifie :

Code:

---

Worksheets("INPUT").Worksheets("laBase").Range("C1:G25").Select

---

Tu te retrouves donc deux fois avec des commandes d'onglet, ce qui te renvoyes une erreur.

Donc, les pistes de solutions. Soit tu modifies etendue ou encore soit tu modifies ta demande "Worksheets("INPUT")", de manière à ce que tu n'aies qu'un seul onglet demandé.

Cordialement,

Étienne

Merci pour ta réponse
À te lire il y a implicite 2 worksheets qui se suivent :|

Pour la dimension de l'étendue etendu c'est celle du jour dans le feuillet laBase et c'est variable d'un jour à l'autre, donc je doit transmettre cette valeur au feuillet de reception INPUT pour qu'il y ai le même nombre de cellules selectionnées.
Je vois pas comment transmettre ça autrement que par une variable.
:cry:

Bonsoir.

Il y a quelques points que tu pourrais préciser:
- tu as 2 classeurs?
- dans la même application ou 2 différentes?
- le classeur qui contient les données (et pas le code) est ouvert comment?

PGZ

Bonsoir pgz,
Pour faire simple je comptais ouvrir les 2 fichiers excel manuellement.

Il y a 1 feuille excel par fichier,
j'avais dans l'idée que dans un fichier excel j'ai la base de données, dans l'autre le fichier de calcul.

Quand je lance la macro que je vous ai présenté dans le fichier de calcul, il faut que le fichier de la base (feuille laBase) soit ouvert :)

Plusieurs choses.

La première : pour lire des données dans un autre classeur, tu n'est même pas obligé de l'ouvrir. Tu peux ouvrir un recordset sur le classeur fermé.

La deuxième : quand tu as les données (recordset ou tableau) tu peux les traiter sans les recopier sur une feuille du classeur qui contient le code.

La troisième : ce serait plus sympa si tu veux quand même ouvrir le classeur de données, de l'ouvrir par code, car tu pourrais alors avoir une variable qui le représente à manipuler pour le lecture des données, ou leur copie.

La quatrième : il vaut mieux ouvrir le deuxième classeur dans la même application (même fenêtre) car tu disposes dans ce cas de plus de méthodes.

La cinquième : si tu veux copier, tu peux copier les données ou toute la feuille.

Tout cela pour t'expliquer qu'avant d'essayer de coder il est souvent utile de perdre du temps à réfléchir à la méthode.

Voici un exemple non vérifié d'un code qui ouvre le classeur de données dans la même application et qui copie la feuille en entier et la place en tête

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub subCopieFeuille() Dim wbk As Excel.Workbook, sh As Excel.Worksheet Dim sFile As String   sFile = "..."'chemin complet du classuer de données   Set wbk = Application.Workbooks.Add(sFile) wbk.Sheets("NomFeuille").Copy Application.ThisWorkbook.Sheets(1)   wbk.Close False Set wbk = Nothing End Sub

---

La feuille copiée porte le même nom que dans le classeur de données.

PGZ

Merci, je fais tjs des organigrammes mais là le transfert de données d'un fichier à l'autre j'avais jamais touché :lol:
J'ai testé ta macro, ça marche !