Discussion :

[hnb2003]

slt ,
je m'explique : c'est une fonction que j'utilise pour l(importation d'enregistrment excel dans access , j'ai un petit souci avec les selection de la feuille,
je donne en paramétre le chemin du fichier excel et je je donne le nom de la feuille a traiter , une fois que je clique sur le bouton pour mon traitement , access me renvoie une erreur en me disant que le nom de la feuille n'existe pas le fichier spécifié .. et ca m'eneeeeeeeeeerve car ca marche sur d'autre nom de feuille de ce mm fichier et la je ne comprend pas !!

help !
voila le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
 
'J'initialise mes variables
Set xlApp = CreateObject("Excel.Application")
 
'Ouverture du classeur d'importation
Set xlBook = xlApp.Workbooks.Open(chemin_du_fichier)
 
Set xlSheet = xlBook.Sheets(Nom_Onglet_Existant)

***********


[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[argyronet]

Bonjour,

Et quels sont les noms de Nom_Onglet_Existant pour lesquels ça marche et celui pour lequel ça ne marche pas ?

Argy

[hnb2003]

re,
merci argyronet mais j'ai pu trouvé l'erreur ou plutot le bug
je sais pas si un pb de access 2000 avec Excel 97 mais avec ce code:
Set xlSheet = xlBook.Sheets(Nom_Onglet_Existant)
d'abord j'ai changé le Sheets avec Worksheets , car j'ai retrouvé aprés verification qu'il y avait une diffférence entre les 2 "grace au tuto de FAQ que je remercie"
et deuxièment j'ai trouvé que le worksheets prend en paramétres les indexes donc
j'ai du passé par une liste modifiable pour afficher mes noms ,
et j'ai récupérer l'index de la ligne selctionnée.. ainsi je peux choisir mon onglet grace a cet index et la ca marche !!
code :

' variable pour récupérer l'index
Dim indexOnglet As Integer
indexOnglet = (Me.lstOngletDispo.ListIndex + 1)
'ajouter le chiffre 1 car le listeindex compte le zéro
'aprés ca :
Set xlSheet = xlBook.Worksheets(indexOnglet)
'********
'code pour le traitement
'********
'à la fin il ne faut pas oublier de fermer les connexions
'car ca m'a créer des perturbation au niveau activeX
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing

j'éspére que ca pourra aider ceux qui ont eu le mm pb que moi