Liste de données

http://www.cijoint.fr/cjlink.php?file=cj200906/cijCJX0PeI.xls
Daniel

samos a écrit :

Daniel.C a écrit :

Daniel.C a écrit :

Merci Mich ca marche nickel.
Juste une question le fichier source peut-il être dans un autre
répertoire à condition de le modifié dans le prog VBA?

par contre je vais essayer de ramener les infos d'une colonne
supplémentaire du fichier source c'est compliqué ou pas ?

Bonjour.
Pour le chemin, pas de problème, Denis a spécifié le même pour
simplifier l'installation.
Pour le second point, non, pas plus que ce qui précède. Le mieux serait
que tu dises quelle colonne tu veux importer et ce que tu comptes en
faire.
Daniel

Utilser la colonne C dela base de donées intitulé PRI et de la meme facon
que la reference elle ce mette en colonne D du fichier à remplir.

SAM

J'ai modifié le classeur de MichDenis pour prendre en charge la 3e colonne
:
http://www.cijoint.fr/cjlink.php?file=cj200906/cijkWclEOR.xls
Daniel

Merci daniel

Je viens de tester mais il me renvoit toujours la même valeur de la première
cellule de la colonne.
SAM

Le code suivant fonctionne (fichier source sur le bureau) :

Sub Charger_La_Liste()
Dim Cn As ADODB.Connection, Rst As Recordset
Dim Fichier As String, Nb As Integer, A As Integer
Dim NomFeuille As String, texte_SQL As String

NomFeuille = "Données"
Chemin = "C:Documents and SettingsDanielBureau"

'ne pas oublier de modifier le nom du fichier
Fichier = Chemin & "" & "aaaa_Source.xls"
...

Daniel


Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES;"""
.Open
End With

MichDenis a écrit :

Bonjour Samuel,

Dans ton fichier, modifie la ligne de code suivante en
adaptant bien sûr le chemin où tu as placé ton fichier source.

Ceci est simplement pour t'assurer que le chemin et le
nom du fichier est bon.

A )
REMPLACE :
Fichier = ThisWorkbook.Path & "" & "aaaa_Source.xls"

PAR
'---------------------------------- IF
DIR("\NomDuServeurcheminDuServeurNomDuFichierSource.xls")<>"" then
ficher = "\NomDuServeurcheminDuServeurNomDuFichierSource.xls"
Else
Msgbox "Chemin introuvable. Opération annulée."
exit sub
End If
'---------------------------------- B )
Lors de l'exécution de la procédure, si tu obtiens une erreur,
tu dois la noter et tu dois nous faire par de cette erreur...
difficile de deviner !

C )
Je n'ai pas de réseau pour effectuer des tests !


"samos" <faupin.samuel@neuf.fr> a écrit dans le message de groupe de
discussion : Ow6WCdX9JHA.1340@TK2MSFTNGP05.phx.gbl...
Daniel.C a écrit :

Merci Mich ca marche nickel.
Juste une question le fichier source peut-il être dans un autre
répertoire à condition de le modifié dans le prog VBA?

par contre je vais essayer de ramener les infos d'une colonne
supplémentaire du fichier source c'est compliqué ou pas ?

Bonjour.
Pour le chemin, pas de problème, Denis a spécifié le même pour
simplifier l'installation.
Pour le second point, non, pas plus que ce qui précède. Le mieux
serait que tu dises quelle colonne tu veux importer et ce que tu
comptes en faire.
Daniel

Dons je viens de faire un test j'ai décompressé le fichier de denis
directement sur le serveur et la ca marche par contre.
Lorsque je déplace le fichier à remplir sur mon bureau, là ca ne
fonctionne plus.

SAM

Bonojour,
ci joint l'imagge de l'erreur
http://www.cijoint.fr/cjlink.php?file=cj200906/cijr69upA8.jpg

Merci

Daniel.C a écrit :

Le code suivant fonctionne (fichier source sur le bureau) :

Sub Charger_La_Liste()
Dim Cn As ADODB.Connection, Rst As Recordset
Dim Fichier As String, Nb As Integer, A As Integer
Dim NomFeuille As String, texte_SQL As String

NomFeuille = "Données"
Chemin = "C:Documents and SettingsDanielBureau"

'ne pas oublier de modifier le nom du fichier
Fichier = Chemin & "" & "aaaa_Source.xls"
...

Daniel


Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES;"""
.Open
End With

MichDenis a écrit :

Bonjour Samuel,

Dans ton fichier, modifie la ligne de code suivante en
adaptant bien sûr le chemin où tu as placé ton fichier source.

Ceci est simplement pour t'assurer que le chemin et le
nom du fichier est bon.

A )
REMPLACE :
Fichier = ThisWorkbook.Path & "" & "aaaa_Source.xls"

PAR
'---------------------------------- IF
DIR("\NomDuServeurcheminDuServeurNomDuFichierSource.xls")<>"" then
ficher = "\NomDuServeurcheminDuServeurNomDuFichierSource.xls"
Else
Msgbox "Chemin introuvable. Opération annulée."
exit sub
End If
'---------------------------------- B )
Lors de l'exécution de la procédure, si tu obtiens une erreur,
tu dois la noter et tu dois nous faire par de cette erreur...
difficile de deviner !

