Récupérer des cellules ds plusieurs classeurs .xls

Bonjour,

Je débute complètement dans VisualBasic.

Je souhaite écrire un programme pour obtenir un fichier excel.

Pour ce fichier, je veux récupérer des informations dans plusieurs fichier .xls mais qui sont dans le même répertoire.
Les cellules à récupérer sont toujours aux même endroit dans chaque classeur.

Le nouveau fichier est tructuré différement des fichiers de base.

Exemple :
Fichier de base 1 = Zone à récupérer : A4 et A6
Fichier de base 2 = Zone à récupérer : A4 et A6
Fichier de base 3 = Zone à récupérer : A4 et A6

Fichier que je veux obtenir :
en A1 : zone A4 du Fichier de base 1
en B1 : zone A6 du Fichier de base 1
en A2 : zone A4 du Fichier de base 2
en B2 : zone A6 du Fichier de base 2
en A3 : zone A4 du Fichier de base 3
en B3 : zone A6 du Fichier de base 3

Merci beaucoup pour votre aide.

Voici un exemple. Tout d'abord, dans le projet VB, il faut référencer la librairie Excel. Pour cela. cliquer sur Projet/Références..., puis sélectionner "Microsoft Excel X.0 Object Library", puis cliquer sur OK.

Private Sub Creer_Classeur()

Dim i As Integer

Dim oXlApp As Excel.Application
Dim oXlWbk(4) As Excel.Workbook

'Lancer et afficher Excel
Set oXlApp = CreateObject("Excel.Application")
oXlApp.Visible = True

'Ouvrir les 3 classeurs de base
Set oXlWbk(1) = oXlApp.Workbooks.Open("C:\MonClasseur1.xls")
Set oXlWbk(2) = oXlApp.Workbooks.Open("C:\MonClasseur2.xls")
Set oXlWbk(3) = oXlApp.Workbooks.Open("C:\MonClasseur3.xls")

'Créer le nouveau classeur
Set oXlWbk(4) = oXlApp.Workbooks.Add

oXlWbk(4).Worksheets(1).Range("A1") = oXlWbk(1).Worksheets(1).Range("A4")
oXlWbk(4).Worksheets(1).Range("B1") = oXlWbk(1).Worksheets(1).Range("A6")
oXlWbk(4).Worksheets(1).Range("A2") = oXlWbk(2).Worksheets(1).Range("A4")
oXlWbk(4).Worksheets(1).Range("B2") = oXlWbk(2).Worksheets(1).Range("A6")
oXlWbk(4).Worksheets(1).Range("A3") = oXlWbk(3).Worksheets(1).Range("A4")
oXlWbk(4).Worksheets(1).Range("B3") = oXlWbk(3).Worksheets(1).Range("A6")

'Fermer les 3 classeurs de base
For i = 1 To 3
oXlWbk(i).Close
Next i

'Sauvegarder le résultat
oXlWbk(4).SaveAs ("C:\MonResultat.xls")

'Quitter Excel
oXlApp.Quit
Set oXlApp = Nothing

End Sub


@+

pelw


-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
>
> Je débute complètement dans VisualBasic.
>
> Je souhaite écrire un programme pour obtenir un fichier excel.
>
> Pour ce fichier, je veux récupérer des informations dans plusieurs fichier .xls mais qui sont dans le même répertoire.
> Les cellules à récupérer sont toujours aux même endroit dans chaque classeur.
>
> Le nouveau fichier est tructuré différement des fichiers de base.
>
> Exemple :
> Fichier de base 1 = Zone à récupérer : A4 et A6
> Fichier de base 2 = Zone à récupérer : A4 et A6
> Fichier de base 3 = Zone à récupérer : A4 et A6
>
> Fichier que je veux obtenir :
> en A1 : zone A4 du Fichier de base 1
> en B1 : zone A6 du Fichier de base 1
> en A2 : zone A4 du Fichier de base 2
> en B2 : zone A6 du Fichier de base 2
> en A3 : zone A4 du Fichier de base 3
> en B3 : zone A6 du Fichier de base 3
>
> Merci beaucoup pour votre aide.
>
>
>