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