Ouverture plusieurs fichiers Excel
Bonjour à tous,
j'ai consulté pas mal de post sur ce sujet mais je n'arrive pas à trouver chaussures à mon pied ...
En fait je souhaiterai pouvoir ouvrir tous les fichiers excel contenu dans le dossier R:\Comptabilite\Budget\ commencant par 1 - VIP .
Voici la commande que j'utilise :
Sub infonewb()
On Error Resume Next
Set FichierSch = Application.FileSearch
With FichierSch
.LookIn = "R:\Comptabilite\Budget\" 'Dossier dans lequel chercher tes fichiers
.Filename = "*.xlsm" 'Extension des fichiers a trouver
If .Execute > 0 Then 'S'il en trouve
For x = 1 To .FoundFiles.Count
If InStr(1, .FoundFiles(x), "1 - VIPC") <> 0 Then
Workbooks.Open Filename:=.FoundFiles(x)
End If
Next x
Else
MsgBox ("pas de fichier excel trouvé")
End If
End With
End Sub
Pourriez vous m'aiguiller svp ?
Merci par avance pour votre aide,
Cdt,
Bonjour,
Application.FileSearch a disparu avec Excel 2010...
Cdlt.
Merci,
j'ai trouvé avec ce code cela fonctionne
Sub test()
Dim MonRepertoire As String, fso As Object, f As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "R:\Comptabilite\Budget\"
For Each f In fso.GetFolder(MonRepertoire).Files
If Left(f.Name, 8) = "1 - VIPC" Then Workbooks.Open MonRepertoire & f.Name
Next f
End Sub
Par contre maintenant je souhaiterai récupérer les informations des classeurs ouverts et les importer dans le classeur source .
Par exemple dans le fichier VIPC Guillaume je voudrai récupérer l'info de la cellule E20 et la reporter dans le fichier source Synthese VIPC dans la cellule B13 ,et dans le fichier VIPC Carine je voudrai récupérer l'info de la cellule E20 et la reporter dans le fichier source Synthese VIPC dans la cellule B14, dans le fichier VIPC Hector je voudrai récupérer l'info de la cellule E20 et la reporter dans le fichier source Synthese VIPC dans la cellule B15 je voudrai qu'il me renouvelle l'opération autant de fois qu'il y a de classeurs ouvert commencant par VIPC
Pensez vous que cela soit possible ?
Merci par avance,
Cdt,