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

Version imprimable

Voir 40 message(s) de cette discussion en une page

Salut le forum

Je souhaite connecter un fichier à un autre qui se trouve dans un espace commun (OPEN_SPACE).
Le fichier qui se trouve dans cet espace est toujours non ouvert.
Le premier fichier qui me permettra de transférer les données s’appellera "Fichier_Depart" (ce fichier se trouvera dans le poste de chaque utilisateur. Il faut noter qu'il y aura beaucoup d'utilisateurs (50)
Le deuxième qui permettra de stocker les informations issues de Fichier_Depart s'intitulera "Fichier_Arrivés"
Les données traitées par chaque utilisateur à partir de Fichier_Depart devront être transféré dans Fichier_Arrivés (qui se trouve dans l'espace commun).
J'aimerai savoir si cela comportera des risques?
Autrement dit, le faite que chaque utilisateurs après avoir validés ces données à transférer dans l'espace commun ne causera pas de problèmes.
Tout en sachant que plusieurs utilisateurs peuvent avoir valider au même moment.
Je profite vous soumettre un code que j'ai essayé de réaliser pour le transfère des données.
Je constate que y'a erreur lorsque j'exécute le code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub CB_Modifier_Click() Dim C As Range Workbooks.Open "W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx" With Sheets("BASE_DE_DONNEES") If Application.CountIf(.Range("User_Code"), Me.Code_Utilisateur.Value) > 0 Then Set C = .Range("User_Code").Find(Me.Code_Utilisateur.Value) Else Set C = .Range("User_Code").End(xlDown).Offset(1) C.Value = Me.Code_Utilisateur.Value ' Code Utilisateur End If C.Offset(0, 1) = Me.TextBox2 ' Code Exploitant C.Offset(0, 2) = Me.TextBox3 ' Nom & Prenom C.Offset(0, 3) = Me.TextBox4 ' N° Téléphone C.Offset(0, 4) = Me.TextBox5 ' Adresse Mail C.Offset(0, 5) = Me.TextBox6 ' Adresse Mail D.A End With ActiveWorkbook.Save ActiveWindow.Close Unload Me End Sub
Merci d'avance pour vos conseils et solutions

27/08/2014, 19h22
SfJ5Rpw8

bonsoir ,

d'ou viens cette notion "d'Espace commun" sous Excel ?
27/08/2014, 19h37
capi81

Je voulais tout simplement dire que Fichier_Arrivés se trouve dans un serveur de dossier (donc accessible par tous les utilisateur). Voici son chemin d'accès :

Code:

"W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx"
28/08/2014, 08h18
Nico Chg

Bonjour,

Citation:

Envoyé par capi81

J'aimerai savoir si cela comportera des risques?
Autrement dit, le faite que chaque utilisateurs après avoir validés ces données à transférer dans l'espace commun ne causera pas de problèmes.

Qu'entends-tu par risque ? Ou par problème ?
A moins que deux Utilisateurs utilise le programme à la même seconde, tu devrais avoir le temps d'ouvrir ton classeur tier, écrire dedans, et le fermer en sauvegardant.
D'ailleurs utilise plutôt :

Code:

Workbook.close True

Le premier paramètre de Workbook.close est SAveChange, si tu le met à "True" ça te permet de fermer et sauvegarder le classeur en même temps.

Citation:

Envoyé par capi81

Je constate que y'a erreur lorsque j'exécute le code.

Ou se trouve les erreurs ? sur quelles lignes/quelles variables ?

Bonjour,

tu peux utiliser ton classeur Excel comme une base de données et faire un traitement avec ADO.
ça fonctionne même si le fichier est ouvert par un utilisateur c'est immédiat et tous les utilisateur peuvent travaillé en même temps!

Code:

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
Sub exportDonneeDansCelluleClasseurFerme()
Dim source As Object
Dim requete As Object
 
Dim Fichier As String, Feuille As String, strSQL As String
Fichier = "C:\Users\RDurupt\Desktop\Condence.xls" 'chemin complet du fichier fermé
Feuille = "Feuil2" 'Onglet où les données doivent être insérées
Dim nom As String, prenom As String, age As Integer
nom = "Titi"
prenom = "Toto"
age = 220
 
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 = "INSERT INTO [" & Feuille & "$] (nom, prenom, age) VALUES ( '" & nom & "', '" & prenom & "', " & age & ")" ' (nom, prenom, age)  si le nom des entête sont bien ça dans Excel!
 
Cnx.Execute strSQL
strSQL = "update  [" & Feuille & "$] set nom='" & nom & "', prenom='" & prenom & "', age=150 where  nom='" & nom & "';"
Cnx.Execute strSQL
Cnx.Close
Set Cnx = Nothing
End Sub

Code:

1
2
strSQL = "update  [" & Feuille & "$] set TextBox2='" & Me.TextBox2 & "', TextBox3='" & Me.TextBox3 & "', TextBox4='" & Me.TextBox4 &  _ 
"', TextBox5='" & Me.TextBox5 & "',TextBox6='" & Me.TextBox6 & "' where  Code_Utilisateur='" & Me.Code_Utilisateur.Value & "';"

Salut rdurupt

Merci pour ta solution qui m'intéresse beaucoup.

Citation:

Qu'entends-tu par risque ? Ou par problème ?

J'entend par risque ou problème un dysfonctionnement éventuel qui pourrait subvenir du faite que plusieurs personnes utilisent le fichier et avec possibilité de validation simultanées et que cela ne perturbe le collage des données dans la base.
Mais je vois que votre solution prend en compte cette préoccupation;ce qui me rassure.

Citation:

Ou se trouve les erreurs ? sur quelles lignes/quelles variables ?

Voici le message d'erreur que je reçois :http://cjoint.com/?DHCkjbuF1CN
Ensuite la ligne 6 est colorée en jaune comme pour signaler l'erreur à ce niveau :

Code:

If Application.CountIf(.Range("User_Code"), Me.Code_Utilisateur.Value) > 0 Then

Comme votre solution n'a rien n'a voir avec mon code, je suggère qu'on se concentre sur le votre et si votre temps vous permet, vous pourrez apprécier l'erreur de mon code.
A quoi sert ce code et ou dois-je le loger?
Code:

1 2 strSQL = "update [" & Feuille & "$] set TextBox2='" & Me.TextBox2 & "', TextBox3='" & Me.TextBox3 & "', TextBox4='" & Me.TextBox4 & _ "', TextBox5='" & Me.TextBox5 & "',TextBox6='" & Me.TextBox6 & "' where Code_Utilisateur='" & Me.Code_Utilisateur.Value & "';"

Citation:

Envoyé par capi81

Salut rdurupt

Merci pour ta solution qui m'intéresse beaucoup.

Comme votre solution n'a rien n'a voir avec mon code, je suggère qu'on se concentre sur le votre et si votre temps vous permet, vous pourrez apprécier l'erreur de mon code.
A quoi sert ce code et ou dois-je le loger?

Code:

1
2
strSQL = "update  [" & Feuille & "$] set TextBox2='" & Me.TextBox2 & "', TextBox3='" & Me.TextBox3 & "', TextBox4='" & Me.TextBox4 &  _ 
"', TextBox5='" & Me.TextBox5 & "',TextBox6='" & Me.TextBox6 & "' where  Code_Utilisateur='" & Me.Code_Utilisateur.Value & "';"

dans ta solution, tu ouvre un fichier XlS , tu recherche un CodeUseur puis tu modifi les données!

Code:

1
2
3
4
5
6
7
 Set C = .Range("User_Code").Find(Me.Code_Utilisateur.Value)
 
C.Offset(0, 1) = Me.TextBox2 ' Code Exploitant        
C.Offset(0, 2) = Me.TextBox3 ' Nom & Prenom        
C.Offset(0, 3) = Me.TextBox4 ' N° Téléphone
C.Offset(0, 4) = Me.TextBox5 ' Adresse Mail
C.Offset(0, 5) = Me.TextBox6 ' Adresse Mail D.A

ma solution ce connecte au fichier xls

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Fichier As String, Feuille As String, strSQL As String,Cnx as Object
Fichier = "W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx" 'chemin complet du fichier fermé
Set Cnx = CreateObject("ADODB.Connection") 'Création d' objet Connection
'configuration du DRIVER et ouverture de la connection
With Cnx
 ' .Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & Fichier & "; ReadOnly=False;"
.Open
End With
 
'création de la requête de mis à jour
Feuille ="BASE_DE_DONNEES"
strSQL = "update  [" & Feuille & "$] set TextBox2='" & Me.TextBox2 & "', TextBox3='" & Me.TextBox3 & "', TextBox4='" & Me.TextBox4 &  _ 
"', TextBox5='" & Me.TextBox5 & "',TextBox6='" & Me.TextBox6 & _ 
 "' where  Code_Utilisateur='" & Me.Code_Utilisateur.Value & "';" 'ça fait comme ton  Set C = .Range("User_Code").Find(Me.Code_Utilisateur.Value)
'et enfin on exécute la requête
Cnx.Execute strSQL
Cnx.Close 'on referme la connection

Mes observations issues du test:
il y'a erreur au niveau de la ligne 14 (

Code:

.OPEN

Aussi dans cette partie du code il signale erreur de compilation (membre de méthode ou de données introuvable):
Code:

1 2 3 4 strSQL = "update [" & Feuille & "$] set TextBox2='" & Me.TextBox2 & "', TextBox3='" & Me.TextBox3 & "', TextBox4='" & Me.TextBox4 & _ "', TextBox5='" & Me.TextBox5 & "',TextBox6='" & Me.TextBox6 & _ "' where Code_Utilisateur='" & Me.Code_Utilisateur.Value & "';" 'ça fait comme ton Set C = .Range("User_Code").Find(Me.Code_Utilisateur.Value) 'et enfin on exécute la requête
Merci

28/08/2014, 11h42
Invité

pour Open je ne voie pas pour l’instant mais que dit le message d'erreur!
pour TextBox2 j'ai mis ça parce-que- je ne connais pas les entête de colonnes; il faut utiliser le texte dans la cellule a1,b1,c1... qui doivent représenter tes champs
28/08/2014, 12h39
capi81

Ci-dessous les champs de mes entêtes (A1:AA1).

1.DATE INITIATION 2.NUM CLIENT 3.REVENU 4.CUMUL ENGAGEMENT 5.VISA DEMANDE 6.AUTORISATION 7.SOLDE AVANT 8.VISA 9.SOLDE APRES VISA 10.SITUATION NETTE 11.DELAI DE REGULARISATION 12.COMMENTAIRE CC 13.AVIS DGAE 14.COMMENTAIRE DGAE 15.AVIS RPR 16.COMMENTAIRE RPR 17.AVIS ANALYSTE 18.COMMENTAIRE ANALYSTE 19.AVIS DZ 20.COMMENTAIRE DZ 21.AVIS DR 22.COMMENTAIRE DR 23.AVIS RAR 24.COMMENTAIRE RAR 25.CODE INITIATEUR 26.CODE VALIDEUR 27.AGENCE 28.DATE VALIDATION

Il faut dire que j'aurai au moins 6 usf qui permettront d'alimenter la base.
Il y'aura aussi 6 niveaux d'utilisateurs:
- il ceux qui seront chargés d'initier la demande de validation via l'usf1
- il y'a ceux qui seront chargés de valider les demandes initiées par les initiateurs via l'usf2
- il y'aura ceux là qui pourront consulter la base via l'usf3
- il y'aura également un usf qui permettra de gérer l'ajout, modification, ou suppression d'un utilisateur
etc
Hors mis l'usf1, les autres usf devront se nourrir des informations existant dans la base.
Exemple:lorsqu'un valideur active son usf dédiée au validation, s'il renseigne l'identifiant du client (numero de compte) les informations de ce client existant dans la base devront s'afficher dans les textbox et combobox de son usf afin qu'il puisse les apprécier et donner son avis dans les autres controls réservés à cet effet.
Donc il yaura à mon avis 2 points à gérer:
1:trouver un code qui permettra d'alimenter la base (ce que nous sommes déjà entrain de faire)
2:pouvoir afficher les informations contenues dans la base de donnée dans les controls de l'usf correspondants.
Voici un peu mon idée.
Merci d'avance pour les conseils et solutions éventuelles que vous m'apporterez.
28/08/2014, 12h48
Marc-L

Bonjour, bonjour !

Au lieu de tenter de mettre en place une énième usine à gaz quasiment vouée à l'échec vu le contexte,
il serait temps d'envisager une solution via l'application Access …

_________________________________________________________________________________________________
Qui avale une noix de coco a une totale confiance en son a..s !
28/08/2014, 12h58
Invité

Bonjour Marc

ravis d'entendre la voie de la sagesse.
en plus ACCESS dispose du générateur de requête graphique.

enfin je vais finir mes explication puisque je me suis embringué là dedans mais tu as raison!
28/08/2014, 13h04
capi81

Merci Marc L. pour votre intervention.
je m'y connais pas grand chose en accès pour bâtir mon projet c'est à dire poser les bases et pouvoir demander de l'aide dans le forum.
Je sais que mon idée est réalisable.
Peut être que les explications n'ont pas été à votre attente.
Si le transfère des données dans ma base est possible, je sais que je pourrai arriver à mes fin.
J'ai tester la faisabilité sur un même fichier ou le collage se faisait sur une autre feuille et ca fonctionne bien.
En lieu et place de la feuille du même classeur, j'ai souhaité que ce soit une feuille d'un autre classeur qui se trouve dans un autre emplacement.

j'ai mis des champ de ton classeur un peut au hasard! c'est juste pour te donner une idée! il faudra les remplacer par les bons!

Code:

1
2
strSQL = "update  [" & Feuille & "$] set [DATE]='" & Me.TextBox2 & "', [INITIATION]='" & Me.TextBox3 & "', [NUM CLIENT]='" & Me.TextBox4 & _
"',[REVENU]='" & Me.TextBox5 & "',[CUMUL]='" & Me.TextBox6 & "'  where [CODE INITIATEUR] ='" & Me.Code_Utilisateur.Value & "';"

en ce qui concerne la lecteur des champ toujours au hasard!

Code:

1
2
3
4
5
6
7
8
9
10
strSQL = "select  [" & Feuille & "$]  frm.[DATE],frm.[INITIATION,frm.[NUM CLIENT],frm.[REVENU],frm.[CUMUL] where frm.[CODE INITIATEUR] ='" & Me.Code_Utilisateur.Value & "' as frm;"
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, Cnx
If rs.EOF = False Then
    Me.TextBox2 = rs("DATE")
    Me.TextBox3 = rs("INITIATION")
    Me.TextBox4 = rs("NUM CLIENT")
    Me.TextBox5 = rs("REVENU")
    Me.TextBox6 = rs("CUMUL")
End If

mais avant tous ça il faut que la connexion fonctionne donc voir le problème du Open!

28/08/2014, 13h24
Marc-L

Capi81, ce n'est pas un problème d'idée (oui elle serait réalisable sous conditions)
mais bien un problème de contexte (partage multi-utilisateurs) et d'environnement (réseau).
Plus d'un y ont laissé des plumes, Excel n'est pas vraiment prévu pour cela …

Que chaque utilisateur envoie son fichier dans un espace commun : aucun souci !
Mais la mise à jour d'une base Excel devrait se faire en local
avant de la mettre à disposition des utilisateurs (copie sur réseau) …
28/08/2014, 13h34
capi81

Je viens de tester et c'est toujours la même erreur (.OPEN)
Ci-joint le message d'erreur : http://cjoint.com/?DHCnGOLdcqJ
28/08/2014, 13h47
SfJ5Rpw8

Citation:

Envoyé par capi81

Je viens de tester et c'est toujours la même erreur (.OPEN)
Ci-joint le message d'erreur : http://cjoint.com/?DHCnGOLdcqJ

as tu lu le message ?

si oui reporte le ici ... (pas avec une image temporaire...)

revoir ta chaîne de connexion :

http://silkyroad.developpez.com/VBA/...Fermes/#LIII-C
28/08/2014, 13h48
Invité

Tu peux place un exemple de fichier Fichier_Depart.xlsx en bidonnant les données 1 ou 2 ligne suffise.
28/08/2014, 14h17
capi81

2 pièce(s) jointe(s)

bbil je n'arrive pas à insérer l'image.
En réalité je sais pas comment faire après avoir cliqué sur "Insérer une image".
Merci de m'aider

rdurupt
Ci-joint les 2 fichiers pour votre appréciation
28/08/2014, 14h23
SfJ5Rpw8

Citation:

Envoyé par capi81

bbil je n'arrive pas à insérer l'image.
En réalité je sais pas comment faire après avoir cliqué sur "Insérer une image".
...

Je ne demande pas d'insére l'image mais de recopier tout simplement le message ... ainsi c'est du texte qui peu être cherché par un autre utilisateur du forum qui aurait le même message d'erreur que toi ...!

Voir 40 message(s) de cette discussion en une page