Problème Sélectionner feuille autre classeur

Fermé
flostralian Messages postés 26 Date d'inscription vendredi 15 mai 2009 Statut Membre Dernière intervention 26 mars 2015 - Modifié par flostralian le 20/07/2011 à 15:27
flostralian Messages postés 26 Date d'inscription vendredi 15 mai 2009 Statut Membre Dernière intervention 26 mars 2015 - 21 juil. 2011 à 14:09



Bonjour à tous,

J'ai cherché une solution sur le forum mais en vain... J'ai essayé de nombreuses solutions énoncées .....

Partant d'excel, je souhaite faire une macro (VB2005) pour exporter des données excel d'un premier classeur vers un autre classeur.

Le problème est au niveau de la sélection de la feuille et de de la sélection de cellules dans le second classeur.

Lors de la macro, je me suis rendu compte que la sélection se faisait dans le premier classeur ou j'ai lancé la macro, et non dans le second comme souhaité.

Pouvez vous me donner quelques conseils svp?

Merci beaucoup

Voici mon code:
------------------------------------------------------------------

Sub Export()

Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel


'Ouverture de l'application = OK
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True

'Ouverture d'un fichier Excel = OK
Set wbExcel = appExcel.Workbooks.Open("D:\....\toto.xls")
appExcel.Visible = True

' Selection de wsExcel correspond à la deuxième feuille du classeur = PROBLEME = "Run time error 9, Subscript out of range" sur les lignes suivantes.
' la sélection se fait dans le premier classeur, et non dans le second comme souhaité.
Set wsExcel = wbExcel.Worksheets(2)

'J'ai aussi essayé pour la ligne ci dessus de remplacer par les codes suivants.mais en vain.
'Activebook.Sheets("feuille2").Select
'ActiveSheet.Range("A4").Select

End
A voir également:

2 réponses

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
21 juil. 2011 à 10:39
bonjour,

en plus simple :

Sub Export()

Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel


'Ouverture de l'application = OK
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True

'Ouverture d'un fichier Excel = OK

classeurorigine = activeworkbook.name

Set wbExcel = appExcel.Workbooks.Open("D:\....\toto.xls")
appExcel.Visible = True

classeurexport = activeworkbook.name

workbook(classeurorigine).activate
Activebook.Sheets("feuille2").Select
ActiveSheet.Range("A4").Select

End
0
flostralian Messages postés 26 Date d'inscription vendredi 15 mai 2009 Statut Membre Dernière intervention 26 mars 2015
21 juil. 2011 à 14:09
Merci de ton aide,
J'essayerai demain ..
Florian
0