C )
Je n'ai pas de réseau pour effectuer des tests !


"samos" <faupin.samuel@neuf.fr> a écrit dans le message de groupe de
discussion : Ow6WCdX9JHA.1340@TK2MSFTNGP05.phx.gbl...
Daniel.C a écrit :

Merci Mich ca marche nickel.
Juste une question le fichier source peut-il être dans un autre
répertoire à condition de le modifié dans le prog VBA?

par contre je vais essayer de ramener les infos d'une colonne
supplémentaire du fichier source c'est compliqué ou pas ?

Bonjour.
Pour le chemin, pas de problème, Denis a spécifié le même pour
simplifier l'installation.
Pour le second point, non, pas plus que ce qui précède. Le mieux
serait que tu dises quelle colonne tu veux importer et ce que tu
comptes en faire.
Daniel

Dons je viens de faire un test j'ai décompressé le fichier de denis
directement sur le serveur et la ca marche par contre.
Lorsque je déplace le fichier à remplir sur mon bureau, là ca ne
fonctionne plus.

SAM

Bonojour,
ci joint l'imagge de l'erreur
http://www.cijoint.fr/cjlink.php?file=cj200906/cijr69upA8.jpg

Merci

J'ai intégrer et tes lignes de commande fonctionne.
Fichier source sur le serveur et celui utilisant la macro sur le bureau
nickel.
Par contre quelques soit la désignation il me renvoit toujours la même
ref et le même PRI.
Je par le du fichier aaaa_2.
Je vais essayer d'intégrer tes lignes de commande au fichier du début
aaaaa_1.

SAM

samos a écrit :

Daniel.C a écrit :

Le code suivant fonctionne (fichier source sur le bureau) :

Sub Charger_La_Liste()
Dim Cn As ADODB.Connection, Rst As Recordset
Dim Fichier As String, Nb As Integer, A As Integer
Dim NomFeuille As String, texte_SQL As String

NomFeuille = "Données"
Chemin = "C:Documents and SettingsDanielBureau"

'ne pas oublier de modifier le nom du fichier
Fichier = Chemin & "" & "aaaa_Source.xls"
...

Daniel


Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES;"""
.Open
End With

MichDenis a écrit :

Bonjour Samuel,

Dans ton fichier, modifie la ligne de code suivante en
adaptant bien sûr le chemin où tu as placé ton fichier source.

Ceci est simplement pour t'assurer que le chemin et le
nom du fichier est bon.

A )
REMPLACE :
Fichier = ThisWorkbook.Path & "" & "aaaa_Source.xls"

PAR
'---------------------------------- IF
DIR("\NomDuServeurcheminDuServeurNomDuFichierSource.xls")<>"" then
ficher = "\NomDuServeurcheminDuServeurNomDuFichierSource.xls"
Else
Msgbox "Chemin introuvable. Opération annulée."
exit sub
End If
'---------------------------------- B )
Lors de l'exécution de la procédure, si tu obtiens une erreur,
tu dois la noter et tu dois nous faire par de cette erreur...
difficile de deviner !

C )
Je n'ai pas de réseau pour effectuer des tests !


"samos" <faupin.samuel@neuf.fr> a écrit dans le message de groupe
de discussion : Ow6WCdX9JHA.1340@TK2MSFTNGP05.phx.gbl...
Daniel.C a écrit :

Merci Mich ca marche nickel.
Juste une question le fichier source peut-il être dans un autre
répertoire à condition de le modifié dans le prog VBA?

par contre je vais essayer de ramener les infos d'une colonne
supplémentaire du fichier source c'est compliqué ou pas ?

Bonjour.
Pour le chemin, pas de problème, Denis a spécifié le même pour
simplifier l'installation.
Pour le second point, non, pas plus que ce qui précède. Le mieux
serait que tu dises quelle colonne tu veux importer et ce que tu
comptes en faire.
Daniel

Dons je viens de faire un test j'ai décompressé le fichier de denis
directement sur le serveur et la ca marche par contre.
Lorsque je déplace le fichier à remplir sur mon bureau, là ca ne
fonctionne plus.

SAM

Bonojour,
ci joint l'imagge de l'erreur
http://www.cijoint.fr/cjlink.php?file=cj200906/cijr69upA8.jpg

Merci

J'ai intégrer et tes lignes de commande fonctionne.
Fichier source sur le serveur et celui utilisant la macro sur le
bureau nickel.
Par contre quelques soit la désignation il me renvoit toujours la même
ref et le même PRI.
Je par le du fichier aaaa_2.
Je vais essayer d'intégrer tes lignes de commande au fichier du début
aaaaa_1.

SAM

Donc j'ai remis les lignes de code sur le fichier aaaa_1 et tout
fonctionne mise a part la colonne pru qui n'est pas intégrer dedans.
Daniel,
Je vais essayer de tout recompiler avec le tout dernier fichier que tu
m' a envoyé.

samos a écrit :

samos a écrit :

Daniel.C a écrit :

Le code suivant fonctionne (fichier source sur le bureau) :

Sub Charger_La_Liste()
Dim Cn As ADODB.Connection, Rst As Recordset
Dim Fichier As String, Nb As Integer, A As Integer
Dim NomFeuille As String, texte_SQL As String

NomFeuille = "Données"
Chemin = "C:Documents and SettingsDanielBureau"

'ne pas oublier de modifier le nom du fichier
Fichier = Chemin & "" & "aaaa_Source.xls"
...

Daniel


Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES;"""
.Open
End With

