Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Candidat au titre de Membre du Club
    Inscrit en
    avril 2007
    Messages
    96
    Détails du profil
    Informations forums :
    Inscription : avril 2007
    Messages : 96
    Points : 11
    Points
    11

    Par défaut parcourir sous repertoire et faire traitements

    Bonjour à tous,

    je developpe une application en vb.net et dans cette application j'ai affaire à

    des repertoires qui ont des sous repertoires (ainsi de suite) et à la fin, le

    dernier sous repertoire contient des fichiers pdf. Mon objectif est de faire

    une sorte de boucle qui me permettent d'accéder à chacun des fichiers pdfs

    de ces différents repertoires pour effectuer des traitements...

    Comment puis je m'y prendre? Merci d'avance

  2. #2
    Rédacteur/Modérateur



    Homme Profil pro Thomas Levesque
    Développeur .NET
    Inscrit en
    février 2004
    Messages
    19 069
    Détails du profil
    Informations personnelles :
    Nom : Homme Thomas Levesque
    Âge : 32
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2004
    Messages : 19 069
    Points : 37 201
    Points
    37 201

    Par défaut

    Code :
    Dim files As String() = Directory.GetFiles(repertoireRacine, "*.pdf", SearchOption.AllDirectories)

  3. #3
    Invité de passage
    Profil pro Pascale JEAN DIT BERTHELOT
    Inscrit en
    octobre 2009
    Messages
    2
    Détails du profil
    Informations personnelles :
    Nom : Pascale JEAN DIT BERTHELOT

    Informations forums :
    Inscription : octobre 2009
    Messages : 2
    Points : 2
    Points
    2

    Par défaut faire défiler les fichiers et les modifier

    Code :
    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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    Dim nomrepertoire As String
    Dim nomfich As String
     
    Dim nbfich As Long
    Dim nbtraités As Long
     
     
    Sub ouverture_un_à_un_desfichiers_dun_repertoire()
    nbtraités = 0
    Set fs = Application.FileSearch
    With fs
    ' indiquer le répertoire à lire
        .LookIn = "C:\aperso\objectifs 2005\preparation"
        .Filename = "*.*"  ' indiquer l'extension à rechercher
     nomrepertoire = .LookIn
     
        If .Execute(SortBy:=msoSortByFileName, _
                SortOrder:=msoSortOrderAscending) > 0 Then
                nbfich = .FoundFiles.Count
            MsgBox "le répertoire" & nomrepertoire & " contient " & nbfich & _
                " fichiers"
     
     
            For i = 1 To .FoundFiles.Count
                'MsgBox .FoundFiles(i)
                nomfich = .FoundFiles(i)
                traiterfichier
            Next i
        Else
            MsgBox "aucun fichier trouvé"
     
        End If
     
        MsgBox ("traitement terminé : " & nbtraités & " fichiers traités")
    End With
     
    End Sub
    Sub traiterfichier()
        Workbooks.Open Filename:= _
            "" & nomfich
    'inclure les modifs à effectuer sur chaque fichier
    nbtraités = nbtraités + 1
    ActiveWorkbook.Save
    ActiveWorkbook.Close
     
    End Sub

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •