Macro VBA - Manipulation de plusieurs fichiers

Version imprimable

18/02/2008, 11h59
Shaia79

Macro VBA - Manipulation de plusieurs fichiers

Bonjour,

j'ai une macro à développer qui doit effectuer les actions suivantes:

ouvrir un fichier excel, appelons le a.xls
copier les infos présentes dans a.xls
les coller dans un fichier synthétique
Fermer le fichier a.xls
passer au fichier suivant, b.xls
ainsi de suite, la macro refaire les mêmes actions sur tous les fichiers présents dans le répertoire.

Voila, donc la macro "récolte" des informations dans différents fichiers, tous de même format, et les réunit dans un fichier de synthèse.

Pour le code "copier coller", mise en forme etc, pas de pb, l'enregistreur de macro est là :)

Par contre, j'aurais besoin du code et/ou de la syntaxe, qui permettraient à la macro, une fois les infos copiées/collées du 1er fichier, de la faire passer au fichier suivant, et ce ainsi de suite jusqu'au dernier fichier présent dans le dossier, sachant que le nombre total de fichier varie selon les jours ?

Je sais que je demande beaucoup, mais je débute (de toute évidence!), et ce sont des questions pour lesquelles je n'ai pas trouvé de réponse dans mon livre !!!

merci d'avance pour votre aide !!!
18/02/2008, 12h22
Many31

Bonjour

tu peux utiliser la fonction rechercher du forum... il y a plein de cas qui ressemble au tien

http://www.developpez.net/forums/sho...erer+donn%E9es
http://www.developpez.net/forums/sho...fichier+fermer

Si tu cherche bien il y a meme un guide réalisé pour récupérer des données d'un fichier sans l'ouvrir (ce qui te feras gagné énormément de temps crois moi)

Bonjour,
Essaye ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub FileOpen() Dim Fichier$, Chemin$ Dim Wb As Workbook Chemin = "D:\Divers\Temp\" '<-- adapter le chemin du répertoire Fichier = Dir(Chemin & "*.xls") Do While Fichier <> "" Set Wb = Workbooks.Open(Chemin & Fichier) 'suite de la procedure '.... '.... '.... '.... MsgBox "voulez-vous poursuivre" Wb.Close True Set Wb = Nothing Fichier = Dir Loop End Sub
Ce qui ouvrira un par un tous les fichiers *.xls du répertoire désigné, peu importe le nom des fichiers

(ah nos messages se sont croisés, pas vu que Many avait déjà répondu)

18/02/2008, 12h33
Didier Gonard

Bonjour,

Le principe de base est simple, il s’agit de parcourir une liste d’objets classeur.
De ce côté-là il faut voir du côté de : For Each…Next ou de Do While…loop, Do Loop …Until etc…

Ce qui faciliterait de beaucoup les réponses et augmenterait leurs pertinence serait de savoir de quelle liste il s’agit :

1) Si tous les fichiers concernés sont déjà ouverts
2) Si la liste est finie dans ce cas tu crée une variable tableau avec leurs noms et chemins et c’est elle que tu scanne via les instructions de boucle ci-dessus.
3) Si la liste n’est pas dénombrée, mais dans un seul dossier, tu scannes tout le dossier..
4) Etc..

Donc ce qu’il faut savoir c’est si :
tes classeurs sont ouverts avant ?
s’il faut aller les chercher et les ouvrir
dans un seul répertoire ?
ce répertoire ne contient-il que des classeurs à traiter ou faut-il ajouter un filtre ?
dans divers répertoires ?
ces répertoire ne contiennent-ils que des classeurs à traiter ou faut-il ajouter un filtre ?

D’autre part quel est ton environnement, tes classeurs sont sur ton micro ou sur un serveur, y-a-t-il un risque qu’un classeur soit déjà ouvert par un autre etc…

Donc continuer ta démarche avec un papier –crayon, te faire un mini cahier des charges ce qui te permettra un recherche ciblée sur le forum et l’obtention de réponses en pleine cible.

cordialement,

Ormonth
18/02/2008, 15h19
Shaia79

Merci à Ormonth, Many31 et fring pour vos réponses ! Je suis en train de lire le forum pour chercher les informations qui me manquent

Pour Ormonth en particulier:

Les fichiers, au format .csv, sont importés de manière quotidienne dans ce répertoire. Leur quantité peut varier d'un jour à l'autre. Leur nom est impossible à déterminer au préalable.

