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 : 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
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