Discussion :

[Dorel.D]

Bonsoir
je suis nouveau et je travail sur un projet dans lequel je dois enregistrer dans un fichier des information A qui comporte plusieurs feuilles et dans un autre classeur des informations B qui comporte aussi des plusieurs feuilles.
Les deux classeurs ont des feuilles qui s'ajoutent automatiquement que le mois change (quand on ouvre les fichiers)

Ma question est de savoir s'il serait possible d'utiliser un seul userform pour les deux classeurs.

SI oui quel est la formule


Merci de bien vouloir m'aider

[révèr]

Bonjour Dorel.D

Dans le cas où ton second classeur est ouvert lorsque tu vas piocher tes données, la marche à suivre est de...
1) Ouvrir le second classeur
2) Récupérer les informations dans ce classeur, comme tu le fais dans le classeur de travail. Sauf qu'au lieu de simplement écrire Sheets(1).Range("A1") il faudra écrire Workbooks("Second Classeur").Sheets(1).Range("A1").

Dans le cas où l'un des 2 classeurs doit être fermé...
https://silkyroad.developpez.com/VBA/ClasseursFermes/

[Dorel.D]

Bonjour désolé de la réponse
j'ai essayé le code mes deux classeurs étant ouvert. j'ai enregistré mais je ne sais pas où l'enregistrement est passé.
Voici mon 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 CommandButton1_Click()
If ComboBox1.Value = "" Then
    MsgBox " Veuillez rentrer le nom du client svp"
    Else
    If MsgBox("Confirmer-vous l'insertion", vbYesNo, "demande") = vbYes Then
 
    For I = 3 To ligne
x = Now
    Workbooks("TAF 1").Sheets(1).Range("A15") = ComboBox1.Text
 
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("A5") = TextBox2.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("B5") = TextBox4.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("C5") = TextBox6.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("D5") = TextBox3.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("E5") = TextBox12.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("F5") = TextBox7.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("G5") = TextBox10.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("H5") = TextBox11.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("I5") = TextBox8.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("J5") = TextBox9.Text
            Workbooks("TAF 1").Sheets(CLIENT24 - 2020).Range("J5") = TextBox13.Text

[révèr]

Les balises de code sont les bienvenues pour la compréhension de ce dernier

Où est la déclaration de I ? Où est la déclaration de Ligne ? Où est la déclaration de X ?

Utiliser la méthode "With" permet de gagner en lisibilité

Tu as par ailleurs oublié les guillemets dans toutes tes lignes avec "Sheets", chose que la méthode With t'aurai évitée vu que tu ne l'aurai écrite qu'une seule fois

Code :

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

1
2
3
4
5
 
With Workbooks("TAF 1").Sheets("CLIENT 24 - 2020")
  .Range("A1") = ...
  .Range("A2") = ...
End With

[Dorel.D]

Je suis entrain de vous perdre votre temps. de grace ne m'abandonnez pas
Voici ce que j'ai fais et toujours rien dans les cases de la feuille selectionné

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
Private Sub CommandButton1_Click()
With Workbooks("TAF 1").Sheets("CLIENT1 - 2020")
 
            .Range("A15") = ComboBox1.Text
 
            .Range("A5") = TextBox2.Text
            .Range("B5") = TextBox4.Text
            .Range("C5") = TextBox6.Text
            .Range("D5") = TextBox3.Text
            .Range("E5") = TextBox12.Text
            .Range("F5") = TextBox7.Text
            .Range("G5") = TextBox10.Text
            .Range("H5") = TextBox11.Text
            .Range("I5") = TextBox8.Text
            .Range("J5") = TextBox9.Text
            .Range("J5") = TextBox13.Text
End With
ComboBox1.Text = ""
TextBox2.Text = ""
TextBox6.Text = ""
TextBox3.Text = ""
TextBox12.Text = ""
TextBox7.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox13.Text = ""
TextBox4.Text = ""
MsgBox ("ENREGISTREMENT EFFECTUER")
End Sub

[révèr]

Les balises de code s'il te plaît !

Pour tester si tes TextBox contiennent quelque chose, incorpore un MsgBox(TextBox2.Text) juste après .Range("A5") - pour t'en assurer.

ComboBox1.Value au lieu de .Text