Modifier un fichier Excel

Bonjour à tous ,

Je souhaite apporter plusieurs modification à plusieurs fichier excel qui sont dans un dossier avec une macro.

J'ai 136 fichiers que je souhaite modifier comme suit :

1 - Ajouter une colonne après la première colonne

2 - Convertir la première colonne avec un séparateur espace ( j'aurais deux une colonne date et une autre heure, respectivement sur la colonne A et B )

3- Modifier le format de de la colonne A en "Date courte" et la colonne B en "heure"

4- le faire pour chaque fichier qui se trouve dans un dossier "Fichier FR"

En pièce jointe un fichier fait à la main "fr0524" et la forme des autres fichiers "fr0248"

Je vous remercie pour votre aide

Christian

Bonjour Christian,

Voici le fichier avec macro pour transformer tes fichiers

Edit : petite modification du code, mais gros oubli de ma part

Dans la boucle Do... Loop, j'ai oublié de passer au fichier suivant avec sFic = Dir()

Sub TransFic()
  Dim sDos As String, sFic As String
  ' Choix du dossier à traiter
  sDos = ChoixDossier(ThisWorkbook.Path, "CHOIX du DOSSIER à TRAITER...")
  If sDos = "" Then Exit Sub Else sDos = sDos & "\"
  ' Pour chaque fichier dans le dossier
  sFic = Dir(sDos & "fr*.xlsx")
  Do While sFic <> ""
    Call TraiterFic(sDos, sFic)
    ' Fichier suivant
    sFic = Dir()
  Loop
  ' Petit message
  Application.StatusBar = "Prêt"
  MsgBox "Traitement terminé !", vbInformation, "C'EST FAIT..."
End Sub

@+

Bonjour @BrunoM45,

merci beaucoup, tu es un chef .

Je viens de le lancer le programme , mais il a fait plusieurs boucle sur le premier fichier de mon dossier.

Donc il n'y a que le premier fichier qui a été modifié.

tu sais comment je pourrais arranger ça ??

mais encore merci , c'est super

Salut Christian,

Désolé j'ai oublié un point crucial dans mon code

' Passer au fichier suivant
sFic = Dir()

le fichier à été corrigé