[Débutant] Copie données variable

Version imprimable

2 pièce(s) jointe(s)

Bonjour,
J'avais déjà fait un topic demandant de l'aide plus tôt,
Mais mes besoins on légèrement changé, je dois effectuer une macro qui à partir d'un fichier, importe des données d'un autre fichier Excel pour le remplir, il créera autant de fichiers que de fournisseur différents, dans le fichier cible.
Voila le fichier cible :

Pièce jointe 516881

et le fichier qui importera les données. :

Pièce jointe 516885

et voici le code de ma macro qui bloque à l'étape de la copie, pour la création de différents fichiers en fonction des différents fournisseur ça marche, donc le balayage des ligne du tableau doit aussi fonctionner c'est vraiment lors de la copie que ça bloque.
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 Sub céation() Dim docc As String Dim Source As String Dim destination As String NomVariable2 = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B3").Value NomVariable = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B2").Value NomVariable1 = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B3").Value chemin = "C:\Users\A339620\Desktop\Macro plomb" debut = 11 compt = 2 For Each Cell In Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B2", "B900000") NomVariable1 = Cell.Value If NomVariable <> NomVariable1 Then docc = chemin & "\Fournisseur" & NomVariable & ".xls" ThisWorkbook.SaveAs chemin & "\Fournisseur" & NomVariable & ".xls" Source = "C:\Users\A339620\Desktop\Maccro Excel\Draft_declaration_impact_plomb.xlsm" destination = chemin & "\Fournisseur" & NomVariable & ".xls" NomVariable = NomVariable1 debut = 11 Else ThisWorkbook.SaveAs chemin & "\Fournisseur" & NomVariable & ".xls" ThisWorkbook.Sheets("Listes de références").Cell(debut, B).Value = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Cell(compt, 2).Value debut = debut + 1 compt = compt + 1 End If Next End Sub
Mon code contient surement beaucoup de choses tiré par les cheveux, mais je débute sur le VBA, donc soyez indulgent, et si vous avez une solution, vous me sauvez la vie !!!

Je précise que le problème apparaît à la ligne 29 et lorsque je mets cette ligne de code la copie passe, mais bon ce ne sont pas le données que je veux :

Code:

ThisWorkbook.Sheets("Listes de références").Range("B11:F14").Value = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B2:E6").Value

Bonjour,

Je n'ai pas vraiment compris ce que vous essayez de faire, mais à la ligne 28, la variable 'B' n'est pas initialisée. Il faut sans doute simplement écrire '2' au lieu de 'B' (B=colonne 2):
Code:

1 2 3 ThisWorkbook.Sheets("Listes de références").Cell(debut, B).Value = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Cell(compt, 2).Value '--- remplacer B par 2, soit ThisWorkbook.Sheets("Listes de références").Cell(debut, 2).Value = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Cell(compt, 2).Value
Maintenant, le code est effectivement à nettoyer !

Bonne continuation.

13/11/2019, 15h17
MarcelG

Bonjour,

Une précédente discussion a été reportée sur ce sujet. Npn?
Pour ce qui me concerne, quelle est la difficulté par rapport au code proposé.

J'ai trouvé ma solution !
Le code tourne proprement !

bon je le laisse quand même on sait jamais si un jour y'en a un qui galère dans quelques années !
Coucou membres de 2024 :D

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
42
43
44
45
 
Sub céation()
Dim debut As Variant
Dim compt As Variant
Dim docc As String
Dim Source As String
Dim destination As String
NomVariable2 = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B3").Value 'synthese plomb est le fichier ou je recup les datas
NomVariable = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("A2").Value
NomVariable1 = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B3").Value
chemin = "C:\Users\A339620\Desktop\Macro plomb"  'mon chemin du dossier ou son mes fichiers
debut = 0
compt = 0
 
 
 
 
' -------------------------------------------------------------------------------------------------------------------
 
 
 
For Each Cell In Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B2", "B90000")
    NomVariable1 = Cell.Value
    If NomVariable = NomVariable1 Then
        ThisWorkbook.Sheets("Listes de références").Range("B11:F11").Offset(debut, 0).Value = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("F2:J2").Offset(compt, 0).Value
       debut = debut + 1
        compt = compt + 1
 
    Else
 
 
 
         ThisWorkbook.SaveAs chemin & "\Fournisseur" & NomVariable & ".xls"
         ThisWorkbook.Sheets("Listes de références").Range("B11:F90000").ClearContents
         ThisWorkbook.Sheets("Listes de références").Range("I6:I6").Value = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("E2:E2").Offset(compt, 0).Value
        ThisWorkbook.Sheets("Listes de références").Range("I7:I7").Value = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("B2:B2").Offset(compt, 0).Value
          ThisWorkbook.Sheets("Listes de références").Range("G6:G6").Value = Format(Now, "dd.m.yyyy")
         ThisWorkbook.Sheets("Listes de références").Range("B11:F11").Offset(0, 0).Value = Workbooks("Synthese_Plomb.xlsm").Sheets("Potentiels Plomb").Range("F2:J2").Offset(compt, 0).Value
        NomVariable = NomVariable1
        debut = 1
        compt = compt + 1
 
    End If
Next
End Sub