Problème de sélection d'onglet

Bonjour le forum,

Je suis face à un problème qui doit surement étre facile à résoudre mais je bloque dessus depuis un moment.

J'ai deux workbook l'un nommé TestQueing (fichier .csv) avec l'onglet TestQ, et l'autre Masterfiletest avec l'onglet v1.
Voila l'opération est simple : Copier/coller une série de valeur de l'onglet TestQ a l'onglet v1.
Mais apparement j'ai un soucis dans la sélection de mon onglet parce qu'il me sélectionne la série Range(Cells(8, 3), Cells(31, 3)) dans mon onglet v1 et non TestQ comme souhaité...

Il est peut étre question de déclaration de variable ou mauvaise écriture je sais pas mais cela fait un moment que je bloque dessus donc please i need some help!!! :/

voici le code ci dessous:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim wb As Workbook Dim ws As Worksheet   Workbooks.Open Filename:= _ "D:\Documents and Settings\39518\Desktop\draft\TestQueing.csv"     'sélection de l'onglet TestQ dans le workbook TestQueing.csv Workbooks("TestQueing.csv").Activate Windows("TestQueing.csv").Activate Application.ScreenUpdating = True 'Worksheets("TestQueing").Activate   'sélection de la premiere série de donnees Range(Cells(8, 3), Cells(31, 3)).Copy   'sélection du workbook Masterfile Windows("Masterfiletest.xls").Activate 'coller Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

remplace

Code:

---

'Worksheets("TestQueing").Activate

---

par

Code:

---

Worksheets("TestQ").Activate

---

ça devrait fonctionner.

Merci didier pour la reponse.

J'ai modifié mon code depuis ce matin et cette ligne était en commentaire dsl
La nouvelle version est:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim wb As Workbook Dim ws As Worksheet   Workbooks.Open Filename:= _ "D:\Documents and Settings\39518\Desktop\draft\TestQueing.csv"   'sélection de l'onglet TestQ dans le workbook TestQueing.csv Workbooks("TestQueing.csv").Activate Windows("TestQueing.csv").Activate   'selection de la premiere serie de donnees Workbooks("TestQueing.csv").Worksheets("TestQ").Range(Cells(8, 3), Cells(31, 3)).Copy   'selection du masterfile Windows("Masterfiletest.xls").Activate 'coller Workbooks("Masterfiletest.xls").Worksheets("v1").Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Par contre, un nouveau probléme est apparu cad l'erreur 1004 lors de l'exécution du programme

Citation:

---

"Application defined or object definied error" au niveau de la ligne Workbooks("TestQueing.csv").Wo...

---

etc
Dois je déclarer quelque chose en plus pour mon 'range'?

Cordialement

Quand tu ouvre un fichier qui n'est pas Excel, il faut utiliser Workbooks.OpenText et pas workbooks.open (qui sert uniquement pour les fichiers .xls ou les fichiers ayant comme séparaur la virgule) comme suit :

Code:

---

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

Workbooks.OpenText Filename:= NomDuFichier, _ Origin:=xlWindows, _ StartRow:=1, _ DataType:=xlDelimited, _ TextQualifier:= _ xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, _ Semicolon:=True, _ Comma:=False, _ Space:=False, _ Other:=False

---

En effet, l'ouverture d'un fichier en .CSV avec VB ne s'ouvre pas comme un fichier Excel, le séparateur est le point virgule (d'où Semicolon:=True, _
) du programme.

Je pense que ton problème vient de là, comme tu lui as pas indiquer de séparateur. Il a tout mis dans la col A et ne trouve rien dans la colonne C et ne peut donc rien copier.

Ligne

Code:

---

1 2	Workbooks.Open Filename:= _ "D:\Documents and Settings\klm39518\Desktop\draft\TestQueing.csv"

---

Remplacé par

Code:

---

1 2 3 4

Workbooks.OpenText Filename:="D:\Documents and Settings\klm39518\Desktop\draft\TestQueing.csv", Origin:=xlWindows, StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _ Comma:=False, Space:=False, Other:=False

---

Mais l'erreur 1004 est toujours presente :/ et cela me rend fou.. Je regarde sur pas mal de forum et je ne trouve de probléme similaire...
Je continu a chercher mais si tu as un idee hésite pas!!!

Essaie ça :

Code:

---

1 2 3 4 5

Name "D:\Documents and Settings\klm39518\Desktop\draft\TestQueing.csv" As "D:\Documents and Settings\klm39518\Desktop\draft\TestQueing.txt" Workbooks.OpenText Filename:="D:\Documents and Settings\klm39518\Desktop\draft\TestQueing.txt", Origin:=xlWindows, StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _ Comma:=False, Space:=False, Other:=False

---

Non cela ne fonctionne pas :/
Il m'indique toujours la meme erreur

Peut etre l'expression pour selectionner des valeurs est differente avec un range?
Pour moi, cela ne vient pas du fichier mais de la facon de selectionner l'onglet mais hormis utilisant un Activate ou Select je ne sais pas comment etre plus clair pour definir le workbook et le worksheet...
Et le chemin

Code:

---

Workbooks("TestQueing.txt").Worksheets("TestQueing").Range(Cells(8, 3), Cells(31, 3)).Copy

---

me parait completement clair :/

J'ai essaye d'une facon differente mais ce la ne fonctionne tjrs pas..

Code:

---

1 2 3 4 5 6

Dim FirstSerie as range   '..   Set FirstSerie = Workbooks("TestQueing.csv").Worksheets("TestQueing").Range(Cells(8, 3), Cells(31, 3)) FirstSerie.Copy

---

Je suis ouvert a toute proposition..
Merci pour ton aide

le nom de ton onglet c'est "TestQueing" ou "TestQ" ? parce que si t'appel une feuille qui n'existe pas c'est logique que ça plante