Discussion :

[salimou90]

Bonjour,
J'aimerais exporter des valeur depuis mon programme vb.net vers des fichier excels qui se trouvent dans répertoire.
Pour l'instant, j'arrive à réaliser ce que je veux mais avec un seul fichier... seule un fichier modifié à la fois.
Je cherche une méthode, fonction qui me permette de faire simultannément la meme chose dans tout les fichiers excel qui se trouvent dans ce dossier (répertoire). Sachant que l'action est exactement la meme pour tout ces documents.
Merci d'avance de votre support
Cdt,

[salimou90]

J'ai eu une idée avec for each mais ça ne marche toujours pas malheureusement..

[ProgElecT]

Salut

Plutôt que te proposer un code tout fait (et peut être pas des mieux adapté à ton besoin), mes nous le/les codes que tu as essayé, nous devrions pouvoir te guider pour te permettre d'arriver à tes fins.

[salimou90]

bonjour,
ci-dessous la partie du code que j'ai essayé de réaliser :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Dim Excel_App As New Microsoft.Office.Interop.Excel.Application
        Dim Workbook As Microsoft.Office.Interop.Excel.Workbook
        Dim CheminFicher As String
        Dim BoiteDialogue As New OpenFileDialog
        Dim version_bd As String
        Dim fichier As File
 
 
 
 
        ' #####################################################
        ' ############ Recherche fichier excel #############
        ' #####################################################
        With BoiteDialogue
            ' Initialisation de la boite de dialogue
            .Title = "Importer fichiers excel"
            .InitialDirectory = TXT_C.Text ' répertoire de l'application
            .Filter = "Fichiers Excel |*.xls; *xlsx"
            ' vérification de la séléction
            If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                CheminFicher = .FileName
            Else
                Exit Sub ' Abandon de la routine
            End If
        End With
 
        ' #####################################################
        ' ############## Lecture du fichier Excel #############
        ' #####################################################
 
for each file in InitialDirectory
        Try
 
 
            ' Parcours du feuillet Excel
            For Each ExcelWorkSheets As Microsoft.Office.Interop.Excel.Worksheet In Workbook.Worksheets
 
                ' #####################################################
                ' ################## Feuille db release note #################
                ' #####################################################
 
                If (ExcelWorkSheets.Name = "Fiche") Then
 
                    Excel_App.Application.Cells(12, 3).Value = "prénom"
 
 
                End If
            Next
            Excel_App.Visible = True
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Erreur lors de la lecture des fichiers Excel")
            Exit Sub ' Abandon de la routine
        End Try
 
        ' LBL_WR.Text = "Merci d'indiquer des champs valides SVP!!"
        'WR_PIC.Visible = True
 
        Cursor = Cursors.Default
next
    End Sub

Merci de votre support

[clementmarcotte]

Bonjour,

Juste pour cette ligne-là, j'ai un sérieux doute.

Code :

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

for each file in InitialDirectory

Tu dois recueillir la liste de tes fichiers dans une collection un tableau selon MS de fichiers avec

Directory.getFiles

ou avec

DirectoryInfo.getfiles

Ensuite tu passes ta boucle For each sur ta collection ton tableau de fichiers. Et tu fais un Workbooks.open sur chaque fichier au début de ta boucle et un workBooks.save et un workbooks.close à la fin de ta boucle.

Et surtout, surtout. File est un mot réservé. Ne l'utilise jamais comme nom de variable. (Et si tu veux dire que ta variable fichier est de type file, tu travailles avec fichier, genre:

Code :

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

1
2
dim Fichier as File
for each fichier in desfichiers

ou

Code :

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

For each fichier as file in desFichiers

Tu peux aussi regarder et télécharger ces exemples:

Automation Excel

Recherche de fichiers

Opérations sur les fichiers

[salimou90]

Bonjour,
Mercu de votre contribuation.
Cependant, je ne trouve pas de méthode pour faire ce que je voulais faire.
Au fait, j'aimerais faire une boucle qui me permet de réaliser un remplissage simultanné (ou presque) des fichier excel qui sont dans un dossier (répertoire bien spécifique)...
j'ai une idée avec des :
For ... each pour pouvoir avoir les nom des fichier qui existent les mettre dans un tableau après ouvrir un par un en mettant dans une boucle for mais ce n'est pas evident...
Cdt