Consolidation fichier avec condition

[samimi94]

Bonjour,

Encore moi, avec une petite question 🙂
J'ai trouvé sur le Web une macro (désolée je ne sais plus quel en est l'auteur ni la source car le nom n'est pas indiqué dans code VBA) mais qui me sert assez souvent pour consolider certains fichiers, donc avant tout merci à son auteur s'il se reconnait.

Alors pour en revenir à ma question.
Le code suivant (de mon inconnu) permet de récupérer toutes les lignes de tous les fichiers XLS se trouvant dans un même répertoire pour les consolider et les mettre dans un seul fichier :

Sub Consolidation()
Dim Temp As String
Dim Ligne As Long
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Consolider fichiers.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
Workbooks("Consolider fichiers.xls").Sheets(1).Activate
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select
ActiveSheet.Paste
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub

Je souhaiterai savoir s'il est possible d'insérer un code à cette macro afin que lors de son exécution il récupère bien tous les fichiers XLS sauf ceux qui commencent par un nom de fichier Toto.....

Quoiqu'il en soit ce bout de code est super et me dépanne bien.

Par avance, merci et bon WE.

Samimi.

 

[Guest]

Re : Consolidation fichier avec condition

Bonjour Samimi, le forum,

Je pense qu'en changeant la ligne:

If Temp <> "Consolider fichiers.xls" Then

Par celle-ci

If Temp <> "Consolider fichiers.xls" AND ucase(Temps) Not Like "TOTO*" Then

Cela devrait le faire.

UCASE(Temps)= Mise en majuscule du nom de fichier pour comparaison
Not Like "TOTO*" -> Ne commence pas par "TOTO"

A+++
[Edition] correction de Or par AND sur les précieux conseils de Skoobi.

 

[skoobi]

Re : Consolidation fichier avec condition

Bonjour samimi94,

ajoutes ceci à la condition:

If temp <> "Consolider fichiers.xls" [COLOR=Blue][B]And Left(temp, 4) <> "Toto" [/B][/COLOR]Then

Edit: salut Ges 🙂

Au fait, dans la condition, je verrais plutôt And et non Or.

 

[Guest]

Re : Consolidation fichier avec condition

Hello Skoobi🙂

Sans doute as-tu raison, il me faut toujours faire des essais avant de déterminer si c'est Or ou And. Je suis d'une super logique "FLOUE" doublée d'une FLEMME😉 à tout casser.

A++ L'ami qui veille😀

 

[samimi94]

Re : Consolidation fichier avec condition

Re-bonjour le forum, Hasco, Scoobi,

Je n'ai qu'un mot à dire à votre sujet : EPOUSTOUFLANT

Ca fonctionne à merveille, c'est exactement ce que je voulais.
Merci beaucoup, ça va m'être d'une sacré practicité.

Bon WE à tous.

Samimi 🙂

 

[skoobi]

Re : Consolidation fichier avec condition

Hello Skoobi🙂

Sans doute as-tu raison, il me faut toujours faire des essais avant de déterminer si c'est Or ou And. Je suis d'une super logique "FLOUE" doublée d'une FLEMME😉 à tout casser.

A++ L'ami qui veille😀

Re,

If Hasco Like "FL* Or Skoobi Like "FL*" Then sieste = True

hihi 😀😛