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.
Merci d'avance pour vos conseils et solutions
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
Partager