Discussion :

[idhmida]

Bonjour le forum,

Je débute VBA et voudrais vous solliciter concernant un problème de déclaration des variables.

Je souhaite faire les mêmes manipulations dans deux feuilles excel, donc pour éviter de répéter les mêmes codes, j'écris ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
i = 1
While i <= 2
    Workbooks.Open ("........SAS\092013\Risk_" & i & ".xls")
    "data" &i = Workbooks("Risk_" & i & ".xls").Worksheets("RISK_" & i)
 
    "data"& i.Activate
    "data"i.Cells.Select
    Selection.Copy
    "Risk_"&i.Activate
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
wend

Comme vous pouvez voir, je voulais renommer les feuilles excel data2 et data1, mais cela ne fonctionne pas en faisant "data" & i (for i = 1 to 2)

J'espère avoir été claire... quelqu'un pourrait m'aider svp?

Merci beaucoup!!

[EngueEngue]

Code :

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

Sheets("data" & i)

[illight]

Code :

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

Sheets("data" & i)

Pourquoi faire compliqué quand on peut faire simple ?

[illight]

Je pense que ce qui ne plait pas c'est ça :

Code :

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

"data" &i = Workbooks("Risk_" & i & ".xls").Worksheets("RISK_" & i)

Il faut que tu mette ce genre d'informatind ans une autre variable, genre :

Code :

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

1
2
3
 
NomF = "data" &i
NomF = Workbooks("Risk_" & i & ".xls").Worksheets("RISK_" & i)

Et après tu le remplace partout où tu l'as mis.


En grosse maille ça donnerais ça :

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
 
i = 1
NomF = "data" & i
NomClasseur = Risk_ " & i
While i <= 2
    Workbooks.Open ("........SAS\092013\"  & NomClasseur & ".xls")
     = Workbooks(NomClasseur & ".xls").Worksheets(NomClasseur)
 
    Sheets(NomF).Activate
    Sheets(NomF).Cells.Select
    Selection.Copy
    Workbooks(NomClasseur).Activate
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
wend