Discussion :

[malouxa]

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 :

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

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 :

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

Worksheets("INPUT").etendue.Select

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

[Etienne2323]

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 :

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

Worksheets("INPUT").etendue.Select

cela signifie :

Code :

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

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

[malouxa]

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.

[pgz]

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

[malouxa]

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

[pgz]

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 :

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

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