Discussion :

[cortex62]

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 :

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

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

[Didine1801]

remplace

Code :

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

'Worksheets("TestQueing").Activate

par

Code :

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

Worksheets("TestQ").Activate

ça devrait fonctionner.

[cortex62]

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 :

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

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

"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

[Didine1801]

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 :

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

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.

[cortex62]

Ligne

Code :

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

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

Remplacé par

Code :

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

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!!!

[Didine1801]

Essaie ça :

Code :

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

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