VBA consolider plusieurs fichiers .csv vers .xlsm avec conditions

Version imprimable

22/04/2017, 20h20
ProjetRH

VBA consolider plusieurs fichiers .csv vers .xlsm avec conditions

Bonjour à tous,

Je rencontre des difficultés pour consolider plusieurs classeurs.csv en VBA. Après quelques tests je pense qu'il est préférable de reprendre à zéro compte tenu des différentes étapes à réaliser. Vous pouvez trouver les détails des actions à réaliser pour tous fichiers .csv présents dans le dossier en cours du classeur maître.

A partir du classeur CALCULS.xlsm qui est le classeur maître :

1-ouvrir un premier fichier .csv nommé "*" présent dans le dossier en cours (au format européen car en VBA le fichier s'ouvre au format américain avec des virgules et points points virgules tout à la suite non exploitable en l'état)

2- condition 1 : si Range("F2") contient "*PERIODE*" alors copier toutes les données à partir de A3 et coller avec format dans dans le classeur maître onglet "RECEPTACLE PERIODE" à la première cellule vide de la colonne A

3 - condition 2 : si Range("F2") contient "*SEMAINE*" alors copier toutes les données à partir de A3 et coller avec format dans dans le classeur maître onglet "RECEPTACLE HEBDO" à la première cellule vide de la colonne A

Fermer le classeur et répéter les opérations pour tous fichiers .csv présents dans le dossier en cours du classeur maître.

Merci beaucoup pour votre aide !
23/04/2017, 06h31
unparia

Bonjour
Bien. J'ai lu ton mini-cahier des charges.
Puis j'ai cherché, en vain, ton code au moins tenté pour parvenir à tes fins.
Tu attends quoi ? un code à copier/coller pour CHACUN des TROIS problèmes exposés ?

Bonjour UNPARIA

Bonjour UNPARIA et merci,
Dans un premier temps ouvrir tous les fichiers csv du dossier en cours au format européen serai vraiment bien.
voici la ligne de code qui permet de consolider mais sur plusieurs onglet et la prise en charge CSV n'est pas exploitable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub consolideClasseurs()
 Application.ScreenUpdating = False
  ChDir ActiveWorkbook.Path
  Set classeurMaitre = ActiveWorkbook
  'sup
  nf = Dir("*.csv")
  Do While nf <> ""
      Workbooks.Open Filename:=nf
      Sheets(1).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
      'classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = nf
      Workbooks(nf).Close False
      nf = Dir     ' classeur suivant
  Loop
  Sheets(1).Select
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  'ActiveWorkbook.Save
 
End Sub

23/04/2017, 07h21
unparia

Commence par utiliser l'enregistreur de macros pour voir à quoi ressemblerait le code d'importation d'un .csv.

En VBA, Excel offre 2 options avec le parametre LOCAL.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Local_True_Ouvrir_CSV_Local()
 
    Workbooks.Open Local:=True, Filename:="C:\Users\client\Documents\CFichier_Local.csv"
 
End Sub
 
 
Sub Local_False_Ouvrir_CSV_Americain()
 
    Workbooks.Open Local:=False, Filename:="C:\Users\client\Documents\Fichier_americain.csv"
 
End Sub