Comment manipuler plusieurs fichiers Excel

**Olivier0** · 08/08/2007, 14h11

Comme vous pouvez le voir, je suis tout nouveau que ce sois sur ce site ou même VBA, je m'y suis mis avant-hier (je connais quand même le C). Ayant quelques 200 feuilles Excel à faire, j'en suis venu à penser que les macros pouvais m'aider, mais j'ai malheureusement des problèmes, le programme que je souhaite faire nécessite l'utilisation de 3 fichiers (2 sources + 1) et ne fonctionne pas je ne vois pas comment faire autrement pour faire l'appel des fichiers (je crois que c'est ca qui marche pas entre autres).

d'ou ma question, comment faire pour utiliser plusieurs fichiers Excel sous VB?

je mets mon programme pour que vous compreniez mieux comment j'ai fais et qui n'est pas bon.

--

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
 
Sub OM()
 
'Declaration des variables
 
Dim FP As Excel.Workbook
Dim FPws As Excel.Worksheet
Dim Listing As Excel.Workbook
Dim Listingws As Excel.Worksheet
Dim Produit As Excel.Workbook
Dim Produitws As Excel.Worksheet
Dim lig
Dim I As Integer
 
 
'Ouverture des applications
 
Workbooks.Add ("C:\Documents and Settings\tai-sama\Mes documents\1. Olivier\ESIREM\Stage\Stage Bodycote\FP.xls")
Set FP = ActiveWorkbook
Set FPws = FP.Worksheets(1)
FP.Sheets.Add After:=Sheets(FP.Sheets.Count), Count:=200
Call Trierfeuilles
 
Set Listing = Workbooks.Open("C:\Documents and Settings\tai-sama\Mes documents\1. Olivier\ESIREM\Stage\Stage Bodycote\AA Listing produits chimiques.xls")
Set Listingws = Listing.Worksheets(2)
 
Set Produit = Workbooks.Open("C:\Documents and Settings\tai-sama\Mes documents\1. Olivier\ESIREM\Stage\Stage Bodycote\Création Fiche de produits\Fiche Produits.xls")
Set Produitws = Produit.Worksheets(1)
                                                        'Debut du programme de copie d'une sélection vers une autre feuille
Set Produitws = ActiveWorkbook.Sheets(1)
Produitws("Feuil1").Range("A1:AS42").Copy
Set FPws = ActiveWorkbook.Sheets(1)                     'activation de la feuille que je souhaite
FPws("Feuil1").Paste Destination:=FPws("Feuil1").Range("A1:AS42")
                                                        'ou FPws("Feuil1").Paste Destination:=FPws("Feuil1").Range("A1")
Application.CutCopyMode = False
Worksheets().FillAcrossSheets Worksheets("Feuil1").Range("A1:AS42", xlFillWithAll) 'doit être rediriger vers le fichier avec les 200 feuilles
 
 
                                                        'Debut du programme de remplissage des données
Set Listing = ActiveWorkbook
Set Listingws = Listing.ActiveSheet
 
I = 1
lig = 8
    For lig = 8 To 12
 
        Listingws("Feuil2").Range(Listingws.Cells(lig, 3)).Copy
        Set FP = ActiveWorkbook
        Set FPws = FP.ActiveSheet
        Sheets("Feuil(" & I & ")").Select
        FPws("Feuil(" & I & ")").Paste Destination:=FPws("Feuil(" & I & ")").Range(FPws.Cells(7, 12), FPws.Cells(9, 12))
        Set Listing = ActiveWorkbook
        Set Listingws = Listing.ActiveSheet
        Application.CutCopyMode = False
 
        Listingws("Feuil2").Range(Listingws.Cells(lig, 2)).Copy
        Set FP = ActiveWorkbook
        Set FPws = FP.ActiveSheet
        Sheets("Feuil(" & I & ")").Select
        FPws("Feuil(" & I & ")").Paste Destination:=FPws("Feuil(" & I & ")").Range(FPws.Cells(5, 12))
        Set Listing = ActiveWorkbook
        Set Listingws = Listing.ActiveSheet
        Application.CutCopyMode = False
 
        Listingws("Feuil2").Range(Listingws.Cells(lig, 41)).Copy
        Set FP = ActiveWorkbook
        Set FPws = FP.ActiveSheet
        Sheets("Feuil(" & I & ")").Select
        FPws("Feuil(" & I & ")").Paste Destination:=FPws("Feuil(" & I & ")").Range(FPws.Cells(9, 12))
        Set Listing = ActiveWorkbook
        Set Listingws = Listing.ActiveSheet
        Application.CutCopyMode = False
 
        I = I + 1
    Next lig
 
'Fermeture d'Excel
FP.Close
Listing.Close
Produit.Close
Set FPws = Nothing
Set Listingws = Nothing
Set Listing = Nothing
Set Produitws = Nothing
Set Produit = Nothing
 
'Fin du programme
End Sub
 
Sub Trierfeuilles()
 Dim Ws As Object
 Dim I As Byte
 
 Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Sheets
        For I = 2 To ActiveWorkbook.Sheets.Count
            If Sheets(I - 1).Name > Sheets(I).Name Then Sheets(I - 1).Move After:=Sheets(I)
        Next I
    Next Ws
End Sub

--
Merci pour l'aide que vous pourrez m'apporter

**mordrhim** · 08/08/2007, 15h17

Maintenant,
Ce que je ne comprends pas dans ton message :
- Tu créés les objets Workbook, tu les initialies mais tu ne les utilises pas.

tu ne les actives pas ou ne les lies pas aux worksheets.

**Bluephoenix** · 08/08/2007, 17h27

Bon alors je ne m'y connais pas en VBA mais là c'est d'un point de vue programmation pur donc je pense savoir où ca va pas :

Quand tu fais tes instructions du genre :

Code :

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

1
2
3
 
Set Listing = appExcel.Workbooks.Open("C:\Documents and Settings\tai-sama\Mes documents\1. Olivier\ESIREM\Stage\Stage Bodycote\AA Listing produits chimiques.xls")
Set Listingws = wbExcel.Worksheet(1) 'ouverture d'un fichier

Tu créés bien un Objet Workbokk initialisé avec ton fichier dont le lien est passé en paramêtre.
Mais ensuite tu initialise ton objet Worksheet avec rien du tout, il faut utilisé ton précédent objet, le Workbook.
Donc si je ne me plante pas cela devrait donner :

Code :

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

1
2
3
 
Set Listing = appExcel.Workbooks.Open("C:\Documents and Settings\tai-sama\Mes documents\1. Olivier\ESIREM\Stage\Stage Bodycote\AA Listing produits chimiques.xls")
Set Listingws = Listing.Worksheet(1) 'ouverture d'un fichier

Après si d'autres personnes beaucoup plus à l'aise en VBA désirent me corriger pas de souçis

**Olivier0** · 10/08/2007, 08h53

j'ai effectivement changé les différentes choses que vous m'avez dis, disons que ca fonctionne et je vais un peu plus loin, cependant j'ai une erreur qui s'affiche pour RAnge("L1C1:L42C45").select et je dois donc avoir la même erreurà Cells(7,12).Select

Pourrais-t-on me dire comment faire, j'ai repris ca du Dossier VB-VBA: Programmer efficacement Microsoft Excel

Je sais que mon problème est maintenant différent ou je le crois... Mais je ne veux pas créer un autre post

PS: j'ai modifier le programme en haut
Merci pour votre aide, je comprend un peu mieux

**Olivier0** · 10/08/2007, 09h08

C'est bon j'ai réussi, ca marche, il faut mettre

Code :

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

 ActiveSheet.range("L1C1:L42C45").select

**mordrhim** · 10/08/2007, 09h10

remplace

Code :

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

Worksheets().FillAcrossSheets Worksheets("Feuil1").Range("L1C1:L42C45", xlFillWithAll)

par

Code :

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

Worksheets().FillAcrossSheets Worksheets("Feuil1").Range("A1:AS42"), xlFillWithAll

appuie F1 de temps en temps et regarde bien les structures

**Olivier0** · 10/08/2007, 09h30

En fait, je croyais que c'étais la même chose, et qu'il y avait deux types d'adressage possibles, ce qui veut dire que maitenant je suis en relatif, mais pourquoi est-ce que c'est mieux? et pourquoi avant de changé ca marchais et j'allais à l'erreur suivante (problème avec

Code :

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

 Sheets("Feuil(i-7)").Select

) et maintenant j'ai un problème avec

Code :

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

 ActiveSheet.Paste

**mordrhim** · 10/08/2007, 09h39

parceque ton code est tout moche et tres mal écrit ?

alors si tu veux qu'on suive tes déboires :
- donne les erreur que le debugueur te rale.
- relis ton code et corrige tes fautes de frappes.

Code :

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

Sheets("Feuil(i-7)").Select

a changer par

Code :

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

Sheets("Feuil(" & i - 7 & ")").Select

étant donné que je ne pense pas que tu aies une feuille réellement nommée Feuil(i-7).

**Olivier0** · 10/08/2007, 10h03

Je voulais simplement savoir la différence...

Merci de me rappeller que mon code est mal écris car j'en suis conscient

Pour :

Code :

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

 ActiveSheet.Paste

, il s'agit de l'erreur 1004 : la méthode Paste de la WorkSheet a échoué.
Pour :

Code :

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

 Sheets("Feuil(" & i - 7 & ")").Select

n il s'agit de l'erreur 9 : l'indice n'appartient pas à la sélection.

Je vais essayer d'utiliser For Each ... Next qui semble plus efficace

**mordrhim** · 10/08/2007, 11h11

Est-ce que le "Paste" se fait sur la feuille "Feuil(i-7)" ?

Erreur 9 : plusieurs raisons possibles.
- La feuille n'existe pas
- Le nom que tu donnes : "Feuil(" & i - 7 & ")" donnant "Feuil(1)" pour i = 7 est mal orthographié.

Erreur 1004 :
Comme il n'a pas réussit à sélectionner la feuille il ne peut pas coller dessus

Ensuite pour les lignes du genre

Code :

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

1
2
Set Produitws = appExcel.ActiveWorkbook.Sheets(1)
ActiveSheet.Range("A1:AS42").Select 'copie de la plage que je souhaite

Tu créés un objet que tu n'utilises pas. Pourquoi ne fais tu pas

Code :

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

1
2
Set Produitws = appExcel.ActiveWorkbook.Sheets(1)
Produitws.Range("A1:AS42").Select

Je ne te dis pas que ton code est pas propre par méchanceté, mais normalement un programme est analysé avant

**Olivier0** · 10/08/2007, 14h00

j'ai réfléchis à mon problème et j'ai deux questions qui me sont venues à l'esprit et leurs réponses qui expliquerai en partie pourquoi certaines parties de mon programme ne fonctionne pas:

Comment peux t on vérifier que que les feuilles du classuer que nous avons crée existe sous VBA, car en effet quand j'écris simplement

Code :

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

Sheets("Feuil1").Select

qui devrait marcher, ca ne marcha pas, avec la même erreur, signe que la feuille si j'ai bien compris, n'existe pas.

J'ai aussi lu que la fonction Copy pouvais afficher des erreurs si une des plage avait des cellules fusionnées, ce qui est le cas pour mon fichier Source Produit, cela expliquerai le fait que je ne puisse pas coller... Et le cas échéant comment faire?

De plus, j'aurais une autre question qui est en rapport avec le sujet, peut-on utiliser une seule variable Workbook et Worksheet pour manipuler plusieurs fichiers et classeurs? Dans ce cas je devrais ouvrir à chaque fois le dossier que j'ai besoin. Et pour plus de clarté faire appel à des sous-programmes.

**AlainTech** · 11/08/2007, 16h00

Quelques commentaires:
Inutile de créer une instance de l'application Excel si tu es déjà en VBA (donc dans Excel).
Le code qui manipule des données dans des feuilles doit se trouver dans un module (et pas dans le code d'une feuille).
Evite, autant que possible, les Select et privilégie l'instanciation d'objets pour les feuilles et les classeurs.
Tu avais d'ailleurs bien commencé en créant des instances (Set) pour tes différents classeurs et feuilles. Après, il faut utiliser ces instances et ne plus faire de références, par exemple, à ActiveSheet ou Selection.
Quand tu utilises Cells, dis toujours à quelle feuille tu te réfères.
Exemple:

Code :

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

Produitws.Cells(5, 1)

ou

Code :

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

Range(Produitws.Cells(1, 3), Produitws.Cells(5, 10)

**Olivier0** · 13/08/2007, 08h33

j'ai remplacer les commandes CopyCut par d'autres commandes plus clair que les premières que j'ai trouvé dans les différents tutotiaux disponibles sur le site. J'ai aussi enlèvé toutes les applications Excel (appExcel), qui étaient inutiles. Et changé le modes d'adressages comme vous me l'avez conseillé et oh miracle, je n'ai plus d'erreur...

Mais j'ai quand même un problème, ou plutôt une question qui vas sans doute posé problème, quand j'exécute mon macro, il affiche des trois classeurs que j'ai appelé et cré dans le classeur FP les 200 feuilles. Cependant pour le reste, on dirait que rien ne se passe, comme si le programme semblais fini? A-t-on un moyen de vérifier que le programme est toujours actif?

PS j'ai remplacé le programme du 1er post

**AlainTech** · 14/08/2007, 05h20

Puisque tu en es à prendre de bonnes habitudes, autant continuer.

Puisque tu es dans Excel, il est inutile de préciser l'application pour les types:

Code :

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

Dim FP As Workbook

Le code est beaucoup plus lisible en préfixant les noms des variables:

Code :

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

1
2
3
4
5
6
Dim wbkFP As Workbook
Dim wksFP As Worksheet
Dim wbkListing As Workbook
Dim wksListing As Worksheet
Dim wbkProduit As Workbook
Dim wksProduit As Worksheet

A ce sujet, je conseille fortement de lire ce tutoriel.

Tu as encore des Select inutiles dans ton code:

Code :

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

1
2
Listingws("Feuil2").Range(Listingws.Cells(lig, 2)).Copy
FPws("Feuil(" & I & ")").Paste Destination:=FPws("Feuil(" & I & ")").Range(FPws.Cells(5, 12))

peut avantageusement être remplacé par:

Code :

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

1
2
Set wksFP = wbkFP.("Feuil(" & I & ")")
wksListing.Listingws.Cells(lig, 2).Copy Destination:=wksFP.Cells(5, 12)

Tu noteras la suppression de Range qui est inutile pour une seule cellule.

Ces liges-là sont inutiles dans la boucle puisque les variables sont initialisées avant:

Code :

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

1
2
Set Listing = ActiveWorkbook
Set Listingws = Listing.ActiveSheet

**Olivier0** · 14/08/2007, 13h57

Merci encore pour tes conseils et pour le lien pour le tutoriel, encore un qui me manquait et qui me sera utile...

J'ai bien compris pourquoi il fallait enlever les Excel.. car j'ai deja une application excel ouverte, cependant j'ai toujours les mêmes problèmes, c'est à dire que quand j'excute mon macro, j'ai les trois fichiers qui s'affiche (donc un de 200 qui est plus ou moins trier.. Je vais devoir le modifier..) et c'est tout, je ne sais pas si mon programme tourne toujours ou si simplement il tourne en rond.. aussi comment faire dois-je ? Ajouter un espion, mettre un point d'arrêt, je sais qu'en C on peut voir le parcours du programme, mais apparament pas là.

J'ai lu que l'on pouvait bloquer le clavier quand le programme tournais et jusqu'a ce qu'il finisse; une solution, mais j'aurais quand même besoin de mon ordi pour continuer de bosser

Merci encore pour le temps que ca doit prendre de lire ce programme..

**AlainTech** · 15/08/2007, 01h35

Pour ma part, quand j'ai un traitement long, je crée un Form qui affiche le message de patience et je lance le traitement dans l'événement Activate de ce Form.

Il n'y a plus qu'à le décharger quand le traitement est terminé.

**Olivier0** · 16/08/2007, 08h38

OK, je vais essayer de faire cela pour voir mon programme en esperant que les différents tutoriaux que j'ai télécharger sur votre forum puisse m'aidé (j'ai encore jamais utilisé ces objets).

Merci encore

Comment manipuler plusieurs fichiers Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager