Discussion :

[ielharras]

Bonjours à tous,

J'aimerai savoir svp comment je peux faire pour copier les infos qui sont dans des TextBox et des ComboBox du classeur1 vers un tableau qui dans un autre classeur2, j'ai eesayé un code mais ca marche pas car je suis que débutant dans le VBA .

Merci d'avance d'avance d'avoir m'aider.

Voila le 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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub CommandButton1_Click()
    Dim derligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
derligne = Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Range("A300").End(xlUp).Row + 1
    sheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 1) = ComboBox_Projet.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 2) = ComboBox_Locaux.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 3) = ComboBox_PNL.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 4) = ComboBox_Localisation.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 5) = ComboBox_N4PSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 6) = ComboBox_N5PSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 7) = ComboBox_Pôle_Altran.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 8) = TextBox_AceesPSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 9) = ComboBox_PrésencesursitePSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 10) = TextBox_freqdepresencepsa.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 11) = TextBox_interfacePSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 12) = TextBox_RPI.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 13) = TextBox_VPN.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 14) = TextBox_EEnonresident.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 15) = TextBox_jourdepresence.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 16) = TextBox_EEsurLeSite.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 17) = TextBox_NOM.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 18) = TextBox_Prenom.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 19) = TextBox_identifiant.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 20) = TextBox_CDC.Value
    Worksheets("Liste_csts").Cells(derligne, 21) = TextBox_cOFOR.Value
    Worksheets("Liste_csts").Cells(derligne, 22) = DTPicker1.Value
    Worksheets("Liste_csts").Cells(derligne, 23) = TextBox_SocieteRg.Value
    Worksheets("Liste_csts").Cells(derligne, 24) = TextBox_ArretAccesPSA.Value
    Worksheets("Liste_csts").Cells(derligne, 25) = ComboBox_AccesEE.Value
    Worksheets("Liste_csts").Cells(derligne, 26) = ComboBox_compteBDConso.Value
    Worksheets("Liste_csts").Cells(derligne, 27) = ComboBox_CMJ.Value
    Worksheets("Liste_csts").Cells(derligne, 28) = ComboBox_OM.Value
    Worksheets("Liste_csts").Cells(derligne, 29) = ComboBox_roleTCD.Value
    Worksheets("Liste_csts").Cells(derligne, 30) = TextBox_CJM.Value
    Worksheets("Liste_csts").Cells(derligne, 31) = TextBox_Trigramme.Value
    Worksheets("Liste_csts").Cells(derligne, 32) = ComboBox_profilactif.Value
    Worksheets("Liste_csts").Cells(derligne, 33) = TextBox_Commentaire.Value
    Worksheets("Liste_csts").Cells(derligne, 34) = TextBox_useerman.Value
    Worksheets("Liste_csts").Cells(derligne, 35) = TextBox_donneesQualité.Value
     End If
End Sub

[parmi]

Bonjour,

Je pense que tu essaies de copier dans un classeur fermé.
Essaie de l'ouvrir en premier (et donne-lui un nom de préférence).

[ielharras]

Si, il est ouvert le Classeur

[parmi]

Le nom de la feuille n'est pas spécifié dans tes lignes qui réfèrent au classeur et tu utilises Worksheets pour le classeur plutôt que Workbooks

Essaie comme ceci
Déclare 2 objets Workbook et Worksheet et utilise-les plutôt que de répéter de longues séries de String

Code :

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

1
2
3
4
5
6
7
Dim Wb as workbook
Dim Sh as worksheet
 
set Wb = Workbooks("MCSI_Liste_consultants.xlsm")
set Sh = Wb.Sheets("NomDeLaFeuile")  'le nom n'a pas été spécifié
Sh.Cells(derligne, 2) = ComboBox_Locaux.Value
...

Pour le classeur d'où part la macro, tu peux utiliser ThisWorkbook

[ielharras]

Toujours pas en fait

en fait moi je veux maintenant juste un macro qu'il va dans un autre classeur mais pas l'ouvrir

[jeanmidudu]

macro qu'il va dans un autre classeur mais pas l'ouvrir

A moins d'établir une connexion adodb (tuto ci-dessous), tu devras ouvrir ton classeur pour faire du traitement. Au pire tu l'ouvres en invisible par vba mais il faut l'ouvrir quand même. Tu peux également le fermer immédiatement après avoir fait le traitement.

Voir :

http://silkyroad.developpez.com/VBA/ClasseursFermes/