MichDenis a écrit :

Bonjour Samuel,

Dans ton fichier, modifie la ligne de code suivante en
adaptant bien sûr le chemin où tu as placé ton fichier source.

Ceci est simplement pour t'assurer que le chemin et le
nom du fichier est bon.

A )
REMPLACE :
Fichier = ThisWorkbook.Path & "" & "aaaa_Source.xls"

PAR
'---------------------------------- IF
DIR("\NomDuServeurcheminDuServeurNomDuFichierSource.xls")<>"" then
ficher = "\NomDuServeurcheminDuServeurNomDuFichierSource.xls"
Else
Msgbox "Chemin introuvable. Opération annulée."
exit sub
End If
'---------------------------------- B )
Lors de l'exécution de la procédure, si tu obtiens une erreur,
tu dois la noter et tu dois nous faire par de cette erreur...
difficile de deviner !

C )
Je n'ai pas de réseau pour effectuer des tests !


"samos" <faupin.samuel@neuf.fr> a écrit dans le message de groupe
de discussion : Ow6WCdX9JHA.1340@TK2MSFTNGP05.phx.gbl...
Daniel.C a écrit :

Merci Mich ca marche nickel.
Juste une question le fichier source peut-il être dans un autre
répertoire à condition de le modifié dans le prog VBA?

par contre je vais essayer de ramener les infos d'une colonne
supplémentaire du fichier source c'est compliqué ou pas ?

Bonjour.
Pour le chemin, pas de problème, Denis a spécifié le même pour
simplifier l'installation.
Pour le second point, non, pas plus que ce qui précède. Le mieux
serait que tu dises quelle colonne tu veux importer et ce que tu
comptes en faire.
Daniel

Dons je viens de faire un test j'ai décompressé le fichier de denis
directement sur le serveur et la ca marche par contre.
Lorsque je déplace le fichier à remplir sur mon bureau, là ca ne
fonctionne plus.

SAM

Bonojour,
ci joint l'imagge de l'erreur
http://www.cijoint.fr/cjlink.php?file=cj200906/cijr69upA8.jpg

Merci

J'ai intégrer et tes lignes de commande fonctionne.
Fichier source sur le serveur et celui utilisant la macro sur le
bureau nickel.
Par contre quelques soit la désignation il me renvoit toujours la
même ref et le même PRI.
Je par le du fichier aaaa_2.
Je vais essayer d'intégrer tes lignes de commande au fichier du début
aaaaa_1.

SAM

Donc j'ai remis les lignes de code sur le fichier aaaa_1 et tout
fonctionne mise a part la colonne pru qui n'est pas intégrer dedans.
Daniel,
Je vais essayer de tout recompiler avec le tout dernier fichier que tu
m' a envoyé.

Merci daniel et denis,
Ci-joint le résultat final.
http://www.cijoint.fr/cjlink.php?file=cj200906/cijcvHIDIy.xls
Pour résumer le fichier source est sur le serveur et le fichier devis se
balade ou il veut.

Super

Le mercredi 24 Juin 2009 à 10:05 par samos :

Bonjour,
Voila je souhaite lié une liste de données avec un classeur
fermé sans
passer par du VBA (aucune connaissance)est-ce possible sur excel 2003.

Par avance merci.

Bonjour

Ce code m'intéresse énormément, selon tous ce que j'ai lu, il correspond parfaitement à mon problème.

Mon soucis c'est que tout les liens sont mort, pouvez-vous remettre un lien ?

Cordialement

Le mercredi 24 Juin 2009 à 10:05 par samos :

Bonjour,
Voila je souhaite lié une liste de données avec un classeur
fermé sans
passer par du VBA (aucune connaissance)est-ce possible sur excel 2003.

Par avance merci.

Bonjour

Ce code m'intéresse énormément, selon tous ce que j'ai lu, il correspond parfaitement à mon problème.

Mon soucis c'est que tout les liens sont mort, pouvez-vous remettre un lien ?

Cordialement

Le mercredi 24 Juin 2009 à 10:05 par samos :

Bonjour,
Voila je souhaite lié une liste de données avec un classeur
fermé sans
passer par du VBA (aucune connaissance)est-ce possible sur excel 2003.

Par avance merci.

Bonjour

Ce code m'intéresse énormément, selon tous ce que j'ai lu, il correspond parfaitement à mon problème.

Mon soucis c'est que tout les liens sont mort, pouvez-vous remettre un lien ?

Cordialement