Discussion :

[anisr]

Bonjour,

Comment faire pour parcourir tous les fichiers xls situés dans un répertoir et d'inserer pour chaque fichier une nouvelle feuille avant d'enregistrer et de quitter?

Merci de votre aide.

[SilkyRoad]

bonsoir

Cela ne répondra sans doute pas exactement à ta demande, mais juste pour le fun, une possibilité pour ajouter un onglet dans tous les classeurs d'un répertoire, sans les ouvrir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub AjoutFeuilles_Dans_ClasseursFermes()
    Dim ExcelCn As Object
    Dim maFeuille As String, Repertoire As String
    Dim NomClasseur As String
 
    'Dossier contenant les classeurs Excel
    Repertoire = "C:\DossierTest"
    'Nom de la nouvelle feuille Excel
    maFeuille = "MaNouvelleFeuille"
 
    NomClasseur = Dir(Repertoire & "\*.xls")
 
    'Boucle sur les classeurs
    Do While NomClasseur <> ""
        'Connection au classeur Excel
        Set ExcelCn = CreateObject("ADODB.Connection")
        ExcelCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                       "Data Source=" & Repertoire & "\" & NomClasseur & ";" & _
                       "Extended Properties=""Excel 8.0;HDR=NO;"""
 
        'Création nouvelle Feuille
        ExcelCn.Execute "create table " & maFeuille & "(Essai Memo)"
 
        ExcelCn.Close
        Set ExcelCn = Nothing
NomClasseur = Dir
Loop
 
MsgBox "Terminé"
End Sub

michel

[Pierre Fauconnier]

Bonsoir

Peut-être peux-tu t'inspirer de ce qui suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub AjoutFeuillesFichiersDossier()
    Dim fs As New Scripting.FileSystemObject
    Dim Dossier As Scripting.Folder
    Dim Fichier As Scripting.File
    Dim Fichiers As Scripting.Files
    Dim NomDossier As String
    Dim Classeur As Workbook
    Dim Feuille As Worksheet
 
    NomDossier = "c:\données\ajoutfeuilles"
 
    Set Dossier = fs.GetFolder(NomDossier)
    Set Fichiers = Dossier.Files
 
    For Each Fichier In Fichiers
        If Fichier.Type = "Feuille de calcul Microsoft Excel" Then
            Set Classeur = Workbooks.Open(Fichier.Path)
            Set Feuille = Classeur.Worksheets.Add()
            Feuille.Name = "Feuille ajoutée"
            Classeur.Save
            Classeur.Close
        End If
    Next Fichier
 
End Sub

Ok?

[Pierre Fauconnier]

bonsoir

Cela ne répondra sans doute pas exactement à ta demande, mais juste pour le fun, une possibilité pour ajouter un onglet dans tous les classeurs d'un répertoire, sans les ouvrir:

JOLI

[SilkyRoad]

bonsoir cher Pierre ... ;o)

[ouskel'n'or]

bonsoir
Cela ne répondra sans doute pas exactement à ta demande, mais juste pour le fun, une possibilité pour ajouter un onglet dans tous les classeurs d'un répertoire, sans les ouvrir:
michel

! +1

[anisr]

Bonjour,

et si les fichiers sont des fichiers txt comment faire pour obtenir le même résultat?

A+

[SilkyRoad]

bonjour

et si les fichiers sont des fichiers txt comment faire pour obtenir le même résultat?

???
Tu peux préciser ta demande?


michel

[anisr]

En fait mes fichiers sont enregistrés en txt que je souhaite transformer en xls puis ajouter dans chaque fichiers xls une feuille.

En outre, quand j'execute le code de Pierre j'ai une erreur sur l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Scripting.FileSystemObject

Il parait que c'est un objet absent que faire?