Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts, Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>" &
CritereVolume & ");"
End Sub
Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu désires.
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62mtg$quu$1@news-reader3.wanadoo.fr...
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts, Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>" &
CritereVolume & ");"
End Sub
Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts, Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>" &
CritereVolume & ");"
End Sub
Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts, Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>" &
CritereVolume & ");"
End Sub
Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu désires.
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62mtg$quu$1@news-reader3.wanadoo.fr...
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts, Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>" &
CritereVolume & ");"
End Sub
Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts, Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>" &
CritereVolume & ");"
End Sub
Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer à
ton tableau en indiquant le nombre
d'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" a écrit dans le message de
news:c62s1c$rgn$
Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
mais
je ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
en
sachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexion
se fait sur excel et je n'arrive pas à renvoyer le resultat sur excel sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" a écrit dans le message de news:Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
setrouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
moncode
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>"
&
CritereVolume & ");"
End Sub
Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer à
ton tableau en indiquant le nombre
d'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62s1c$rgn$1@news-reader1.wanadoo.fr...
Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
mais
je ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
en
sachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexion
se fait sur excel et je n'arrive pas à renvoyer le resultat sur excel sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
echO7grJEHA.3404@TK2MSFTNGP10.phx.gbl...
Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62mtg$quu$1@news-reader3.wanadoo.fr...
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>"
&
CritereVolume & ");"
End Sub
Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer à
ton tableau en indiquant le nombre
d'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" a écrit dans le message de
news:c62s1c$rgn$
Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
mais
je ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
en
sachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexion
se fait sur excel et je n'arrive pas à renvoyer le resultat sur excel sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" a écrit dans le message de news:Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
setrouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
moncode
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>"
&
CritereVolume & ");"
End Sub
Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer à
ton tableau en indiquant le nombre
d'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" a écrit dans le message de
news:c62s1c$rgn$
Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
mais
je ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
en
sachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexion
se fait sur excel et je n'arrive pas à renvoyer le resultat sur excel sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" a écrit dans le message de news:Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
setrouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
moncode
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>"
&
CritereVolume & ");"
End Sub
Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer à
ton tableau en indiquant le nombre
d'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62s1c$rgn$1@news-reader1.wanadoo.fr...
Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
mais
je ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
en
sachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexion
se fait sur excel et je n'arrive pas à renvoyer le resultat sur excel sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
echO7grJEHA.3404@TK2MSFTNGP10.phx.gbl...
Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62mtg$quu$1@news-reader3.wanadoo.fr...
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>"
&
CritereVolume & ");"
End Sub
Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer à
ton tableau en indiquant le nombre
d'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" a écrit dans le message de
news:c62s1c$rgn$
Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
mais
je ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
en
sachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexion
se fait sur excel et je n'arrive pas à renvoyer le resultat sur excel sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" a écrit dans le message de news:Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql qui
setrouve dans un autre module et renvoie le resultat sur excel Que dois je
mettre à la place des points d'interrogations que vous trouverez dans le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité de
moncode
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur& "' And (Ventes1999.PM)= '" & CriterePM & "' And (Ventes1999.Volume)>"
&
CritereVolume & ");"
End Sub
Tu devrais déterminer et énoncer clairement ce que tu veux faire.
Admettrons que tu ais exécuter ta requête et que tu ais obtenu ton
RecordSet
à partir de là ... c'est quoi ton problème ?
à quelle place que tu veux copier les données du RecordSet ?
Est-ce que tu veux copier seulement certaines données du recordset ?
Moi, je ne comprends pas du tout à quel niveau se trouve ta difficulté.
Salutations!
"francisco" a écrit dans le message de
news:c62ukb$1d0$
La methode de creer un tableau es interessante merci de me l'avoir fait
remarquer mais j'ai une autre question qui me trotte la tête
Execuse moi de te deranger encore une fois Michel mais j'ai utilisé ce
code
que l'on m'a passé pour alimenter des combo Comment toi tu ferais pour
alimenter une feuille escel avec cela à la place d'alimenter des combo tu
trouveras le code en dessous
Merci pour tous Amicalement Francisco
Option Explicit
'cette procédure va récupérer la variable FichierOuvrir du formulaire
'donc c'est une proc qui attendra une variable de type string comme
déclarée
ci-dessous
' FichierOuvrir = récupéré à travers la variable MonFichier du formulaire
Sub RemplirFormulaire(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
Dim rst3 As New ADODB.Recordset
Dim rst4 As New ADODB.Recordset
Dim rst5 As New ADODB.Recordset
'variable declaré pour arrondir le champs volume
Dim cc
Dim ReqLibelleCodeProduct As String
Dim ReqCodeConditionnement As String
Dim ReqCodeCouleur As String
Dim ReqPM As String
Dim ReqVolume As String
'----pour remplir le premier combo
'le distinct évite les doublons
ReqLibelleCodeProduct = "Select distinct LibelleCodeProduct FROM
Ventes1999
"
ReqCodeConditionnement = "Select distinct CodeConditionnement FROM
Ventes1999 "
ReqCodeCouleur = "Select distinct CodeCouleur FROM Ventes1999"
ReqPM = "select distinct PM FROM Ventes1999"
ReqVolume = "select distinct Volume From Ventes1999"
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open ReqLibelleCodeProduct, cnt
'-------------------------------
While Not rst1.EOF
FrmSaisie.CboListeCodeProduct.AddItem (rst1!LibelleCodeProduct)
rst1.MoveNext
Wend
rst1.Close
Set rst1 = Nothing
'--------------------------------
'
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst2.Open ReqCodeConditionnement, cnt
While Not rst2.EOF
FrmSaisie.CboListeConditionnement.AddItem (rst2!CodeConditionnement)
rst2.MoveNext
Wend
rst2.Close
Set rst2 = Nothing
'---------------------------
'cnt.Close
'Set cnt = Nothing
'-------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst3.Open ReqCodeCouleur, cnt
While Not rst3.EOF
If rst3!CodeCouleur = "0" Then
FrmSaisie.CboListeCouleur.AddItem ("BLANC")
Else
FrmSaisie.CboListeCouleur.AddItem ("COULEUR")
End If
rst3.MoveNext
Wend
rst3.Close
Set rst3 = Nothing
'---------------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst4.Open ReqPM, cnt
While Not rst4.EOF
FrmSaisie.CboListePM.AddItem (rst4!PM)
rst4.MoveNext
Wend
rst4.Close
Set rst4 = Nothing
'------------------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst5.Open ReqVolume, cnt
While Not rst5.EOF
cc = Format(rst5!Volume, "0.00")
FrmSaisie.CboListeVolume.AddItem (cc)
rst5.MoveNext
Wend
rst5.Close
Set rst5 = Nothing
' on ferme la connexion
cnt.Close
Set cnt = Nothing
End Sub
"michdenis" a écrit dans le message de news:
O$oRf#Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer
à
ton tableau en indiquant le nombred'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" a écrit dans le message de
news:c62s1c$rgn$Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
maisje ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
ensachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexionse fait sur excel et je n'arrive pas à renvoyer le resultat sur excel
sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie
du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" a écrit dans le message de news:Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une
base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pourque ma deuxième procedure marche et prenne en compte ma requête Rsql
qui
setrouve dans un autre module et renvoie le resultat sur excel Que dois
je
mettre à la place des points d'interrogations que vous trouverez dans
le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité
de
moncode
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------TOTALITE DU PROGRAMME
------------------------------------------------------------------------Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base
des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql
que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un
autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeuresFROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur& "' And (Ventes1999.PM)= '" & CriterePM & "' And
(Ventes1999.Volume)>"
&CritereVolume & ");"
End Sub
Tu devrais déterminer et énoncer clairement ce que tu veux faire.
Admettrons que tu ais exécuter ta requête et que tu ais obtenu ton
RecordSet
à partir de là ... c'est quoi ton problème ?
à quelle place que tu veux copier les données du RecordSet ?
Est-ce que tu veux copier seulement certaines données du recordset ?
Moi, je ne comprends pas du tout à quel niveau se trouve ta difficulté.
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62ukb$1d0$1@news-reader1.wanadoo.fr...
La methode de creer un tableau es interessante merci de me l'avoir fait
remarquer mais j'ai une autre question qui me trotte la tête
Execuse moi de te deranger encore une fois Michel mais j'ai utilisé ce
code
que l'on m'a passé pour alimenter des combo Comment toi tu ferais pour
alimenter une feuille escel avec cela à la place d'alimenter des combo tu
trouveras le code en dessous
Merci pour tous Amicalement Francisco
Option Explicit
'cette procédure va récupérer la variable FichierOuvrir du formulaire
'donc c'est une proc qui attendra une variable de type string comme
déclarée
ci-dessous
' FichierOuvrir = récupéré à travers la variable MonFichier du formulaire
Sub RemplirFormulaire(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
Dim rst3 As New ADODB.Recordset
Dim rst4 As New ADODB.Recordset
Dim rst5 As New ADODB.Recordset
'variable declaré pour arrondir le champs volume
Dim cc
Dim ReqLibelleCodeProduct As String
Dim ReqCodeConditionnement As String
Dim ReqCodeCouleur As String
Dim ReqPM As String
Dim ReqVolume As String
'----pour remplir le premier combo
'le distinct évite les doublons
ReqLibelleCodeProduct = "Select distinct LibelleCodeProduct FROM
Ventes1999
"
ReqCodeConditionnement = "Select distinct CodeConditionnement FROM
Ventes1999 "
ReqCodeCouleur = "Select distinct CodeCouleur FROM Ventes1999"
ReqPM = "select distinct PM FROM Ventes1999"
ReqVolume = "select distinct Volume From Ventes1999"
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open ReqLibelleCodeProduct, cnt
'-------------------------------
While Not rst1.EOF
FrmSaisie.CboListeCodeProduct.AddItem (rst1!LibelleCodeProduct)
rst1.MoveNext
Wend
rst1.Close
Set rst1 = Nothing
'--------------------------------
'
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst2.Open ReqCodeConditionnement, cnt
While Not rst2.EOF
FrmSaisie.CboListeConditionnement.AddItem (rst2!CodeConditionnement)
rst2.MoveNext
Wend
rst2.Close
Set rst2 = Nothing
'---------------------------
'cnt.Close
'Set cnt = Nothing
'-------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst3.Open ReqCodeCouleur, cnt
While Not rst3.EOF
If rst3!CodeCouleur = "0" Then
FrmSaisie.CboListeCouleur.AddItem ("BLANC")
Else
FrmSaisie.CboListeCouleur.AddItem ("COULEUR")
End If
rst3.MoveNext
Wend
rst3.Close
Set rst3 = Nothing
'---------------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst4.Open ReqPM, cnt
While Not rst4.EOF
FrmSaisie.CboListePM.AddItem (rst4!PM)
rst4.MoveNext
Wend
rst4.Close
Set rst4 = Nothing
'------------------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst5.Open ReqVolume, cnt
While Not rst5.EOF
cc = Format(rst5!Volume, "0.00")
FrmSaisie.CboListeVolume.AddItem (cc)
rst5.MoveNext
Wend
rst5.Close
Set rst5 = Nothing
' on ferme la connexion
cnt.Close
Set cnt = Nothing
End Sub
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O$oRf#rJEHA.204@TK2MSFTNGP10.phx.gbl...
Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer
à
ton tableau en indiquant le nombre
d'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62s1c$rgn$1@news-reader1.wanadoo.fr...
Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
mais
je ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
en
sachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexion
se fait sur excel et je n'arrive pas à renvoyer le resultat sur excel
sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie
du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
echO7grJEHA.3404@TK2MSFTNGP10.phx.gbl...
Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" <malabar@wanadoo.fr> a écrit dans le message de
news:c62mtg$quu$1@news-reader3.wanadoo.fr...
Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une
base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pour
que ma deuxième procedure marche et prenne en compte ma requête Rsql
qui
se
trouve dans un autre module et renvoie le resultat sur excel Que dois
je
mettre à la place des points d'interrogations que vous trouverez dans
le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité
de
mon
code
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------
TOTALITE DU PROGRAMME
------------------------------------------------------------------------
Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base
des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql
que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un
autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,
Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures
FROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur
& "' And (Ventes1999.PM)= '" & CriterePM & "' And
(Ventes1999.Volume)>"
&
CritereVolume & ");"
End Sub
Tu devrais déterminer et énoncer clairement ce que tu veux faire.
Admettrons que tu ais exécuter ta requête et que tu ais obtenu ton
RecordSet
à partir de là ... c'est quoi ton problème ?
à quelle place que tu veux copier les données du RecordSet ?
Est-ce que tu veux copier seulement certaines données du recordset ?
Moi, je ne comprends pas du tout à quel niveau se trouve ta difficulté.
Salutations!
"francisco" a écrit dans le message de
news:c62ukb$1d0$
La methode de creer un tableau es interessante merci de me l'avoir fait
remarquer mais j'ai une autre question qui me trotte la tête
Execuse moi de te deranger encore une fois Michel mais j'ai utilisé ce
code
que l'on m'a passé pour alimenter des combo Comment toi tu ferais pour
alimenter une feuille escel avec cela à la place d'alimenter des combo tu
trouveras le code en dessous
Merci pour tous Amicalement Francisco
Option Explicit
'cette procédure va récupérer la variable FichierOuvrir du formulaire
'donc c'est une proc qui attendra une variable de type string comme
déclarée
ci-dessous
' FichierOuvrir = récupéré à travers la variable MonFichier du formulaire
Sub RemplirFormulaire(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
Dim rst3 As New ADODB.Recordset
Dim rst4 As New ADODB.Recordset
Dim rst5 As New ADODB.Recordset
'variable declaré pour arrondir le champs volume
Dim cc
Dim ReqLibelleCodeProduct As String
Dim ReqCodeConditionnement As String
Dim ReqCodeCouleur As String
Dim ReqPM As String
Dim ReqVolume As String
'----pour remplir le premier combo
'le distinct évite les doublons
ReqLibelleCodeProduct = "Select distinct LibelleCodeProduct FROM
Ventes1999
"
ReqCodeConditionnement = "Select distinct CodeConditionnement FROM
Ventes1999 "
ReqCodeCouleur = "Select distinct CodeCouleur FROM Ventes1999"
ReqPM = "select distinct PM FROM Ventes1999"
ReqVolume = "select distinct Volume From Ventes1999"
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & FichierOuvrir
&
"' ;"
'------------------------------------------------------------
rst1.Open ReqLibelleCodeProduct, cnt
'-------------------------------
While Not rst1.EOF
FrmSaisie.CboListeCodeProduct.AddItem (rst1!LibelleCodeProduct)
rst1.MoveNext
Wend
rst1.Close
Set rst1 = Nothing
'--------------------------------
'
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst2.Open ReqCodeConditionnement, cnt
While Not rst2.EOF
FrmSaisie.CboListeConditionnement.AddItem (rst2!CodeConditionnement)
rst2.MoveNext
Wend
rst2.Close
Set rst2 = Nothing
'---------------------------
'cnt.Close
'Set cnt = Nothing
'-------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst3.Open ReqCodeCouleur, cnt
While Not rst3.EOF
If rst3!CodeCouleur = "0" Then
FrmSaisie.CboListeCouleur.AddItem ("BLANC")
Else
FrmSaisie.CboListeCouleur.AddItem ("COULEUR")
End If
rst3.MoveNext
Wend
rst3.Close
Set rst3 = Nothing
'---------------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst4.Open ReqPM, cnt
While Not rst4.EOF
FrmSaisie.CboListePM.AddItem (rst4!PM)
rst4.MoveNext
Wend
rst4.Close
Set rst4 = Nothing
'------------------------------------------
'cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir
& "' ;"
rst5.Open ReqVolume, cnt
While Not rst5.EOF
cc = Format(rst5!Volume, "0.00")
FrmSaisie.CboListeVolume.AddItem (cc)
rst5.MoveNext
Wend
rst5.Close
Set rst5 = Nothing
' on ferme la connexion
cnt.Close
Set cnt = Nothing
End Sub
"michdenis" a écrit dans le message de news:
O$oRf#Bonjour Francisco,
Comme je vois que tu utilises ADO,
Tu peux utiliser la méthode GetRows du RecordSet pour transformer ton
recordset en Tableau(array).
Comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows
Tu peux même limiter le nombre d'enregistrements que tu veux transférer
à
ton tableau en indiquant le nombred'enregistrement
comme ceci :
'Copie le recordset dans un tableau
Tblo = rst.GetRows(10) ' 10 pour les 10 premiers enregistrements.
Tblo est un Tableau(Array) à 2 dimensions représentant ton recordset.
Désires-tu autre chose ?
Salutations!
"francisco" a écrit dans le message de
news:c62s1c$rgn$Merci MichDenis pour ta reponse cela resoud une partie de mon probleme
maisje ne sais pas comment faire pour renvoyer ensuite le resultat sur excel
ensachant que toutes mes macros se trouvent sur excel en utilisant un
recordset mais sans que cela soit un copyfromrecordset Je ne sais pas me
servir d'un recordset qui pointe sur une base access mais dont la
connexionse fait sur excel et je n'arrive pas à renvoyer le resultat sur excel
sans
que cela soit un copyfromrecordset
Est ce que tu aurais un exemple sous le coude qui aille avec une partie
du
code que j'ai écrit cela serait tres gentil
Merci deja pour la reponse que tu m'as donné
Amicalement Francisco
"michdenis" a écrit dans le message de news:Bonjour Francisco,
Déclare dans le haut d'un module standard, une constante "RSQL" comme
Public
Exemple :
'Évidemment tu définis la requête que tu désires.
Public Const Rsql = "Select * from Employés"
Tu peux définir quelques requêtes de cette façon, si le texte de la
requête est toujours le même !!
Tu vas pouvoir appeler cette constante de tous les modules que tu
désires.
Salutations!
"francisco" a écrit dans le message de
news:c62mtg$quu$Bonjour tout le monde
j'ai le code suivant qui me permet d'ouvrir une connexion vers une
base
access
Cette procedure se trouve dans un userform. Comment dois je faire
pourque ma deuxième procedure marche et prenne en compte ma requête Rsql
qui
setrouve dans un autre module et renvoie le resultat sur excel Que dois
je
mettre à la place des points d'interrogations que vous trouverez dans
le
code ci dessous. Pour essayer d'être plus clair j'ai mis la totalité
de
moncode
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
------------------------------------------------------------------------TOTALITE DU PROGRAMME
------------------------------------------------------------------------Sub OuvrirFichier()
On Error Resume Next
MonFichier = Application.GetOpenFilename _
("Base access (*.mdb), *.mdb", , "Sélectionnez la base
des
données à importer :")
ModRemplirFormulaire.RemplirFormulaire (MonFichier)
End Sub
La deuxième procedure se trouve dans un module appeler
ModOuvrirConnexion
---------------------------------------------------------
MODOUVRIR CONNEXION
----------------------------------------------------------
Sub OuvrirConnexion(FichierOuvrir As String)
Dim cnt As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" &
FichierOuvrir&"' ;"
'------------------------------------------------------------
rst1.Open Rsql, cnt
'-------------------------------
While Not rst1.EOF
????????????
Wend
rst1.Close
Set rst1 = Nothing
End Sub
Jai une troisième procedure ou se trouve le code suivant :
J'ai créé dans un module executer requête une requete sql nommé Rsql
que
j'utilise dans ma procedure ouvrir connexion qui se trouve dans un
autre
module ouvrir connexion
Sub ExecuterRequete()
'Définition des critères de la requête :
Dim CritereProduct
Dim CritereConditionnement
Dim CritereCouleur
Dim CriterePM
Dim CritereVolume
CritereProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
Rsql = "Select Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur,
Ventes1999.Grammage,Ventes1999.PM, Ventes1999.Volume, Ventes1999.AverageExMill ,
Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeuresFROM Ventes1999 WHERE ((Ventes1999.LibelleCodeProduct)= '" &
CritereCodeProduct & "' And (Ventes1999.CodeConditionnement)= '" &
CritereConditionnement & "' And (Ventes1999.CodeCouleur)='" &
CritereCouleur& "' And (Ventes1999.PM)= '" & CriterePM & "' And
(Ventes1999.Volume)>"
&CritereVolume & ");"
End Sub
bonjour franscico
je sais pas si j'ai tout compris
ton recordset rst est ouvert
tu veux écrire sur la feuille nommée data
dim F as range
dim i as integer, t as long
set F = worksheets("data").range("a1")
for i = 0 to rst.fields.count -1
F.offset(0,i) = rst(i).name
next
do until rst.eof
i = 0
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
rst.movenext
loop
la suite, j'ai pas testé, mais çà doit etre bon
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
bonjour franscico
je sais pas si j'ai tout compris
ton recordset rst est ouvert
tu veux écrire sur la feuille nommée data
dim F as range
dim i as integer, t as long
set F = worksheets("data").range("a1")
for i = 0 to rst.fields.count -1
F.offset(0,i) = rst(i).name
next
do until rst.eof
i = 0
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
rst.movenext
loop
la suite, j'ai pas testé, mais çà doit etre bon
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
bonjour franscico
je sais pas si j'ai tout compris
ton recordset rst est ouvert
tu veux écrire sur la feuille nommée data
dim F as range
dim i as integer, t as long
set F = worksheets("data").range("a1")
for i = 0 to rst.fields.count -1
F.offset(0,i) = rst(i).name
next
do until rst.eof
i = 0
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
rst.movenext
loop
la suite, j'ai pas testé, mais çà doit etre bon
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
Merci Pierre pour ta reponse ainsi qu'à MichDenis et à Denis Michon
Amicalement Francisco A +
"Pierre CFI [mvp]" a écrit dans le message de
news: u#bonjour franscico
je sais pas si j'ai tout compris
ton recordset rst est ouvert
tu veux écrire sur la feuille nommée data
dim F as range
dim i as integer, t as long
set F = worksheets("data").range("a1")
for i = 0 to rst.fields.count -1
F.offset(0,i) = rst(i).name
next
do until rst.eof
i = 0
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
rst.movenext
loop
la suite, j'ai pas testé, mais çà doit etre bon
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
Merci Pierre pour ta reponse ainsi qu'à MichDenis et à Denis Michon
Amicalement Francisco A +
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: u#MrhauJEHA.3596@TK2MSFTNGP10.phx.gbl...
bonjour franscico
je sais pas si j'ai tout compris
ton recordset rst est ouvert
tu veux écrire sur la feuille nommée data
dim F as range
dim i as integer, t as long
set F = worksheets("data").range("a1")
for i = 0 to rst.fields.count -1
F.offset(0,i) = rst(i).name
next
do until rst.eof
i = 0
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
rst.movenext
loop
la suite, j'ai pas testé, mais çà doit etre bon
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
Merci Pierre pour ta reponse ainsi qu'à MichDenis et à Denis Michon
Amicalement Francisco A +
"Pierre CFI [mvp]" a écrit dans le message de
news: u#bonjour franscico
je sais pas si j'ai tout compris
ton recordset rst est ouvert
tu veux écrire sur la feuille nommée data
dim F as range
dim i as integer, t as long
set F = worksheets("data").range("a1")
for i = 0 to rst.fields.count -1
F.offset(0,i) = rst(i).name
next
do until rst.eof
i = 0
for i = 0 to rst.fields.count -1
F.offset(t,i) = rst(i)
next
t=t+1
rst.movenext
loop
la suite, j'ai pas testé, mais çà doit etre bon
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr