OVH Cloud OVH Cloud

Pb ouverture fichier Excel via Access 97

1 réponse
Avatar
limbo
Bonjour =E0 tous,
J'ai un probl=E8me que j'aimerais bien =E9claircir.
Voici qques mois j'ai d=E9velopp=E9 en entreprise une=20
application Access97 + VBA exploitant des fichiers Excel=20
de type XLS et CSV.
Concernant les fichiers CSV je les exploitait de la=20
mani=E8re suivante :=20
Set bd =3D CurrentDb
Set xlsapp =3D CreateObject("Excel.Application")
Set xlsbook =3D xlsapp.Workbooks.Open(fic & nomfic)
Set xlssheet =3D xlsbook.Worksheets(1)
xlsapp.Visible =3D False
Ensuite je maniplulais les cellules de cette mani=E8re :
xlssheet.range(A1)
Lors d'un changement de poste (tjrs sous Access97) je me=20
suis aper=E7u que ma r=E9f=E9rence =E0 une cellule (ici A1) me=20
renvoyait toute la ligne et non la 1=E8re information de=20
cette m=EAme ligne.
D'ou cela peut-il venir ???
Merci de pouvoir me r=E9pondre et n'h=E9siter =E0 me dder des=20
pr=E9cisions car je me perd moi m=EAme dans le "joyeux=20
bordel" que j'ai d=E9velopp=E9.
+++
limbo

1 réponse

Avatar
LE CARRE Yannick
Salut limbo,

vérifie que la case à cocher Style de référence L1C1 n'est pas cochée dans
Outil/Options (Onglet général)

Yannick

limbo a écrit dans le message :
4f7801c37c4b$6c561c80$
Bonjour à tous,
J'ai un problème que j'aimerais bien éclaircir.
Voici qques mois j'ai développé en entreprise une
application Access97 + VBA exploitant des fichiers Excel
de type XLS et CSV.
Concernant les fichiers CSV je les exploitait de la
manière suivante :
Set bd = CurrentDb
Set xlsapp = CreateObject("Excel.Application")
Set xlsbook = xlsapp.Workbooks.Open(fic & nomfic)
Set xlssheet = xlsbook.Worksheets(1)
xlsapp.Visible = False
Ensuite je maniplulais les cellules de cette manière :
xlssheet.range(A1)
Lors d'un changement de poste (tjrs sous Access97) je me
suis aperçu que ma référence à une cellule (ici A1) me
renvoyait toute la ligne et non la 1ère information de
cette même ligne.
D'ou cela peut-il venir ???
Merci de pouvoir me répondre et n'hésiter à me dder des
précisions car je me perd moi même dans le "joyeux
bordel" que j'ai développé.
+++
limbo