Effectivement il y avait une erreur de frappe... Mais j'ai toujours un soucis à la ligne ---------->>>>
Dim conn As New ADODB.Connection Dim Rs As ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S: QUALITESERVICELAURENTRECLAMATIONS CLIENTS NEWSRéclamations Clients.mdb" & ";" conn.CursorLocation = adUseClient Set Rs = conn.Execute("R_Tps_traitement_T", , adCmdTable) Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object With XL_App Set XL_classeur = .Workbooks.Open("indicateurRC.XLS") Set XL_feuille = XL_classeur.Sheets("01") -----------------
message d'erreur l'indice n'appartient pas à la séléction With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Rs.Close conn.Close Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing
Merci Raymond
Effectivement il y avait une erreur de frappe...
Mais j'ai toujours un soucis à la ligne ---------->>>>
Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S:
QUALITESERVICELAURENTRECLAMATIONS CLIENTS NEWSRéclamations
Clients.mdb" & ";"
conn.CursorLocation = adUseClient
Set Rs = conn.Execute("R_Tps_traitement_T", , adCmdTable)
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open("indicateurRC.XLS")
Set XL_feuille = XL_classeur.Sheets("01") -----------------
message d'erreur l'indice n'appartient pas à la séléction
With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Rs.Close
conn.Close
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
Effectivement il y avait une erreur de frappe... Mais j'ai toujours un soucis à la ligne ---------->>>>
Dim conn As New ADODB.Connection Dim Rs As ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S: QUALITESERVICELAURENTRECLAMATIONS CLIENTS NEWSRéclamations Clients.mdb" & ";" conn.CursorLocation = adUseClient Set Rs = conn.Execute("R_Tps_traitement_T", , adCmdTable) Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object With XL_App Set XL_classeur = .Workbooks.Open("indicateurRC.XLS") Set XL_feuille = XL_classeur.Sheets("01") -----------------
message d'erreur l'indice n'appartient pas à la séléction With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Rs.Close conn.Close Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing
J'ai plus d'erreur (miracle ??) Mais dans mon fichier excel je ne récupère rien...
je comprend pas...
Merci
A++
Raymond [mvp]
il faut que la feuille existe.
Set XL_feuille = XL_classeur.Sheets("01")
la feuille 01 existe-t-elle bien dans ton classeur excel ?
je ne t'ai pas dit, quand tu te plantes, tu risques d'avoir des processus qui ne sont pas supprimés et tu peux avoir autant d'excel que de plantages. vérifies par ctrl + alt + suppr et supprimes éventuellement les processus excel. -- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" a écrit dans le message de news:
Merci Raymond
Effectivement il y avait une erreur de frappe... Mais j'ai toujours un soucis à la ligne ---------->>>>
Dim conn As New ADODB.Connection Dim Rs As ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S: QUALITESERVICELAURENTRECLAMATIONS CLIENTS NEWSRéclamations Clients.mdb" & ";" conn.CursorLocation = adUseClient Set Rs = conn.Execute("R_Tps_traitement_T", , adCmdTable) Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object With XL_App Set XL_classeur = .Workbooks.Open("indicateurRC.XLS") Set XL_feuille = XL_classeur.Sheets("01") -----------------
message d'erreur l'indice n'appartient pas à la séléction With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Rs.Close conn.Close Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing
il faut que la feuille existe.
Set XL_feuille = XL_classeur.Sheets("01")
la feuille 01 existe-t-elle bien dans ton classeur excel ?
je ne t'ai pas dit, quand tu te plantes, tu risques d'avoir des processus
qui ne sont pas supprimés et tu peux avoir autant d'excel que de plantages.
vérifies par ctrl + alt + suppr et supprimes éventuellement les processus
excel.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1184160690.935636.77340@q75g2000hsh.googlegroups.com...
Merci Raymond
Effectivement il y avait une erreur de frappe...
Mais j'ai toujours un soucis à la ligne ---------->>>>
Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S:
QUALITESERVICELAURENTRECLAMATIONS CLIENTS NEWSRéclamations
Clients.mdb" & ";"
conn.CursorLocation = adUseClient
Set Rs = conn.Execute("R_Tps_traitement_T", , adCmdTable)
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open("indicateurRC.XLS")
Set XL_feuille = XL_classeur.Sheets("01") -----------------
message d'erreur l'indice n'appartient pas à la séléction
With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Rs.Close
conn.Close
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
la feuille 01 existe-t-elle bien dans ton classeur excel ?
je ne t'ai pas dit, quand tu te plantes, tu risques d'avoir des processus qui ne sont pas supprimés et tu peux avoir autant d'excel que de plantages. vérifies par ctrl + alt + suppr et supprimes éventuellement les processus excel. -- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" a écrit dans le message de news:
Merci Raymond
Effectivement il y avait une erreur de frappe... Mais j'ai toujours un soucis à la ligne ---------->>>>
Dim conn As New ADODB.Connection Dim Rs As ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S: QUALITESERVICELAURENTRECLAMATIONS CLIENTS NEWSRéclamations Clients.mdb" & ";" conn.CursorLocation = adUseClient Set Rs = conn.Execute("R_Tps_traitement_T", , adCmdTable) Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object With XL_App Set XL_classeur = .Workbooks.Open("indicateurRC.XLS") Set XL_feuille = XL_classeur.Sheets("01") -----------------
message d'erreur l'indice n'appartient pas à la séléction With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Rs.Close conn.Close Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing
lolo_bob2
Raymond
La feuille 01 existe bien dans mon classeur excel... Je viens de vérifier les processus, il n'y a pas d'excel ouvert plusieurs fois.
Merci bcp
A++ Lolo
Raymond
La feuille 01 existe bien dans mon classeur excel...
Je viens de vérifier les processus, il n'y a pas d'excel ouvert
plusieurs fois.
La feuille 01 existe bien dans mon classeur excel... Je viens de vérifier les processus, il n'y a pas d'excel ouvert plusieurs fois.
Merci bcp
A++ Lolo
Raymond [mvp]
peux-tu me passer ta base et ton fichier excel par mail dans un fichier zip ? enlèves lez xyz dans mon adresse.
-- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" a écrit dans le message de news:
Raymond
La feuille 01 existe bien dans mon classeur excel... Je viens de vérifier les processus, il n'y a pas d'excel ouvert plusieurs fois.
Merci bcp
A++ Lolo
peux-tu me passer ta base et ton fichier excel par mail dans un fichier zip
? enlèves lez xyz dans mon adresse.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1184163939.831426.229460@n60g2000hse.googlegroups.com...
Raymond
La feuille 01 existe bien dans mon classeur excel...
Je viens de vérifier les processus, il n'y a pas d'excel ouvert
plusieurs fois.
peux-tu me passer ta base et ton fichier excel par mail dans un fichier zip ? enlèves lez xyz dans mon adresse.
-- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" a écrit dans le message de news:
Raymond
La feuille 01 existe bien dans mon classeur excel... Je viens de vérifier les processus, il n'y a pas d'excel ouvert plusieurs fois.
Merci bcp
A++ Lolo
lolo_bob2
Raymond
Je viens de t'envoyer les fichiers le titre dui mail est base de données
Merci
Lolo
Raymond
Je viens de t'envoyer les fichiers le titre dui mail est base de
données
Je viens de t'envoyer les fichiers le titre dui mail est base de données
Merci
Lolo
Raymond [mvp]
message envoyé par mail à 17:48
Ça fonctionne normalement. J'ai simplement fait ces deux modifs en rouge pour adapter à mes dossiers : Base et fichier excel à vérifier, en retour.
-- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" a écrit dans le message de news:
Raymond
Je viens de t'envoyer les fichiers le titre dui mail est base de données
Merci
Lolo
message envoyé par mail à 17:48
Ça fonctionne normalement.
J'ai simplement fait ces deux modifs en rouge pour adapter à mes dossiers :
Base et fichier excel à vérifier, en retour.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1184167635.434188.175360@22g2000hsm.googlegroups.com...
Raymond
Je viens de t'envoyer les fichiers le titre dui mail est base de
données
Ça fonctionne normalement. J'ai simplement fait ces deux modifs en rouge pour adapter à mes dossiers : Base et fichier excel à vérifier, en retour.
-- @+ Raymond Access MVP http://www.OfficeSystemAccess.com/ http://officesystem.access.over-blog.com/ http://officesystem.access.free.fr/wiki/ Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office ! http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"lolo_bob2" a écrit dans le message de news:
Raymond
Je viens de t'envoyer les fichiers le titre dui mail est base de données
Merci
Lolo
lolo_bob2
Bonjour
Encore un soucis de code enfin je pense...
Voila mon code
Private Sub Commande15_Click() 'If InputBox("Mot de Passe") <> "toutou" Then Exit Sub Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S: QUALITERECLAMATIONSRéclamations Clients.mdb" & ";" conn.CursorLocation = adUseClient Set Rs = conn.Execute("R_Nbre_o_cmois", , adCmdTable)--->>>j'ai une erreur ici
Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object
With XL_App Set XL_classeur = .Workbooks.Open("S:QUALITERECLAMATIONS indicateurRC.xls") Set XL_feuille = XL_classeur.Sheets(Me.MaFeuille) ' -----------------------------------------------' With XL_feuille XL_feuille.Range("A1").CopyFromRecordset Rs End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Rs.Close conn.Close Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing End Sub
J'ai une erreur à la ligne ---->>> Ma requête est la suivante : http://cjoint.com/?hmlhJ8IRps Voici l'erreur http://cjoint.com/?hmlasZY4Ek Pouvez vous m'aider ?
Merci A++ Lolo
Bonjour
Encore un soucis de code enfin je pense...
Voila mon code
Private Sub Commande15_Click()
'If InputBox("Mot de Passe") <> "toutou" Then Exit Sub
Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S:
QUALITERECLAMATIONSRéclamations Clients.mdb" & ";"
conn.CursorLocation = adUseClient
Set Rs = conn.Execute("R_Nbre_o_cmois", , adCmdTable)--->>>j'ai
une erreur ici
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open("S:QUALITERECLAMATIONS
indicateurRC.xls")
Set XL_feuille = XL_classeur.Sheets(Me.MaFeuille)
' -----------------------------------------------'
With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Rs.Close
conn.Close
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
End Sub
J'ai une erreur à la ligne ---->>>
Ma requête est la suivante : http://cjoint.com/?hmlhJ8IRps
Voici l'erreur http://cjoint.com/?hmlasZY4Ek
Pouvez vous m'aider ?
Private Sub Commande15_Click() 'If InputBox("Mot de Passe") <> "toutou" Then Exit Sub Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S: QUALITERECLAMATIONSRéclamations Clients.mdb" & ";" conn.CursorLocation = adUseClient Set Rs = conn.Execute("R_Nbre_o_cmois", , adCmdTable)--->>>j'ai une erreur ici
Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object
With XL_App Set XL_classeur = .Workbooks.Open("S:QUALITERECLAMATIONS indicateurRC.xls") Set XL_feuille = XL_classeur.Sheets(Me.MaFeuille) ' -----------------------------------------------' With XL_feuille XL_feuille.Range("A1").CopyFromRecordset Rs End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Rs.Close conn.Close Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing End Sub
J'ai une erreur à la ligne ---->>> Ma requête est la suivante : http://cjoint.com/?hmlhJ8IRps Voici l'erreur http://cjoint.com/?hmlasZY4Ek Pouvez vous m'aider ?
Merci A++ Lolo
Thierry (ze Titi)
Salut lolo !
Je n'utilise pas ADO mais il semble que le message d'erreur est clair: tu ne fournis pas les arguments nécessaires pour exécuter la requête. Je pense que, plutôt de demander le mois dans la requête en paramètre, tu devrais plutôt baser ta requête sur le formulaire contenant le bouton exécutant ton code. Ca pourrait résoudre ton problème. Mais je n'en suis pas certain, ça n'est qu'une proposition.
Message du jeudi 12/07/2007
Bonjour
Encore un soucis de code enfin je pense...
Voila mon code
Private Sub Commande15_Click() 'If InputBox("Mot de Passe") <> "toutou" Then Exit Sub Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S: QUALITERECLAMATIONSRéclamations Clients.mdb" & ";" conn.CursorLocation = adUseClient Set Rs = conn.Execute("R_Nbre_o_cmois", , adCmdTable)--->>>j'ai une erreur ici
Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object
With XL_App Set XL_classeur = .Workbooks.Open("S:QUALITERECLAMATIONS indicateurRC.xls") Set XL_feuille = XL_classeur.Sheets(Me.MaFeuille) ' -----------------------------------------------' With XL_feuille XL_feuille.Range("A1").CopyFromRecordset Rs End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Rs.Close conn.Close Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing End Sub
J'ai une erreur à la ligne ---->>> Ma requête est la suivante : http://cjoint.com/?hmlhJ8IRps Voici l'erreur http://cjoint.com/?hmlasZY4Ek Pouvez vous m'aider ?
Merci A++ Lolo
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Salut lolo !
Je n'utilise pas ADO mais il semble que le message d'erreur est clair:
tu ne fournis pas les arguments nécessaires pour exécuter la requête.
Je pense que, plutôt de demander le mois dans la requête en paramètre,
tu devrais plutôt baser ta requête sur le formulaire contenant le
bouton exécutant ton code. Ca pourrait résoudre ton problème. Mais je
n'en suis pas certain, ça n'est qu'une proposition.
Message du jeudi 12/07/2007
Bonjour
Encore un soucis de code enfin je pense...
Voila mon code
Private Sub Commande15_Click()
'If InputBox("Mot de Passe") <> "toutou" Then Exit Sub
Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S:
QUALITERECLAMATIONSRéclamations Clients.mdb" & ";"
conn.CursorLocation = adUseClient
Set Rs = conn.Execute("R_Nbre_o_cmois", , adCmdTable)--->>>j'ai
une erreur ici
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open("S:QUALITERECLAMATIONS
indicateurRC.xls")
Set XL_feuille = XL_classeur.Sheets(Me.MaFeuille)
' -----------------------------------------------'
With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Rs.Close
conn.Close
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
End Sub
J'ai une erreur à la ligne ---->>>
Ma requête est la suivante : http://cjoint.com/?hmlhJ8IRps
Voici l'erreur http://cjoint.com/?hmlasZY4Ek
Pouvez vous m'aider ?
Merci
A++
Lolo
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
Je n'utilise pas ADO mais il semble que le message d'erreur est clair: tu ne fournis pas les arguments nécessaires pour exécuter la requête. Je pense que, plutôt de demander le mois dans la requête en paramètre, tu devrais plutôt baser ta requête sur le formulaire contenant le bouton exécutant ton code. Ca pourrait résoudre ton problème. Mais je n'en suis pas certain, ça n'est qu'une proposition.
Message du jeudi 12/07/2007
Bonjour
Encore un soucis de code enfin je pense...
Voila mon code
Private Sub Commande15_Click() 'If InputBox("Mot de Passe") <> "toutou" Then Exit Sub Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S: QUALITERECLAMATIONSRéclamations Clients.mdb" & ";" conn.CursorLocation = adUseClient Set Rs = conn.Execute("R_Nbre_o_cmois", , adCmdTable)--->>>j'ai une erreur ici
Dim XL_App As Object Set XL_App = CreateObject("Excel.Application") Dim XL_classeur As Object Dim XL_feuille As Object
With XL_App Set XL_classeur = .Workbooks.Open("S:QUALITERECLAMATIONS indicateurRC.xls") Set XL_feuille = XL_classeur.Sheets(Me.MaFeuille) ' -----------------------------------------------' With XL_feuille XL_feuille.Range("A1").CopyFromRecordset Rs End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Rs.Close conn.Close Set XL_App = Nothing Set XL_classeur = Nothing Set XL_feuille = Nothing End Sub
J'ai une erreur à la ligne ---->>> Ma requête est la suivante : http://cjoint.com/?hmlhJ8IRps Voici l'erreur http://cjoint.com/?hmlasZY4Ek Pouvez vous m'aider ?
Merci A++ Lolo
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info