Complèter ma macro pour qu'elle ouvre les fichiers trouvés

[jihane]

Bonjour à tous,
J'aurais besoin de votre aide pour compléter ma macro. Je veux créer une macro qui va à un emplacement de mes documents et qui ouvre tous les fichiers qui s'y trouvent, il y'en a que 3 généralement. J'arrive à aller jusqu'à leurs emplacements mais ma macro s'arrête là, j'aimerais pouvoir les ouvrir mnt. Voici mon début de code.

Sub OuvrirClasseur()
Dim strFichier As String
ChDrive ("J:")
ChDir "\jihane"

strFichier = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx")
End Sub

 

[Pierrot93]

Re : Complèter ma macro pour qu'elle ouvre les fichiers trouvés

Bonjour,

essaye ceci, ouvrira les fichiers selectionnés :

Option Explicit
Sub test()
Dim f As Variant, i As Byte
f = Application.GetOpenFilename("Excel ,*.xls", MultiSelect:=True)
If Not VarType(f) = vbBoolean Then
For i = 1 To UBound(f)
    Workbooks.Open f(i)
Next i
End If
End Sub

bon après midi
@+

 

[pierrejean]

Re : Complèter ma macro pour qu'elle ouvre les fichiers trouvés

Bonjour à tous

Si le repertoire ne contient en .xlsx que les fichiers à ouvrir

Sub ouv_fichier()
chemin = "J:\jihane\"
NomFic = Dir(chemin & "*.xlsx")
While NomFic <> ""
  Workbooks.Open (chemin & NomFic)
  NomFic = Dir
Wend
End Sub

 

[jihane]

Re : Complèter ma macro pour qu'elle ouvre les fichiers trouvés

Merci bcp pierrejean, ça marche super bien !!