Il faudrait donc que la macro, pour chacun de ces fichiers:

1 l'ouvre

2 choisisse la première (et unique) feuille du classeur (cette feuille porte le même nom que le fichier, histoire de compliquer la tâche !! donc pour le fichier a.csv, il faudra que la macro aille sur la feuille a, fichier b.csv sur la feuille b, etc...)

3 Copie le contenu de cette feuille

4 Le colle dans un document excel préalablement vierge, appelons-le "synthèse", situé dans un autre classeur

5 Ferme le fichier .csv

5 ouvre le 2nd fichier .csv, copie le contenu de sa page, le colle dans "synthèse" en dessous des données précédemment collées, referme le .csv, et ainsi de suite pour tous les fichiers .csv du dossier.

6 à la fin la macro ferme le fichier "synthèse" et le sauvegarde à la date du jour

Donc d'après ce que tu indiques dans ton message, la liste n'étant pas dénombrée et les fichiers étant au préalable fermés, il faudrait effectivement que je "scanne" le dossier, en boucle ?

ce dossier est sur un disque partagé auquel j'ai pleinement accès. Pas de risque que les fichiers soient ouverts par quelqu'un d'autre.

Idéalement, il faudrait que, une fois que les fichiers .csv sont importés dans le dossier, j'ouvre un classeur dans lequel se trouve un bouton relié à ma macro, et qu'en cliquant dessus, la macro exécute le retraitement des données, crée le fichier de synthèse, et le sauvegarde à la fin. Je ne vous demande pas de tout me dire évidemment, mais je suis preneuse de toute information qui me permettrait de progresser, et surtout de comprendre comment excel fonctionne derrière, merci d'avance !!!
18/02/2008, 16h23
Shaia79

ok je crois avoir trouvé un sujet qui pourrait m'aider:

pour info, c'est le sujet:

http://www.developpez.net/forums/sho...d.php?t=442352

l'enquête continue !

Je travaille sur l'exemple donné dans le sujet

http://www.developpez.net/forums/sho...d.php?t=442352

En exécutant ce code:
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 33 34 35 Sub Test1() Dim RepFich As Variant Dim CL1 As Workbook, i As Byte, Rep$ Dim FL1 As Worksheet Set CL1 = ThisWorkbook 'Ajoute une feuille au classeur destiné à recevoir les données des autres classeurs CL1.Sheets.Add CL1.ActiveSheet.Name = "FeuilCumul" Set FL1 = CL1.ActiveSheet 'Instance de la feuille 'Répertoire des fichiers à copier Rep = "C:\Documents and Settings\sfrancin\Desktop\VBA\Projet Merging\dossier brouillon" 'Crée le tableau des fichiers du répertoire Set RepFich = Application.FileSearch 'Ouverture des fichiers du répertoire With RepFich .LookIn = Rep .FileType = msoFileTypeExcelWorkbooks If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then For i = 1 To .FoundFiles.Count DoEvents Copy FL1, .FoundFiles(i) Next Else MsgBox "Aucun fichier dans le répertoire " & Rep End If End With End Sub
VBA bloque sur Copy FL1, en me répondant "sub ou fonction non définie"

cela m'étonne qu'il y ait une erreur etant donné que c'est un programme développé par un membre expérimenté du forum, serait-ce une incompatibilité avec ma configuration de fichiers ? Sachant que J'ai mis dans le répertoire-cible différents fichiers qui pourraient être consultés par la macro à titre d'exemple

Bonsoir,
Shaia79, aller trop vite en prog, c'est aller dans le mur, le meilleur moyen de gagner du temps est d'en perdre à comprendre et à apprendre...
Tu as raison d'être étonnée et comme tu le soupçonnes, il n'y a pas d'erreur par contre en bidouillant le code en aveugle, tu en génèreras sans pb.

le code original (pour ce qui nous interesse ici):

Citation:

