Discussion :

[yzmalc]

Bonjour,

Messieurs, mesdames,

Je suis en stage et je dois améliorer un fichier Excel VBA et je n'arrive pas a écrire le code c'est pour cela je suis la aujourd'hui pour solliciter votre aide

Je vous explique :

1 - J'ai un Classeur Excel Format .xlsm et dans la première feuille j'ai un tableau rempli avec des données (10 lignes et 50 colonnes).
2 - J'ai un autre Classeur Excel lui avec plusieurs onglets et chaque feuille (10 en total) représente une maquette que je veux remplir automatiquement a partir du premier classeur 1.

ce que je veux automatiser c'est :

un code qui permet de remplir chaque maquette dans 2 comment ? il va aller récupérer par exemple les données dans la première ligne du tableau dans 1. Ensuite pour la deuxième ligne 2éme maquette...etc j'espère que j'étais clair.

Merci d'avance et de votre attention et surtout l'aide
Je vous souhaite tout le bonheur du monde

[anasecu]

Bonjour,

j'espère que j'étais clair.

Quand l'on tous les éléments présents c'est sans doute clair pour toi mais nous n'avons que tes explications.

Moi j'en conclue que tu remplis tes 10 "maquettes" avec tes 10 lignes
et donc en mettant les bonnes formules dans les maquettes ce ne devrait pas être sorcier.

Maintenant tu n'as rien dis de l'évolutivité de tes classeurs...

[Belga16]

Il y a plusieurs solutions dans cette situation (formules, powerQuery par exemple), mais puisque vous êtes contraint d'utiliser VBA, voici un exemple:

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
Sub CopieEntreClasseurs()
    'On suppose que le classeur source est ouvert et est actif
 
    Dim fichierSource, fichierDestination As Workbook
    Dim NomSource, NomDestination As String
 
    Application.ScreenUpdating = False
    'L'instruction ci-dessous fonctionne correctement si le classeur source est ouvert et est actif
    NomSource = ThisWorkbook.Name
 
    'vérifier si le fichier destination est ouvert
    For Each fichierDestination In Workbooks
        'Mettez le nom de votre fichier destination ci-dessous
        If fichierDestination.Name = "NomDeVotrefichierDestination.xlsx" Then
            Set fichierDestination = Workbooks("NomDeVotrefichierDestination.xlsx")
        Else
            'chemin à adapter
            Set fichierDestination = Workbooks.Open("C:\Users\OneDrive\NomDeVotrefichierDestination.xlsx")
        End If
    Next
    NomDestination = fichierDestination.Name
    'Adapter les coordonnés ci-dessous
    Workbooks(fichierSource).Worksheets("Sheet1").Range("A2:G10").Copy _
    Workbooks(NomDestination).Worksheets("Sheet1").Range("A2")
    Application.CutCopyMode = False
    fichierSource.Close SaveChanges:=False
    Workbooks(fichierSource).Worksheets("Sheet1").[A1].Select
 
    Application.ScreenUpdating = True
End Sub