Macro vba intégrant une variable : niveau : difficile

Logiciel & apps Programmation
1

Bonjour,

Je dispose de deux classeurs Alpha et Beta, le classeur Beta dispose de 70 Feuilles.
Il m’est nécessaire de pouvoir importer une feuille du classeur B dans le classeur A en passant par une macro qui prend en compte une variable.

Exemple : Si la Cellule 3 = 25 alors importer la feuille 25 du classeur Beta, si la cellule 3 = 27 alors, importer la feuille 27 du classeur Beta

Est il possible de faire tout sa via une macro ?

2

J’en suis la pour le moment et c’est pas très réussit.

Dim Departement As Integer
Departement = Sheets(“PEINT PP”).Range(“H3”)
Windows(“EF.xls”).Activate
Sheets Departement.Value
ActiveWindow.SmallScroll Down:=-12
Range(“A1:P77”).Select
Selection.Copy
Windows(“BA.xlsm”).Activate
Range(“A10”).Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Range(“C9”).Select

End Sub

Des idées ??

3

Bonjour,

As-tu essayé un truc du genre :
ClasseurB.Sheets(ClasseurA.Sheets(FeuilleX).Cells(RowX,ColX)).copy after:ClasseurA.Sheets(FeuilleY)
où ClasseurA.Sheets(FeuilleX).Cells(RowX,ColX) correspond à ce que tu as appelé “Cellule 3”,
et ClasseurA.Sheets(FeuilleY) est la feuille après laquelle il faut copier la feuille du classeur B.
Edité le 28/07/2012 à 02:14