Fait appel à Copie() pour réaliser la copie de chaque feuille de chaque fichier

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
Sub Test1()
Dim RepFich As Variant
Dim CL1 As Workbook, i As Byte, Rep$
Dim FL1 As Worksheet
    Set CL1 = ThisWorkbook
 
    'Ajoute une feuille au classeur destiné à recevoir les données des autres classeurs
    CL1.Sheets.Add
    CL1.ActiveSheet.Name = "FeuilCumul"
    Set FL1 = CL1.ActiveSheet 'Instance de la feuille
 
    'Répertoire des fichiers à copier
    Rep = "C:\LeRep\"
 
    'Crée le tableau des fichiers du répertoire
    Set RepFich = Application.FileSearch
 
    'Ouverture des fichiers du répertoire
    With RepFich
        .LookIn = Rep
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
            For i = 1 To .FoundFiles.Count
                DoEvents
                 Copie FL1, .FoundFiles(i)
            Next
          Else
            MsgBox "Aucun fichier dans le répertoire " & Rep
        End If
    End With
End Sub

suivi plus loin de :

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
Sub Copie(FL1 As Worksheet, Fichier)
Dim CL2 As Workbook
Dim FL2 As Worksheet
Dim i As Byte, Rep$, NoLigne As Long
 
     Set CL2 = Workbooks.Open(Fichier)
 
        'Parcours des feuilles de chaque classeur
        For Each FL2 In CL2.Worksheets
            'Dernière ligne où coller les données copiées dans FL2
            NoLigne = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
 
            'Copie de la plage renseignée de chaque feuille du classeur
            FL2.Range(FL2.Cells(1, 1), _
                FL2.Cells(FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row, _
                FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)).Copy _
                FL1.Range("A" & NoLigne)
            DoEvents
            Set FL2 = Nothing
        Next
        CL2.Close False 'fermeture du classeur copié
        DoEvents
        Set CL2 = Nothing
End Sub

donc ouskel'n'or indique bien au départ que Test1 fait appel à copie() pour réaliser les copie des Feuilles des fichiers. Toi tu as simplement remplacé copie par copy, donc tu ne faisait déjà pas confiance au membre expérimenté :cry:

Tout ça aurait du te mettre sur la piste ;)

Test1 appelle simplement la procédure Copie en lui passant les arguments voulus, les parenthèses après copie() étaient parlantes à ce niveau.
Pour que ce soit plus explicite pour toi au niveau de l'appel, on peut rajouter "call" en adaptant la syntaxe :

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
33
Sub Test1()
 
Dim RepFich As Variant
Dim CL1 As Workbook, i As Byte, Rep$
Dim FL1 As Worksheet
    Set CL1 = ThisWorkbook
 
    'Ajoute une feuille au classeur destiné à recevoir les données des autres classeurs
    CL1.Sheets.Add
    CL1.ActiveSheet.Name = "FeuilCumul"
    Set FL1 = CL1.ActiveSheet 'Instance de la feuille
 
    'Répertoire des fichiers à copier
'    Rep = "C:\Documents and Settings\sfrancin\Desktop\VBA\Projet Merging\dossier brouillon"
    Rep = "C:\LeRep\"
    'Crée le tableau des fichiers du répertoire
    Set RepFich = Application.FileSearch
 
    'Ouverture des fichiers du répertoire
    With RepFich
        .LookIn = Rep
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
            For i = 1 To .FoundFiles.Count
                DoEvents
                 Call Copie(FL1, .FoundFiles(i))
            Next
          Else
            MsgBox "Aucun fichier dans le répertoire " & Rep
        End If
    End With
End Sub

Donc en mettant les deux procédures dans un module, ça devrait aller beaucoup mieux, dernier point, dans ta chaîne pour la varible Rep, rajoutes donc un anti-slash après brouillon, ça tévitera des surprises. Attention ce genre d'oubli est typisue d'un chemin obtenu avec un copié-collé à partir de l'explorateur, qui est une très bonne chose en soi pour éviter des erreus de frappe, mais il faut toujours, alors, rajouter le dernier antislash..;)

bon courage,

Ormonth

19/02/2008, 14h25
Shaia79

Bonjour,

la macro donnée par ouskel'n'or marche très bien ! Et les explications dans son code, ainsi que les tiennes, m'ont beaucoup facilité la tâche !

Je crois même, en relisant le code de la macro, commencer à comprendre ce que VBA fait à son exécution ( et je serais bien incapable de le reproduire, de toutes évidences :) )

Il y a juste une dernière chose qui ne marche pas, mais je vais essayer de chercher toute seule pour le coup !!!

Merci encore à tous, et peut être à plus tard !!
19/02/2008, 17h16
Shaia79

