Discussion :

[JDW78]

Bonsoir,

Je suis plus que novice en VBA, mais je me soigne.

Je tente de comprendre comment contruire un début de code mais pour mon probleme il me faudrait etre un expert.

Tous les mois je dois rappatrier sur un seul fichier excel des données comptables de plusieurs sociétés sur plusieurs fichiers excel.


Ci-joint le fichier sur lequel je dois rappatrier toutes les infos.

Donc ma question est : comment dois je proceder avec le niveau O que j'ai.

Merci de votre aide

jerome

[kiki29]

Salut,http://www.google.fr/#sclient=psy&hl...w=1011&bih=740

[helas]

Bonjour,
cela peut se traduire par

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
 
Sub ChargementDesDonnees(fichier As String)
 Dim xlw As Workbook, xlw2 As Workbook
 Dim sh As Worksheet, sh2 As Worksheet
 
 Set xlw = Workbook("dossier\Recap groupe.xls")
 Set xlw2 = Workbook(fichier)
 Set sh = xlw.Worksheets("Feuil1")
 Set sh2 = xlw2.Worksheets("Feuil1")
 
 sh.Range("A1") = sh2.Range("B5")
 '..........
 sh.Range("B4") = sh2.Range("Y6")
 
 xlw2.Close
 xlw.Close
End Sub

Ceci est un exemple simple de routine à créer dans un module.
La sélection du fichier dépend de la manière dont sont stockés les fichier XLS.
Le principe : copier la valeur d'une cellule de la feuille sh2 du classeur xlw2 pour la coller dans une cellule de la feuille sh du classeur xlw

[JDW78]

Merci a vous deux pour votre aide précieuse.

Je me lance et vous tient informer de la suite des événements

Jerome