Selune6666
Messages postés59Date d'inscriptionmardi 23 janvier 2007StatutMembreDernière intervention14 janvier 2008
-
7 janv. 2008 à 14:31
Selune6666
Messages postés59Date d'inscriptionmardi 23 janvier 2007StatutMembreDernière intervention14 janvier 2008
-
14 janv. 2008 à 09:44
Bonjour a tous,
Mise en situation.
Importation données excel vers table access.
Un formulaire avec : une zone de texte nommé url
un bouton valider
un bouton parcourir
Voila ma ligne "Classeur_ XLS.Workbooks.Open Nom" ne fonctionne pas correctement j'aimerai comprendre pourquoi il me renvoie erreur 1004.
Option Compare Database
Public ClasseurXLS As Object
Private Sub Parcourir_Click() //une boite de dialogue s'ouvre je choisis mon fichier xls
Me!url = LaunchCD(Me)
End Sub
Private Sub Valider_Click() //une fois le fichier selectionné il s'affiche ds la zone de texte , on le recupère et on traite les données
Dim Nom As String //prend la valeur de l'url vers le fichier excel
Dim i As Long
Dim iEmplacement As String
Dim iEquipement As String
Dim iDe As String
Dim iA As String
Dim iEntrée As Integer
Dim iSortie As Integer
Dim iAlarmes_entrée As Integer
Dim SQL As String
Dim Classeur_XLS As Object
Set dbs = CurrentDb
If (url.Value <> "") Then
Nom = url //Nom prend la valeur de l'url noté dans la zone de texte
Else
MsgBox "Le chamin du fichier à importer est manquant, veuillez choisir la table excel à importer", vbExclamation + vbOKOnly
Exit Sub
End If
Set Classeur_XLS = CreateObject("Excel.application")
Classeur_ XLS.Workbooks.Open Nom //ICI ERREUR 1004
i = 3
Do While Classeur_XLS.cells(i, 1) <> ""
iEmplacement = Classeur_XLS.cells(i, 1)
iEquipement = Classeur_XLS.cells(i, 5)
iDe = Classeur_XLS.cells(i, 9)
iA = Classeur_XLS.cells(i, 10)
iEntrée = Classeur_XLS.cells(i, 13)
iSortie = Classeur_XLS.cells(i, 14)
iAlarmes_entrée = Classeur_XLS.cells(i, 15)
SQL = "INSERT INTO Compter(Emplacement, Equipement, De, A, Entrée, Sortie, Alarmes_entrée) values (' " & iEmplacement & " ' , ' " & iEquipement & " ' , ' " & iDe & " ' , ' " & iA & " ' , ' " & iEntrée & " ' , ' " & iSortie & " ' , ' " & iAlarmes_entrée & " ');"
dbs.Execute SQL
i = i + 1
Loop
Classeur_XLS.Visible = False
Classeur_XLS.Workbooks.Close Nom
Set Classeur_XLS = Nothing
MsgBox "ok"
End Sub
Selune6666
Messages postés59Date d'inscriptionmardi 23 janvier 2007StatutMembreDernière intervention14 janvier 2008 14 janv. 2008 à 09:44
Bonjour, le pb venait de mon nom de fichier qui etait de la forme , blabla.2.xls , le prog devait certainement bugger au niveau du ".2 " vu que pour lui c'est une extension de fichier inconnus.
Merci pour l'aide jvais pencher sur lautre pb now ^^.
Selune6666
Messages postés59Date d'inscriptionmardi 23 janvier 2007StatutMembreDernière intervention14 janvier 2008 7 janv. 2008 à 15:09
C'est du VBA ^^
Je pige pas trop pourquoi il veut pas ouvrir mon classeur.
Quand je dis url c'est chemin ça peut apporter une tite confusion je l'avoue ^^
Dans ma zone de texte il prend bien pourtant C://blabla/bla/fichier.xls
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 7 janv. 2008 à 15:37
je disais url.value qui aurait été url.text en dotnet
tu as essayé avec C:/ blabla/bla/fichier.xls ? (au lieu de C:// blabla/bla/fichier.xls)
il en faut peu parfois...
sinon sur ta ligne d'erreur, err.description te donne quoi? (la description de l'erreur 1004)
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Vous n’avez pas trouvé la réponse que vous recherchez ?
Selune6666
Messages postés59Date d'inscriptionmardi 23 janvier 2007StatutMembreDernière intervention14 janvier 2008 7 janv. 2008 à 15:45
euh c'est moi qui ai ajouté un / en trop en écrivant ^^ enfin je voulais souligné que la variable Nom prenait bien la valeur de ce qui était affiché dans la textbox c'est a dire le chemin complet du fichier excel à ouvrir
Msg d'erreur:
Erreur d'exe 1004:
la methode open de la classe worrkbooks a échoué.
Selune6666
Messages postés59Date d'inscriptionmardi 23 janvier 2007StatutMembreDernière intervention14 janvier 2008 8 janv. 2008 à 08:58
ok merci j'essaye voir ce que ça donne.
Ce code marchait avant pourtant mais j'ai refait ma base acces au debut.
Et oui le chemin est bon hier j'ai affiché une texte box qui me renvoyait nom et il m'a inscrit correctement le chemin.