Recopie avec cumul

Le 26/09/2016 à 06:57

Bonjour à tous,

Je désire recopier des cellules d'un fichier vers un autre fichier en cumulant les montants dans les cellules correspondantes.

Exp : j'ai un fichier "'Classeur1" et "Classeur 2" que je voudrai faire le cumul dans le "'Classeur1" de la cellule "A" qui a comme montant 1 et le "Classeur 2" a comme montant "5", je voudrai une méthode pour cumuler la cellule "A du "'Classeur1" avec le motant du "classeur2" de la cellule "A1" ce qui me donnerai pour l'exemple pris "6".

Avec mes remerciements anticipés.

Amicalement

Noel

9classeur1.xls (19.50 Ko)
11classeur2.xls (17.00 Ko)
Le 26/09/2016 à 08:44

Bonjour

Un essai à tester. Te convient-il ?

Bye !

8classeur1.zip (21.39 Ko)
7classeur2.zip (15.16 Ko)
Le 26/09/2016 à 08:47

Bonjour,

Vous ne précisez pas où doit s'afficher le résultat. Dans un troisième classeur ? Dans une cellule d'un des deux classeurs, autre que A1 bien sur.

Le 26/09/2016 à 09:08

Bonjour,

J'ai eu fait un fichier qui ressemble un peu à ce que tu cherches à faire en insérant des liens hyper texte.

Mais cela implique d'avoir un Fichier_de_cumul et d'enregistrer tes fichiers dans un répertoire fixe.

Dans le Fichier_de_cumul :

Création d'une feuille de cumul qui additionne les données

Puis création d'une feuille de reporting par classeur (pour ton exemple deux feuilles), ces feuilles ont juste pour utilité de reporter les données mises à jour.

Les feuilles de reporting ont les liens en fonction de leur emplacements sur le PC :

='C:\Users\PC\Documents\[Classeur1.xls]Feuil1!A1

Pas besoin de tout saisir, il faut juste ouvrir les deux classeurs : sur le fichier de cumul on tape ' = ' et ensuite on clique sur la cellule voulue du fichier source (dans ton exemple le classeur2)

La feuille de cumul est une simple addition des feuilles 1 & 2

=Feuil1!A1+Feuil2!A1

C'est assez simple mais après il ne faut plus toucher les noms des classeurs, les noms des feuilles et leur emplacement...

Après si tu n'a que deux feuilles à additionner mieux vaut passer directement par l'addition de deux liens hypertextes :

='C:\Users\PC\Documents\[Classeur1.xls]Feuil1!A1+'C:\Users\PC\Documents\[Classeur2.xls]Feuil1!A1

Et si tu ne veux pas créer un fichier cumul ni de feuilles supplémentaire : il faut dans le classeur1 sur la cellule ou tu veux afficher le résultat saisir =A1+'C:\Users\PC\Documents\[Classeur2.xls]Feuil1!A1

Bon je sais que cela ne répond pas parfaitement à ta question, mais si cela peux rendre service...

Le 26/09/2016 à 09:17

Bonjour à tous,

Ma contribution avec le calcul sur la colonne A du classeur1 (classeur2 fermé)

(Mettre dans la procèdure le chemin ou se trouve le classeur2

Option Explicit
Sub Test()

Dim Repertoire As String, Fichier As String
Dim WB As Workbook
Dim ws As Worksheet
Dim i As Integer
Dim Dossier As Object
Dim j As Integer
Dim DernLigne As Long
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Sheets("Feuil1").Activate
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
        Set ws = ThisWorkbook.Worksheets("Feuil1")
        Repertoire = "C:\Users\Michel\Desktop\Excel Forum\" 'définit le répertoire de recherche de classeur2
        Fichier = Dir(Repertoire & "Classeur2.xls") 'spécifie la recherche pour le fichiers .xlsx
        Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Repertoire)
            If ThisWorkbook.Name <> Fichier Then 'sauf sur ce fichier si dans même répertoire
            Set WB = Workbooks.Open(Repertoire & Fichier) 'ouvre chaque classeur
            i = i + 1
                For i = 1 To DernLigne
                    If WB.Worksheets("Feuil1").Range("a1") = "" Then
                        WB.Close False
                        Fichier = Dir
                        Else
                        ws.Cells(i, 1) = ws.Cells(i, 1) + WB.Worksheets("feuil1").Cells(i, 1)
                    End If
                Next i
            Application.Calculation = xlCalculationAutomatic
            Range("A1").Select
            End If
    WB.Close False
End Sub
Le 26/09/2016 à 09:33

Re,

Merci à vous.

