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

jihane · 17 Avril 2013

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 · 17 Avril 2013

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

Bonjour,

essaye ceci, ouvrira les fichiers selectionnés :

Code:

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 · 17 Avril 2013

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

Code:

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

jihane · 17 Avril 2013

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

Merci bcp pierrejean, ça marche super bien !!

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

jihane

Guest

Pierrot93

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

jihane

Guest

Discussions similaires

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

jihane

Guest

Pierrot93

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

jihane

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency