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
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
A voir également:
- Problème Sélectionner feuille autre classeur
- Feuille de pointage excel - Télécharger - Tableur
- Comment supprimer une feuille sur word - Guide
- Feuille a5 - Guide
- Feuille diddl la plus rare ✓ - Forum Graphisme
- Sélectionner texte pdf - Guide
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
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
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
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
21 juil. 2011 à 14:09
Merci de ton aide,
J'essayerai demain ..
Florian
J'essayerai demain ..
Florian