argh bon j'ai une autre question :)

J'aurais une 3eme sub à inclure, pour mettre en forme le document obtenu au final, et le sauvegarder

Et il faudrait que cette 3eme procédure soit lancée après que les 2 premières, Test1 et Copie, aient fini de traiter tous les fichiers

Car j'ai essayé de coller le code de mise en forme à la suite de la procédure "copie", et du coup, la mise en forme est inclue dans la boucle, et excel met en forme à chaque document copié, ce qui est redondant, et ne permet pas de sauvegarder le fichier final !

Comment faire prendre en compte cette 3ème sub dans la macro, mais uniquement après que les 2 premières aient traité tous les fichiers du répertoire ?

merci d'avance, ça me permettrait plus généralement de savoir comment les subs s'appellent et s'articulent entre elles, ça me serait très utile !
19/02/2008, 17h40
Many31
je crois j'ai pas vraiment compris la question que tu poses....

mais si j'ai compris... aie...

pour appeler une sub a partir d'une autre:

Code:

call Test()

tu n'est pas obligé de mettre le call quand la sub n'a pas ou n'a qu'une variable d'entrée.

aprés tu peux appeler des sub d'autres pages/formulaire si celles si sont déclarées en public
Code:

1 2 3 Public sub Test() end sub
dans le code il faudra que tu indique l'endroit ou se situe la sub que tu utilise (exemple si tu es dans l'useform1 et que tu veux appeler la sub Test() de l'userform2 tu écriras:

Code:

call useform1.Test()

)

et apres si tu veux une fonction qui te retourne une données... il faut la déclaré en fonction...
Code:

1 2 3 4 5 6 7 Public function Ligne(variable) 'le traitement Ligne = résultat End function
mais dans ce cas la tu auras appelé ta fonction comme ca:

Code:

A = Ligne(B)

voila j'esp ne pas avoir fait d'erreurs
19/02/2008, 20h30
Qwazerty
SAlut
Une petit precision sur le Call, il est facultatif meme pour plusieur argument, seulement il faut viré les parentheses
Code:

1 2 3 Call Bonjour(Argument1, Arg2, Arg3,...) Bonjour Arg1, Arg2, Arg3....
c'est bizarre mais c'est ainsi :)

Pour le Public il est lui aussi facultatif, par defaut une Sub/Function sont "Public", elles passent privées si on rajoute Private devant (elle n'est plus accessible a partir d'autre Module/UserForm).

Code:

call useform1.Test()

Comme plus haut Call est facultatif

Pour les Function tu peux definir le type de retour
Code:

1 2 3 4 5 6 7 8 9 Public function Ligne(variable)As Boolean 'le traitement Ligne = True ... Ligne= False End function
Sinon c'est du Variant.

Voilou ;)
A++
Qwaz
20/02/2008, 16h05
Shaia79

d'accord, j'ai placé l'appel de la 3eme procédure à la toute fin de la première, après qu'elle ai effectué sa boucle avec la 2nde procédure (je crois que ce n'est pas très clair haha)

bref tout ça pour dire que ça marche très bien !!!

Maintenant je suis en phase de "peaufinage" de ma macro, notamment je voudrais qu'elle n'affiche pas de messages d'erreurs dans certains cas, je vais continuer à chercher dans le forum !!

Merci encore pour tout !!!

Hello,

peut être est-ce hors sujet, mais face à la même problématique j'ai utilisé une autre méthode. Cette méthode consiste à concaténer les fichiers source avant de les ouvrir dans Excel.

Voici le code et un exemple d'utilisation.

Code:

FSOConcatFilez "C:\temp\","*.csv","compil.csv"

il faut ajouter la référence Microsoft Scripting Runtime
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 Sub FSOConcatFilez(ByVal strPath As String, ByVal strPattern As String, _ ByVal strDestPath As String) Dim fso As FileSystemObject Dim fld As Folder Dim fil As File Dim ts As TextStream Dim txt As String Set fso = New FileSystemObject Set fld = fso.GetFolder(strPath) For Each fil In fld.Files If fil.Name Like strPattern Then Set ts = fil.OpenAsTextStream(ForReading) txt = txt & ts.ReadAll End If Next fil Set ts = fso.CreateTextFile(strPath & strDestPath, True) ts.Write txt Set ts = Nothing Set fil = Nothing Set fld = Nothing Set fso = Nothing End Sub

20/02/2008, 21h19
Qwazerty
SAlut
Qu'entend tu par "pas de message d'erreur" ?

Si c'est des message de confirmation d'excel tu peux faire comme ca
Code:

1 2 3 Application.DisplayAlerts = False 'Le code qui genere un message Application.DisplayAlerts = True
De cette maniere plus de message qui s'affiche pour interpeler l'utilisateur.

Si ce sont des message d'erreurs lier a une erreur de ta macro ... ben il serait bien qu'il n'y ai pas d'erreur ;)
Sinon il y a le mot clef On Error
Code:

