Macro ouverture de fichiers

Post annulé

Bonjour Damien

Es-tu obligé d'ouvrir les fichiers pour récupérer les données? Tu peux à partir d'Excel lire les données directement dans tes fichiers txt.
Avec ces instructions. Il suffira ensuite de parcourir le répertoire pour traiter tous les fichiers.

Open ("d:\ccm\test.txt") For Input As #1
Input #1, Data
Close #1

Cdlmt

Patrice

Bonjour Patrice

ce que tu dis m'intéresse, mais dans mon cas les fichiers non jamais le même nom.
et je cherche à trouver la solution qui me permet de traiter tout les fichiers automatiquement.

je ne demande peut être l'impossible

Merci

Bonjour,
Je suis allé faire un p'tit tour dans les astuces de CCM pour vous. Celle-ci, de Lermitte222, comporte deux-trois bouts de code qui peuvent vous être très utile, placés dans un module standard de votre classeur. Je vous les place ici :

Code dans l'entête

Option Explicit 
Public Chemin As String 
Public Fichier As String 
Const Ext = "txt" 

Sélectionner le chemin par boite de dialogue

Sub SelectionRep() 
Const ssfTous = &H1 
Dim objShell As Object, objFolder As Object, oFolderItem As Object 
    Set objShell = CreateObject("Shell.Application") 
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", ssfTous) 
    Set oFolderItem = objFolder.Items.Item 
    Chemin = oFolderItem.Path 
    Set objShell = Nothing 
    Set objFolder = Nothing 
    Set oFolderItem = Nothing 
End Sub

Lire tout les fichiers du répertoire spécifié

Sub LireRep() 
Dim fs, F, f1, s, sf 
Dim i As Long, Fin As Long 
'----------------------------------------------------------- 
    'Sélectionner le répertoir 
    SelectionRep 
'----------------------------------------------------------- 
    Set fs = CreateObject("Scripting.FileSystemObject") 
    Set F = fs.GetFolder(Chemin) 
    Set sf = F.Files 
    For Each f1 In sf 
        If LCase(Right(f1.Name, 3)) = Ext Then 
            Fichier = f1.Name 
            'placez ici votre code, ce que vous voulez faire de chaque fichier 
        End If 
    Next 
End Sub

Ne vous reste plus qu'à tester en lançant : LireRep (J'espère que Lermitte ne m'en voudra pas d'avoir changé le nom de cette macro ;-))

Bonjour Pijaku

Tu m'as été d'un grand secour, grace à toi j'ai résolu mon problème;

En modifiant un peu le code, c'est impec.

Merci encore

Bonjour Pijaku et Damien,

Je suis confronte exactement au même problème que toi Damien (avec des fichiers excel .xls), et je n'arrive pas a adapter la macro de Pijaku pour mon tableau..

Ma Macro plante a

Set F = fs.GetFolder (Chemin)

Votre aide serait grandement apprécié, je suis vraiment bloque actuellement.

Voici mes deux macros, si ca peut aider:

Sub Macro_Launch_all()

Option Explicit
Public Chemin As String
Public Fichier As String
Const Ext = "xls"

'Sélectionner le chemin par boite de dialogue'
Sub SelectionRep()
Const ssfTous = &H1
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "C:\Documents and Settings\Desktop\Nouvelles valeurs", ssfTous)
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
Set objShell = Nothing
Set objFolder = Nothing
Set oFolderItem = Nothing
End Sub

Sub Macro_Launch_all_2()

Dim fs, F, f1, s, sf
Dim i As Long, Fin As Long
'-----------------------------------------------------------

'Sélectionner le répertoir
SelectionRep

'-----------------------------------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(Chemin)
Set sf = F.Files
For Each f1 In sf
If LCase(Right(f1.Name, 3)) = Ext Then
Fichier = f1.Name
Application.Run "'Donnee Janvier.xlsm'!Macro2"
'placez ici votre code, ce que vous voulez faire de chaque fichier
End If
Next
'
End Sub

Bonjour julio33

Je te met la partie de mon code qui consiste à choisir un répertoire et la macro va ensuite ouvrir les fichiers les 1 après les autres en les traitentcomme tu le souhaite.

'Code dans l'entête
Option Explicit
Public Chemin As String
Public Fichier As String
Const Ext = "txt"

'Sélectionner le chemin par boite de dialogue
Sub select_repertoire()

'pour ne pas voir les changements d'écran
Application.ScreenUpdating = False

'ouvre la boite de dialoguepour choisir un répertoire
Const ssfTous = &H1
Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", ssfTous)
    Set oFolderItem = objFolder.Items.Item
    Chemin = oFolderItem.Path
    Set objShell = Nothing
    Set objFolder = Nothing
    Set oFolderItem = Nothing



'Lire tout les fichiers du répertoire spécifié

Dim fs, F, f1, s, sf
Dim i As Long, Fin As Long

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Chemin)
    Set sf = F.Files
    For Each f1 In sf

            Fichier = f1.Name

'**************************************************************
    'Indiquez ici ce que vous souhaitez faire de chaque fichier

    Fichier = ActiveWorkbook.Name
    
    
    
  
    
    Windows(Fichier).Close

'**************************************************************
    'le Next signifie que la macro retourne au début pour sélectionner le fichier suivant
    
    Next
    
    'suite de ton macro
 
    
End Sub

voilà en espérant que ça va t'aider