Classeur sous un réseau local

[wolf2012]

Bonjour le forum
il y a six (06) mois, on a échangé des messages entre moi et paritec pour un problème que j'ai posé.
il s’agissait de trouver une solution qui se résume comme suit
Transférer les données saisies via le formulaire "UserForm1" classeur wolf 2012 V3 dans le classue BD fermé et dans le même dossier.
la solution proposée la solution suivante
__________________________________________________ ____________________________________
Dim wbks As Workbook, wbkc As Workbook, adr$, chemin$, fin&
Dim itm As Byte
Dim Str_Entretien As String
Application.ScreenUpdating = False
Str_Entretien = ""
'If T1 <> "" Then
Set wbks = ThisWorkbook
adr = ThisWorkbook.Path & "\"
chemin = "Base de Données.xlsm"
Set wbkc = Workbooks.Open(adr & chemin)
fin = wbkc.Sheets("BD1").Range("A" & Rows.Count).End(xlUp).Row + 1
With wbkc.Sheets("BD1")
.Cells(fin, 1) = TextBox1: .Cells(fin, 2) = TextBox2: .Cells(fin, 3) = TextBox3: .Cells(fin, 4) = ComboBox1
.Cells(fin, 5) = TextBox4: .Cells(fin, 6) = Nat_incident:
___________________________________________________________________________________________

est il possible de transférer les données dans un classeur dans le bureau d'un PC sous réseau; et comment?
autrement dit un chemin comme ça "\\odr1\desktop\BD.xlsm"
merci

 

[wolf2012]

Re : Classeur sous un réseau local

BONJOUR LE FORUM

SVP un coup de main

MERCI

 

[Dranreb]

Re : Classeur sous un réseau local

Bonjour.
Comme déjà dit, il vaudrait mieux que ce soit le classeur destinataire qui se charge de récupérer les informations dans un dossier de communication où les classeurs émetteurs envoient de petits fichiers textes.
Je ne peux malheureusement pas vous aider pour le positionnement sur un dossier courant dont le chemin commence par "\\", n'en ayant pas sous la main. Voir si ChDir aurait cet effet dans ce cas. Faire des essais de MsgBox CurDir après utilisations de ChDrive et ChDir
À essayer aussi :

Private Declare Function SetCurrentDirectory Lib "kernel32.dll" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

 

[wolf2012]

Re : Classeur sous un réseau local

Bonjour;

j'avoue que je ne comprend pas trop votre proposition; merci comme même.

par contre, je vais essayer une solution c'est de placer l'application dans le serveur (c.a.d l’inverse), et par un raccourci j’accède à cette application (reste à ce que les macro dans application fonctionnent).

MERCI

 

[Dranreb]

Re : Classeur sous un réseau local

Qu'est-ce que vous ne comprenez pas dans ma proposition ?

 

[wolf2012]

Re : Classeur sous un réseau local

Re bonjour

merci pour l’intérêt que vous portez à ma requête.
vous dites que le classeur destinataire qui se charge de récupérer les informations dans un dossier de communication où les classeurs émetteurs envoient de petits fichiers textes, comment?

MERCI

 

[Dranreb]

Re : Classeur sous un réseau local

Par une séquence style :

ChDir "\\servername\sharename" ' À adapter et tester: je ne suis pas sûr que ça marche
' comme un ChDrive, même si une autre discussion ainsi qu'une documentation sur
' l'API SetCurrentDirectory le laisse entrevoir. Je n'ai pas de chemin réseau, moi.
ChDir "DossierDeCommunication" ' À adapter
Open Format(Now, "yymmddhhmmss") & ".txt" For Output Access Write As #1
' ou bien tout simplement :
Open "\\servername\sharename\DossierDeCommunication\" _
   & Format(Now, "yymmddhhmmss") & ".txt" For Output Access Write As #1
Print #1, Info1
Print #1, Info2
Print #1, Info3
'etc.
Close #1

Le plus simple serait qu'une lettre de lecteur soit affectée au chemin réseau.

Font chier ces adresses réseaux !…

 

[wolf2012]

Re : Classeur sous un réseau local

Re bonjour;
merci beaucoup je vais essayer demain dans mon bureau
bonne nuit et merci