wolf2012
XLDnaute Junior
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
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