Problème de lecture des feuilles excels avec VBA

h_adil Messages postés 231 Date d'inscription mercredi 27 avril 2005 Statut Membre Dernière intervention 10 juin 2009 - 17 juil. 2008 à 21:44
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 17 juil. 2008 à 22:49
Bonjour,
j'ai un petit problème:
lorsque j'utilise le code cité ci-dessous a partir d'Access pour récuperer le nom des feuilles dans mon fichier.xls
j'ai toujours un caractère "$" qui apparait qui fausse mes condition IF, et j'arrive pas a l'exculre
si vous avez une idée je sais reconnaissant Merci
code :

    For Each Feuille In oCat.Tables
        Nb_feuil(fii) = Feuille.Name
        fii = fii + 1
    Next
for i to fii
if Nb_feuil(i)="ma feuille" then
msgbox "ok"
end if
next i

le resultat que j'ai toujours est Nb_feuille(1)="ma feuille$"

Un problème = des solutions
programation .....

4 réponses

zen69 Messages postés 584 Date d'inscription jeudi 28 décembre 2006 Statut Membre Dernière intervention 29 avril 2010 1
17 juil. 2008 à 21:49
au pire si tu dis TOUJOURS alors ... Left(Feuille.Name, Len(Feuille.Name)-1)

ou similaire je ne me souviens plus si vba prend une valeur negative pour les fontion left et right... mais ca pourrait etre encore plus simple a la lecture left(... , -1)

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]
0
h_adil Messages postés 231 Date d'inscription mercredi 27 avril 2005 Statut Membre Dernière intervention 10 juin 2009
17 juil. 2008 à 21:54
Merci Zen69 pour ta réponse,
j'ai testé mais j'ai toujours le même resultat

Un problème = des solutions
programation .....
0
zen69 Messages postés 584 Date d'inscription jeudi 28 décembre 2006 Statut Membre Dernière intervention 29 avril 2010 1
17 juil. 2008 à 22:06
mais je crois qu'en access ca prend le $ a la fin... en tout cas quand j'importe dexcel dans sql server jai remarquer quil ajoutait aussi des $ a la fin de feuilles... jai jamais vraiment compris pourquoi...

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]
0
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
17 juil. 2008 à 22:49
Salut,

j'sais pas ^^ , mais une bidouille :

Private Sub Command1_Click()


toto = "ma feuille$"
MsgBox Mid$(toto, 1, Len(toto) - 1)


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin
0
Rejoignez-nous