Transférer des données d'un fichier vers un autre (Espace commun)

**capi81** · 28/08/2014, 14h37

bbil : ok c'est noté et j'en tiendrai compte

Marc :je n'avais pas vu ton feedback.

Que chaque utilisateur envoie son fichier dans un espace commun : aucun souci !

Ce n'est pas le fichier de chaque utilisateur qui sera envoyé dans l'espace commun mais les données issues de l'usf de l'utilisateur qui seront dans plusieurs cellules de la base (A1:AA) au fur et à mesure.
Merci de m'avoir orienté vers Access ou je m'y interesserai pour les projets à venir.

Invité · 28/08/2014, 15h10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub RequetTest()
Dim source As Object
Dim requete As Object
 
Dim Fichier As String, Feuille As String, strSQL As String
'Fichier = ActiveWorkbook.FullName 'chemin complet du fichier fermé
Fichier = "W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx" 'chemin complet du fichier fermé
Feuille = "PARAMETRE$B5:G48" 'Onglet où les données doivent être insérées
Set Cnx = CreateObject("ADODB.Connection")
 
With Cnx
 
' .Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & Fichier & "; ReadOnly=False;"
.Open
End With
'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
 
 
strSQL = "update  [" & Feuille & "] set EXPL='toto' where  [User Code]='DE2545';"
Cnx.Execute strSQL
Set requete = CreateObject("ADODB.recordset")
strSQL = "select * from [" & Feuille & "]  where  [User Code]='DE2545';"
requete.Open strSQL, Cnx
While requete.EOF = False
Debug.Print requete("User Code") & " | " & requete("EXPL") & " | " & requete("NOM EXPLOITANT") & " | " & requete("CONTACTS") & " | " & requete("ADRESSE MAIL EXPLOITANT") & " | " & requete("ADRESSE MAIL DA")
requete.movenext
Wend
Cnx.Close
Set Cnx = Nothing
End Sub

**SfJ5Rpw8** · 28/08/2014, 15h16

rdurupt ... as tu testé ton code ?

Invité · 28/08/2014, 15h19

Envoyé par bbil

rdurupt ... as tu testé ton code ?

oui avec car je n'avais que ce fichier!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fichier = ActiveWorkbook.FullName 'chemin complet du fichier fermé

en revanche le DELETE est interdit je regarde si il y a un moyen!!!

**SfJ5Rpw8** · 28/08/2014, 15h27

Envoyé par rdurupt

oui avec car je n'avais que ce fichier!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fichier = ActiveWorkbook.FullName 'chemin complet du fichier fermé

en revanche le DELETE est interdit je regarde si il y a un moyen!!!

et donc prendre en compte :

Envoyé par bbil

revoir ta chaîne de connexion :

http://silkyroad.developpez.com/VBA/...Fermes/#LIII-C

Invité · 28/08/2014, 15h31

ça marche invariablement dans les 2 version!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Cnx
 .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
' .Provider = "MSDASQL"
'.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
'"DBQ=" & Fichier & "; ReadOnly=False;"
'.Open
End With

**SfJ5Rpw8** · 28/08/2014, 15h34

tu as testé avec un xlsx comme dans ton code ..:

Envoyé par rdurupt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Fichier As String, Feuille As String, strSQL As String
'Fichier = ActiveWorkbook.FullName 'chemin complet du fichier fermé
Fichier = "W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx" 'chemin complet du fichier fermé

j'aurais cru que le message d'erreur sur .Open était du à cela ...

Invité · 28/08/2014, 15h35

avec xls,xlsx,xlsm en revanche son chemin dans son appli est W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx
et il ma envoyé un xlsm

**capi81** · 28/08/2014, 15h44

juste pour apporter quelques éclaircissements:

Fichier = "W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx" 'chemin complet du fichier fermé

Le chemin du fichier fermé est "W:\GESTION_VISA_CHEQUE\Fichier_Arrivé.xlsx.
C'est vers ce fichier que les données de l'usf fichier_Départ devront être copié et plus précisément à partir de la cellule A2 de la feuille "BASE_DE_DONNEES" et non sur la feuille "PARAMETRE".
Merci de revoir si possible

Invité · 28/08/2014, 15h56

je n'ai pas l'onglet BASE_DE_DONNEES dans le fichier que tu m'a données j'ai fait le teste en fonction de ce que j’avais!

il est important pour moi de tester avant de te donner le code!

**Marc-L** · 28/08/2014, 16h00

Envoyé par capi81

Ce n'est pas le fichier de chaque utilisateur qui sera envoyé dans l'espace commun mais les données issues de l'usf de l'utilisateur qui seront dans plusieurs cellules de la base (A1:AA) au fur et à mesure.

Vers les ennuis c'est aller !

