Ouverture d'un fichier excel sur la feuille désirée

Bonjour,

Je m'y prendrais ainsi:

Set appExcel = CreateObject("excel.application")
Set wbkCommandes = appExcel.Workbooks.Open( "f:tmpmonfichier.xls")

appExcel.Visible = true

With wbk.Sheets("Feuil1") ' choix de la feuille 1
.Cells(...
...
End with

Salut,

"Laurent DUB"
| Access 2002,win XP,je débute
|
| j'ouvre un fichier excel existant
| sur lequel je renseigne qq cellules.
| Seulement, j'ouvre le classeur
| mais je n'arrive pas à selectionner la feuille souhaitée.
| voici l'extrait du code:
|
| Set appExcel = CreateObject("excel.application")
| Set wbkCommandes = appExcel.Workbooks.Add
| Modele_chrono = "f:tmpmonfichier.xls"
|
| With appExcel.Application
| .Visible = True
| .Workbooks.Open Modele_chrono, , ReadOnly = False
| End With
| 'Rendre Feuil1 active ou Feuil2
| .????????????????????????????(mon problème)
| 'remplir les cellules
| appExcel.Application.ActiveSheet.Cells(13, 7) = [délai client].Value
| 'Sauvegarde
| etc...


Regarde ceci :
http://officesystem.access.free.fr/vba/excel.htm


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/

Salut,

With appExcel.Application
.Visible = True
.Workbooks.Open Modele_chrono, , ReadOnly = False
.Worksheets("Feuil2").select
End With

De façon générale l'enregistreur de macro d'excel est trés pratique pour
apprendre le VBA Excel. Dans votre cas vous auriez pu:
- Ouvrir Excel
- Démarrer l'enregistrement d'une macro
- Sélectionner une feuille
- Arrêter l'enregistrement de la macro
- Visualiser le code de la macro pour trouver le mot clé cherché.



A+

Rv

"Laurent DUB" <etudes.evreux@v-scanvirer.fr> a écrit dans le message de
news:%23LkDYKevFHA.2924@TK2MSFTNGP15.phx.gbl...

Bonjour,
Access 2002,win XP,je débute

j'ouvre un fichier excel existant
sur lequel je renseigne qq cellules.
Seulement, j'ouvre le classeur
mais je n'arrive pas à selectionner la feuille souhaitée.
voici l'extrait du code:

Set appExcel = CreateObject("excel.application")
Set wbkCommandes = appExcel.Workbooks.Add
Modele_chrono = "f:tmpmonfichier.xls"

With appExcel.Application
.Visible = True
.Workbooks.Open Modele_chrono, , ReadOnly = False
End With
'Rendre Feuil1 active ou Feuil2
.????????????????????????????(mon problème)
'remplir les cellules
appExcel.Application.ActiveSheet.Cells(13, 7) = [délai client].Value
'Sauvegarde
etc...

Merci d'avance
LrD

merci à tous

LrD