Vba creer un fichier excel et l'implementer de donnees

Version imprimable

28/06/2012, 10h53
devone078

Vba creer un fichier excel et l'implementer de donnees

Bonjour je suis debutant en vba et j'ai essayé de compiler des bouts de codes a gauche a droite mais je 'narrive pas a effectuer ce que je veux

J'aimerais en fait simplement a partir d'un fichier excel inplementé un ensemble de lignes provenant d'autres fichiers excels.

Ca serait en clair

Ouvrir un fichier excel X a partir d un dossier
Allez chercher dans les deux onglets du fichier X les lignes apparaissant en rouge ou en bleu
Et coller ces lignes dans mon mon fichier de suivi
Fermer le fichier excel X
Et faire la meme choses pour les 39 fichiers X du dossiers

Si une ame charitable veut bien m'aider

Merci par avance
Cordialement
28/06/2012, 11h29
kiki29

Salut, voir post#2 ici. Les principes de bases y sont, à toi de l'adapter pour tes lignes et feuilles.

J'ai avance mais j'ai une erreur du type propriete et erreur non gere, pouvez vous m'aider a comprendre d'ou cela vient?
merci

Code:

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
Public Sub ouverture()
Dim NomClass As String, Feuille As Worksheet, Liste As Worksheet, LigListe As Integer
Dim VARO As Integer
 
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer
i = 10
 
                     NomClass = Dir(ThisWorkbook.Path & "\*.xls")
        Do Until NomClass = ""
            If NomClass <> ThisWorkbook.Name Then
                     Workbooks.Open ThisWorkbook.Path & "\" & NomClass
                     LigListe = LigListe + 1
                     lignefin = Worksheets(1).Cells(200, 1).End(xlUp).Row
                        For VARO = 10 To lignefin
                        If Cells(VARO, 1).Selection.Font.ColorIndex = 5 Then
 
                        Rows(VARO).EntireRow.Copy
 
                        Workbooks("Suivi des CAP-1").Activate
                        Range("a" & i).Select
                        Selection.Paste
                        i = i + 1
                        End If
                        Next
 
                     Workbooks(NomClass).Close False
            End If
                        NomClass = Dir()
        Loop
 
End Sub