1 2 On Error Resume Next 'passe a la ligne suivante même en cas d'erreur On Error Goto Ici 'En cas d'erreur se dirige vers le label Ici
Tu peux ensuite gérer les erreurs en fonction de leur numéro, pour avoir plus d'info fait un :f1: sur "Error" (@modos:il serait possible d'avoir un emo qui fait pas une tronche de pas content pour le F1? :) en plus de celui la bien sur :D)

Voila
A++
Qwaz
27/02/2008, 12h10
Shaia79
Bonjour,

concernant cette macro, qui tourne bien désormais, je voudrais qu'elle manipule des .csv plutot que des .xls

Pour les fichiers excel, Le code appelle:
Code:

1 2 3 With RepFich .LookIn = Rep .FileType = msoFileTypeExcelWorkbooks
Quel est l'équivalent pour les fichiers .csv ?

Si vous connaissez une adresse internet qui répertorie ce genre de typologie, ou un bon livre concret sur VBA, je suis preneuse :)

merci d'avance !!!
27/02/2008, 16h31
Shaia79

OK j'ai trouvé toute seule, pour ceux que ça intéresserait, j'ai remplacé

Code:

.FileType = msoFileTypeExcelWorkbooks

par

Code:

.FileType = msoFileTypeAllFiles

voilà c'est tout bête, comme ça la macro pioche dans tous les fichiers quel que soit leur type, et il faut juste que je positionne le fichier de synthèse dans un autre répertoire afin que la macro ne pioche que dans les .csv

voilà, ça fait plaisir de trouver toute seule aussi de temps en temps !! :mrgreen:
27/02/2008, 18h48
ouskel'n'or

A l'intention de Qwazerty

Citation:

Envoyé par Qwazerty

(@modos:[SIZE=1]il serait possible d'avoir un emo qui fait pas une tronche de pas content pour le F1? :)

.......................................Pièce jointe 26264
27/02/2008, 20h14
Didier Gonard

bonsoir,

Shaia79,

tu trouveras un tuto très complet sur FileSystemObject ici:

http://http://warin.developpez.com/access/fichiers/
ne regarde pas le chemin acces, c'est du vba général :D

Pour ce qui est du traitement des erreurs, s'il est vrai qu'il vaut mieux les éviter, il y a des cas où tu peux les détourner à ton profit, notemment dans les tests d'existence de fichiers ou d'ouverture des dits fichiers, en exploitant à bon escient une instruction qui génère une erreur en cas d'absence, ça te fait gagner pas mal de temps.
Vois du côté d' On Error, instruction dans l'aide VBA, c'est bien documenté, regardes aussi du côté d' On Error GoTo 0 notemment pour la désactiver au bon moment selon le cas.

Pour ce qui est d'un livre,vu ta vitesse d'avancement, ce livre devrait pouvoir t'être très profitable :

Citation:

EXCEL 2003 VBA
• Auteur(s) : Curties Frye, Wayne S. Freeze, Félicia K. Buckingham
• Éditeur : Microsoft Press
• Collection : AU QUOTIDIEN

tu peux le commander via l'interface ad-hoc du site, ce qui coûte pas plus et renforce le référencement, juste retour des choses ;)
Il n'a rien de gadget mais t'aporte toutes les bases nécessaires pour faire des choses pro, les compléménts étants sur ce forum sans pb.

cordialement,

Didier

rajout :
pour l'allusion à l'exploitation de l'On Error évoquée, vois justement ce fil ;)

http://http://www.developpez.net/for...d.php?t=498989
postd' : ouskel'n'or
27/02/2008, 21h06
Qwazerty

Citation:

Envoyé par ouskel'n'or

.
......................................Pièce jointe 26264

Merci ;)