Discussion :

[capi81]

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 :

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
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

[SfJ5Rpw8]

bonsoir ,

d'ou viens cette notion "d'Espace commun" sous Excel ?

[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 :

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

"W:\GESTION_VISA_CHEQUE\Fichier_Depart.xlsx"

[Nico Chg]

Bonjour,

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 :

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

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.

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

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

[Invité]

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 :

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
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 :

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

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 & "';"

[capi81]

Salut rdurupt

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

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.

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 :

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

 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 :

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

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 & "';"

[Invité]

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 :

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

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 :

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

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 :

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
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

[capi81]

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

Code :

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

.OPEN

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

Code :

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

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

[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

[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.

[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 !

[Invité]

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!

[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.

[Invité]

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 :

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

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 :

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

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!

[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) …

[capi81]

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

[SfJ5Rpw8]

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

[Invité]

Tu peux place un exemple de fichier Fichier_Depart.xlsx en bidonnant les données 1 ou 2 ligne suffise.

[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".
Merci de m'aider

rdurupt
Ci-joint les 2 fichiers pour votre appréciation

[SfJ5Rpw8]

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 ...!