Pas à coup sûr, forte probabilité … J'espère que la base est sauvegardée chaque nuit …

**capi81** · 28/08/2014, 16h27

Il y'a 2 fichiers que j'avais joint dans le post en question.
le premier est Fichier_Départ.xlsm et le second Fichier_Arrivé.xlsx (c'est ce fichier qui contient l'onglet "BADE_DE_DONNEES")

Invité · 28/08/2014, 16h29

ok pas fait gaffe

Invité · 28/08/2014, 16h46

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub RequetTest()
Dim source As Object
Dim requete As Object
 
Dim Fichier As String, Feuille As String, strSQL As String
Fichier = "W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx" 'chemin complet du fichier fermé
Feuille = "BASE_DE_DONNEES$" 'Onglet où les données doivent être insérées
Set Cnx = CreateObject("ADODB.Connection")
 
With Cnx
 .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
' .Provider = "MSDASQL"
'.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
'"DBQ=" & Fichier & "; ReadOnly=False;"
'.Open
End With
'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
 
strSQL = "insert into [" & Feuille & "] ([DATE INITIATION],[NUM CLIENT],[REVENU],[CUMUL ENGAGEMENT],[VISA DEMANDE],[AUTORISATION],[SOLDE AVANT VISA],[SOLDE APRES VISA],[SITUATION NETTE],[DELAI DE REGULARISATION],[COMMENTAIRE CC],[AVIS DGAE],[COMMENTAIRE DGAE],[AVIS RPR],[COMMENTAIRE RPR],[AVIS ANALYSTE],[COMMENTAIRE ANALYSTE],[AVIS DZ],[COMMENTAIRE DZ],[AVIS DR],[COMMENTAIRE DR],[AVIS RAR],[COMMENTAIRE RAR],[CODE INITIATEUR],[CODE VALIDEUR],[AGENCE],[DATE VALIDATION]) "
strSQL = strSQL & "Values ('DATE INITIATION','NUM CLIENT','REVENU','CUMUL ENGAGEMENT','VISA DEMANDE','AUTORISATION','SOLDE AVANT VISA','SOLDE APRES VISA','SITUATION NETTE','DELAI DE REGULARISATION','COMMENTAIRE CC','AVIS DGAE','COMMENTAIRE DGAE','AVIS RPR','COMMENTAIRE RPR','AVIS ANALYSTE','COMMENTAIRE ANALYSTE','AVIS DZ','COMMENTAIRE DZ','AVIS DR','COMMENTAIRE DR','AVIS RAR','COMMENTAIRE RAR','CODE INITIATEUR','CODE VALIDEUR','AGENCE','DATE VALIDATION');"
'strSQL = "update  [" & Feuille & "] set EXPL='toto' where  [User Code]='DE2545';"
Cnx.Execute strSQL
Set requete = CreateObject("ADODB.recordset")
strSQL = "select * from [" & Feuille & "]  where  [DATE INITIATION]='DATE INITIATION';"
requete.Open strSQL, Cnx
While requete.EOF = False
 
Debug.Print requete("DATE INITIATION") & " | " & requete("NUM CLIENT") & " | " & requete("CUMUL ENGAGEMENT")
requete.movenext
Wend
Cnx.Close
Set Cnx = Nothing
End Sub

**SfJ5Rpw8** · 28/08/2014, 17h04

Envoyé par rdurupt

Par défaut chez moi ça fonctionne

oui mais dans ce dernier code tu as changé la chaîne de connexion comme je te l'ai demandé plus haut !

Invité · 28/08/2014, 17h11

oui elle datait de ma jenesse il faut vivre avec son temp les deux marche mais je pense a mon delete a tester!

**SfJ5Rpw8** · 28/08/2014, 17h14

Envoyé par rdurupt

oui elle datait de ma jenesse il faut vivre avec son temp les deux marche mais je pense a mon delete a tester!

la première ne marche pas chez capi81 ... (ni chez moi d'ailleurs) ...

Invité · 28/08/2014, 17h34

Si la 2 fonctionne chez toi, tu avais doublement raison!

**capi81** · 28/08/2014, 17h40

Ca marche chez moi.
Il reste à l'adapter maintenant avec les données de mon usf.
Puisque mon usf comporte 6 textbox, j'ai essayé d'adapter votre code à ma compréhension.
voici mon adaptation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
strSQL = "insert into [" & Feuille & "] ([DATE INITIATION],[NUM CLIENT],[REVENU],[CUMUL ENGAGEMENT],[VISA DEMANDE],) "
        strSQL = strSQL & "Values ('textbox1.vaue','textbox2.value','textbox3.value','textbox4.value','textbox5.value','textbox6.value');"

J'ai testé mais résultat pas concluant. il y'a erreur ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part