Je vais faire mieux. J'ai un fichier dans lequel j'ai crée un TCD je voudrai que le classeur1 se met à jour selon le contenu du classeur2 bien sure en cumulant chaque ligne correspondant aux produits.

Je vous joints les 2 fichiers

Merci d'avance

Amicalement

Noel

PS : Les 2 classeurs se trouveront dans le même dossier afin de ne pas poser de problème d'adresse.

13classeur1.zip (17.52 Ko)
8classeur2.zip (12.54 Ko)
Le 26/09/2016 à 19:26

Nouvelle version.

Bye !

13classeur2.zip (17.55 Ko)
12classeur1-v1.zip (24.24 Ko)
Le 27/09/2016 à 06:25

Bonjour à tous,

Bonjour Gmd,

J'ai testé le fichier il me met comme message :

"Le classeur2 doit être ouvert".

Pourtant il est ouvert. j'ai du passer à côté de quelque chose.

Si tu pouvais voir cela.

Merci d'avance

Amicalement

Noel

Le 27/09/2016 à 08:54
cfn3cfn a écrit :

Pourtant il est ouvert. j'ai du passer à côté de quelque chose.

Bonjour

Non, c'est moi qui suis passé à coté de quelque chose.

Si tu ouvres ‘’Classeur1 v1.xls » en premier, le deuxième classeur, lorsque tu l’ouvres prend le nom de ‘’Classeur2 (1).xls’’ et la macro ne le reconnait pas car le nom ‘’Classeur2.xls’’, est inscrit en dur dans la macro.

Il y a donc plusieurs solutions :

• Tu ouvres d’abord le Classeur2 puis "Classeur1 v1"

• Tu enregistres (par exemple sur le bureau) le fichier ouvert ‘’Classeur2 (v1)’’ en supprimant ce qui est entre parenthèses et l’espace qui est devant

• Tu utilises les 2 fichiers ci-joint qui ont été modifiés : le nom pour l’un et la macro qui reconnait ce nouveau nom pour l’autre

OK ?

Bye !

9classeur1-v1.zip (23.85 Ko)
9classeur-2.zip (16.53 Ko)
Le 27/09/2016 à 09:49

Re,

Même en suivant tes instructions, j'ai toujours le même message

"Le classeur2 doit être ouvert".

J'ai essayé plusieurs façons d'ouvrir:

  • Le classeur2 avant puis le classeur1 v1
  • Le classeur1 v1 puis le classeur2 dans ce cas le classeur2 ne prend pas le nom de ‘’Classeur2 (v1)’’
  • classeur1 v1 et le classeur2 en même temps ça donne toujours le même résultat.
J'ai même essayé de rectifier le nom au sein de la macro pareil au même.

@+

Amicalement

Noel

Le 27/09/2016 à 10:49

Essaie en mettant les 2 fichiers joints sur le bureau avant de les ouvrir :

9desktop.zip (37.89 Ko)

Cela donne quoi ?

Le 27/09/2016 à 13:17

Re,

C'est pareil.

J'ai dézippé et j'ai lacer le classeur 2 puis la le classeur1 V.2.

Cela fonctionne chez toi?

@+

Amicalement

Noel

Le 27/09/2016 à 13:19

Bonjour,

surement problème d'adressage entre Mac et Excel

Le 27/09/2016 à 13:28
M12 a écrit :

surement problème d'adressage entre Mac et Excel

Bonjour M12

Si c'est ça, je donne ma langue au chat car je n'ai pas de MAC pour pouvoir rechercher comment faire.

Désolé !

Bye !

Le 27/09/2016 à 13:51

Re,

Cela fait belle lurette que je ne travaille plu sous MAC.

Je vais voir si je peu faire la mise a jour de mon profil sur Excel-Pratique

@+

Amicalement

Noel

Bonjour

Je ne sais comment faire pour modifier mon profil.

Si quelqu'un pouvait me donner la solution

Car je travaille sous Excel 2003 sous windows 8

Merci

Le 27/09/2016 à 17:10
cfn3cfn a écrit :

Bonjour

Je ne sais comment faire pour modifier mon profil.

Si quelqu'un pouvait me donner la solution

Car je travaille sous Excel 2003 sous windows 8

Merci

Ce n'est pas dans profil/signature ?

Le 28/09/2016 à 13:05

Bonjour Noel

Je ne sais comment faire pour modifier mon profil.

En haut à gauche, clique sur "Profil"

De nouveau en haut, clique sur l'onglet "Profil"

Ensuite en bas dans la rubrique Excel, on peut changer les données

Amicalement

Le 29/09/2016 à 03:54

Bonjour Dan,

Merci. C'est fait le profil est chnagé.

@+

Amicalement

Noel

Rechercher des sujets similaires à "recopie cumul"