Traitement d'Excel depuis Access

[turbo_cro]

salut azertix et autres developateurs

j'ai testé le code de cette discussion
et je rencontre un pb à ce niveau :

Envoyé par azertix

Set oWSht = oWkb.Worksheets("nom_de_la_feuille_concernée_par_limportation") 'mettez ici le nom de la feuille qui contient les données à importer

lorsque je rentre le nom de la feuille en dur voici l'erreur indiquée :
l'indice n'appartient pas à la sélection

et lorsqu'il s'agit d'une variable :
incompatibilié de type

si vous avez une cle, ca me serait d'un grand secours

merci d'avance

[JackOuYA]

Envoyé par turbo_cro

salut azertix et autres developateurs

j'ai testé ce code
et je rencontre un pb à ce niveau :

...

montre nous ton code plutôt que celui à azertix , et précise nous le nom de ton classeur et de ta feuille..

[turbo_cro]

voilà le code (désolé, il y'a un gros paquet indigeste à un moment donné)
j'ai fait tout comme indiqué

Private Sub Commande1_Click()
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
 
'text2 = chemin access au ficier excel
'text3 = nom table à alimenter
'text4 = nom feuille à importer (feuil2)
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open(Text2) Set oWSht = oWkb.Worksheets(Text4) 
 
i = 11
DoCmd.SetWarnings False
While oWSht.Range("I" & i).Value <> ""
If DCount("*", [Text3], "[N° PA] LIKE '" & oWSht.Cells(i, 1) & "'") = 0 Then
 
cSQL = "insert into [text3] ( [FILIALE], [ANNEE], EOTP, [DATE CREATION], [DATE DECLENCHEMENT], PR, [CODE SST], [N° ITEM], [N° SERIE], [POOL], [CODE CLIENT], [TYPE REP], [PIECE/ACCESSOIRE], [TYPE MAT REP], FAMILLE, VARIANTE, [REF ARTICLE], [MOT/MODULE], [EQE SBH], [EQE DSO], MO, MATIERE, [CAFG ECG], [SST ECG], [CP ECG], [MAT REP], [MAT NEUVE], [H MO] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 3) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 4) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 5) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 9) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 12) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 13) & Chr(34) & " , " _
& Chr(34) & oWSht.Cells(i, 14) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 15) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 16) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 17) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 18) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 19) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 20) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 21) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 22) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 23) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 24) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 25) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 26) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 27) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 28) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 29) & Chr(34) & ");"
 
 
DoCmd.RunSQL cSQL
  
End If
 
i = i + 1
Wend
 
DoCmd.SetWarnings True
 
End Sub

[JackOuYA]

sur qu'elle ligne l'erreur ?


et ici :

 
...
Set oWkb = oApp.Workbooks.Open(Text2) 
Set oWSht = oWkb.Worksheets(Text4)
..
 

tu as bien 2 lignes ?

[azertix]

Bonjour, tu as oublié les guillemets, c'est pour ça

Sans variable :

Set oWkb = oApp.Workbooks.Open("C:\monfichier.xls") 
Set oWSht = oWkb.Worksheets("mafeuille")

Avec variable :

Dim monxls As String
Dim nomfeuille As String
monxls = "C:\monfichier.xls"
nomfeuille = "mafeuille"
Set oWkb = oApp.Workbooks.Open(monxls) 
Set oWSht = oWkb.Worksheets(nomfeuille)

[JackOuYA]

Envoyé par azertix

Bonjour, tu as oublié les guillemets, c'est pour ça
..

pas besoin de guillemet si Text4 et bien un textbox

[azertix]

Une zone de texte sur une feuille Excel ?
Je ne savais même pas que ça existait
Moi je ne suis que sur Access. Je connais peu Excel

[JackOuYA]

Envoyé par azertix

Une zone de texte sur une feuille Excel ?
Je ne savais même pas que ça existait
Moi je ne suis que sur Access. Je connais peu Excel

ça existe ... mais personne n'as dit que cette zone de texte était sur la feuille excel.. vu le code je la verrai plutôt sur un userform access...

[turbo_cro]

non mais quelle quiche !

oui zai oublié les guillemets !

merci pour votre aide !

finalement, j'ai fait une public fonction
j'ai rentré certains éléments en dur, d'autres en variable


merci encore

[azertix]

Ah, je me disais bien aussi
Bon ben content que ton problème soit résolu.
Bonne continuation

[JackOuYA]

Envoyé par turbo_cro

non mais quelle quiche !

oui zai oublié les guillemets !

merci pour votre aide !

finalement, j'ai fait une public fonction
j'ai rentré certains éléments en dur, d'autres en variable


merci encore

Il manque des " mais pas au lignes citées...

 
Set oWkb = oApp.Workbooks.Open(Text2) 
Set oWSht = oWkb.Worksheets(Text4)
..

plutôt dans les requête SQL qui suivent....


Bon finalement c'était quoi tes Text2, Text4 ...?

[JackOuYA]

Envoyé par turbo_cro

non mais quelle quiche !

oui zai oublié les guillemets !

merci pour votre aide !

finalement, j'ai fait une public fonction
j'ai rentré certains éléments en dur, d'autres en variable


merci encore

Il manque des " mais pas au lignes citées...

 
Set oWkb = oApp.Workbooks.Open(Text2) 
Set oWSht = oWkb.Worksheets(Text4)
..

plutôt dans les requêtes SQL qui suivent....


Bon finalement c'était quoi tes Text2, Text4 ...?

[azertix]

Du moment que son code fonctionne ...

Je pense que Text2 et Text4 sont les noms de ses variables

[turbo_cro]

oui exact !

text2 correspond au chemin de mon fichier
et text4 au nom de l'onglet

que je renseigne dans le formulaire


merci encore

[JackOuYA]

Envoyé par turbo_cro

oui exact !

text2 correspond au chemin de mon fichier
et text4 au nom de l'onglet

que je renseigne dans le formulaire


merci encore

ben c'est des textbox non ?