Copie valeur Userform sur 2 dossiers différent

[gildas lechat]

Bonjour le forum,

Vous trouverez ci dessous un extrait de macro qui consite a copier des valeurs saisie dans un Userform à la fois sur un tableau ( Sheet "enregistrement") faisant partie du fichier où est enregistré la macro et sur la feuille ( Sheet " Imp020") faisant partie du fichier "Imp063.xls" auparavent ouvert.

Je n'arrive pas à préciser la copie des valeurs de l'userform dans la feuille "Imp020" faisant partie du fichier "Imp063.xls" auparavent ouvert.
( erreur en rouge sur la macro)
Pouvez vous m'aider?
Merci d'avance

Private Sub CommandButton1_Click()
LIG = Sheets("Enregistrement").UsedRange.Rows.Count + 1
With Sheets("Enregistrement")
.Cells(LIG, 1).Value = TextBox8.Value
.End With

ChDir "\\ML350\Qualite\Revue de premier article\Dossier RPA vierge"
Workbooks.Open Filename:= _
"\\ML350\Qualite\Revue de premier article\Dossier RPA vierge\Imp063.xls"

With Sheet.("Imp20")

.Cells(3, 10) = TextBox5.Text

End With

End Sub

 

[roro69]

Re : Copie valeur Userform sur 2 dossiers différent

Boujour
ici il faut faire référence au classeur:

With Sheet.("Imp20")

Comme ceci

with Workbooks("Imp063").Sheet.("Imp20")

Il vaudrait mieux paser par des variables
A++

 

[roro69]

Re : Copie valeur Userform sur 2 dossiers différent

RE
Avec variable comme ceci

Dim Sh1 as WorkSheet, Sh2 as WorkSheet
Set Sh1=ThisWorkBook.Sheets("Enregistrement")
With Sh1
.Cells(LIG, 1).Value = TextBox8.Value
.End With
ChDir "\\ML350\Qualite\Revue de premier article\Dossier RPA vierge"
Workbooks.Open Filename:= _
"\\ML350\Qualite\Revue de premier article\Dossier RPA vierge\Imp063.xls"
Set Sh2=Workbooks("Imp063").Sheets("Imp20")
With Sh2

.Cells(3, 10) = TextBox5.Text

End With

A++

 

[gildas lechat]

Re : Copie valeur Userform sur 2 dossiers différent

Bonjour,

Merci
Les deux solutions fontionne correctement

Juste une question : Pouquoi des variables?
@+
Gildas

 

[roro69]

Re : Copie valeur Userform sur 2 dossiers différent

RE
Les variable permettent d'optimiser ton code et résoudre plus facilement les problèmes.
Tu trouveras un excellent TUTO à cette adresse:
Utiliser les variables en VBA Excel
A++