VBA-Selection d'une TextBox et comboBox du classeur1 d'un autre classeur2

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:

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

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).

Si, il est ouvert le Classeur

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:

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

Toujours pas en fait :(

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

Citation:

Envoyé par ielharras

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/