Discussion :

[scoubida42]

Bonjour,

je suis actuellement en stage,

je dois réaliser un compte d'exploitation pour une entreprise et j'aimerai savoir s'il est possible de récupérer des données entre 2 fichiers excel dont un qui est généré automatiquementpar un logiciel de comptabilité! En fait, pour plus de précisions, j'ai recensé la liste de toutes les dépenses d'une entreprise qui doivent être séparé par service et regrouper ensuite dans une page excel
et si oui, quel est le code à utiliser?

merci beaucoup à ceux qui répondront à mon message

scoubida42

[drakkar_agfa]

Bonjour,

Voici l'inialisation de feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Set shDans = Workbooks("Liste # achem 31-01-2009.xls").Worksheets("Liste")
    Set shRecherche = Workbooks("CIBC0412 2008-12.xls").Worksheets("CIBC0412")

Si ce n'est pas ce que tu veux, n'hésite pas!

[scoubida42]

Désolé mais ce n'est pas tout à fait ça que je veux!!j'ai dû mal m'exprimer :

J'ai une feuille excel avec en B10 par exemple la somme de 1000€ d'une fichier a et je veux récupérer cette valeur en prendre la moitié et la mettre en D2 d'un autre fichier excel b!

j'espère que c'est plus clair cette fois!!

[drakkar_agfa]

En macro ou en formule?

Si par macro (VBA) alors mon code est correct.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Set shDans = Workbooks("Liste # achem 31-01-2009.xls").Worksheets("Liste")
    Set shRecherche = Workbooks("CIBC0412 2008-12.xls").Worksheets("CIBC0412")
 
shDans.cells(1,1) = shRecherche.cells(3,3) /2

Sinon, tu peux y arriver par une formule.
Il suffit de mettre le "=" dans la cellule et de sélectionne la cellule de l'autre ficher puis faire "entrée". Le lien se fera dans la formule, il suffira de diviser par 2!

[scoubida42]

Je veux le faire en macro!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set shDans = Workbooks("Liste # achem 31-01-2009.xls").Worksheets("Liste")
    Set shRecherche = Workbooks("CIBC0412 2008-12.xls").Worksheets("CIBC0412")
 
shDans.cells(1,1) = shRecherche.cells(3,3) /2

Serait-il possible que tu me le détaillers parce que je ne comprends pas tout!!Par exemple, CIBC0412 , shRecherche correspondent à quoi?
merci à toi!

[drakkar_agfa]

Voici avec des noms généraux pour ne pas te confondre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim shFichier1 As Worksheet
    Dim shFichier2 As Worksheet
'   Lui donner le fichier (le nom) et la feuille de chaque fichier.
    Set shFichier1 = Workbooks("Fichier1.xls").Worksheets("Feuil1")
    Set shFichier2 = Workbooks("Fichier2.xls").Worksheets("Feuil1")
 
    shFichier1.Cells(1, 1) = shFichier2.Cells(3, 5) / 2

De cette façon, la cellule A1 du fichier1 correspondrant à la moitié de la cellule E3 du fichier 2.