Ouvrir fichiers multiple VBA

Version imprimable

Bonjour a tous,

Je souhaite a la place d'ouvrir un seul fichier ouvrir plusieurs.
Je veux d'abord Chercher le repertoire ou ce trouve mes fichiers ouvrir un par un d'une facon automatique.
et garder le variable Nom_Fichier et wbMyWb car j'aurais besoin dans le traitement de mes fichiers.

Merci pour votre aide.

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
Sub OuvrirBaseBOMseulfichier()
 
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.rep), *.rep")
If Nom_Fichier <> False Then
   Set wbMyWb = Workbooks.Open(Nom_Fichier)
  wbMyWb.Activate
End If
 Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:= _
        True
 
If Range("A2").Value = "ACHATS" Then
CopierBaseBOMseulfichier
Else
If (Range("A1").Value = "ACHATS") And (Range("B1").Value = "") Then
 
MsgBox ("Fichier Base BOM " & Nom_Fichier & " est vide")
 
Else
If (Range("B1").Value <> "") Then
CopierBaseBOMseulfichier
Else
MsgBox "Fichier Base BOM non valide merci d'entrer un fichier valide"
End If
End If
 
End If
With wbMyWb
 .RunAutoMacros xlAutoClose
 .Close savechanges:=False
End With
 
End Sub

01/06/2017, 14h53
Jean-Philippe André

Bonjour,

dans la :faq: on trouve des exemples tres pratiques :

https://excel.developpez.com/faq/?pa...etOpenFileName

Toujours passer par la :faq: en cas de question, puis le forum ;)

Merci beaucoup ce Code ma aider avec une petite modification.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub ChoixFichier()
    'La variable est de type Variant car elle peut prendre les valeurs:
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Fichier As Variant
 
    'Affiche la boîte de dialogue "Ouvrir"
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
 
    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    If Fichier = False Then Exit Sub
 
    'Affiche le chemin et le nom du fichier sélectionné.
    MsgBox Fichier
 
End Sub