Discussion :

[peuxy]

Bonjour;
je suis en train fabriquer un fichier excel avec quelques macro (trouvées sur le forum, merci)
mais là je sèche

J'ai un dossier "client" qui comporte un fichier "rapport devis" et un dossier "Monsieur Maitre" qui comporte un fichier excel "devis client"

Dans le fichier "devis client" j'ai trois cellules "nom" "surface" "montant" que je retrouve aussi dans mon fichier "rapport devis"

Je souhaiterai créer un bouton qui copie la valeur des trois cellules de mon fichier "devis client"; vers les trois cellules de mon fichier "rapport devis"

Mais si je fais plusieurs "devis client" il faut qu'il copie ces valeurs dans la ligne en dessous des precedante (c'est là ou je sais pas si je suis clair)

Merci pour votre aide.
Fred

[Invité]

Mais si je fais plusieurs "devis client", il faut qu'il copie ces valeurs dans la ligne en dessous des précédentes.

Bonjour,

Une solution possible avec ce code à adapter :

Nb : Dans cet exemple, l'onglet devis contient les zones nommées : Nom, Surface et Montant.

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
 
Sub MiseAJourRapportDevis()
 
Dim OngletSource As Worksheet
 
Dim FichierCible As Workbook
Dim OngletCible As Worksheet
Dim DerniereLigneCible As Long
Dim RepertoireCible As String
 
    Set OngletSource = ActiveWorkbook.Sheets("Devis")  ' A adapter
 
    RepertoireCible = ActiveWorkbook.Path & "\"  ' Chemin à adapter
    Workbooks.Open Filename:=RepertoireCible & "Fichier exemple 2.xlsx" ' Nom du fichier à adapter
    Set FichierCible = ActiveWorkbook
 
    With FichierCible
         Set OngletCible = .Sheets("Liste des devis")  ' A adapter
         With OngletCible
              DerniereLigneCible = .Cells(.Rows.Count, 1).End(xlUp).Row         ' A adapter si la première colonne est vide
              .Cells(DerniereLigneCible + 1, 1) = OngletSource.Range("Nom")     ' Numéros de colonne à adapter
              .Cells(DerniereLigneCible + 1, 2) = Format(OngletSource.Range("Surface"), "#,##0")
              .Cells(DerniereLigneCible + 1, 3) = Format(OngletSource.Range("Montant"), "#,##0.00 €")
         End With
         .Close SaveChanges:=True
    End With
 
    Set OngletCible = Nothing
    Set FichierCible = Nothing
    Set OngletSource = Nothing
 
End Sub

Cordialement.

[peuxy]

Merci pour la reponse je test et reviens vous dire. Encore merci.