XL 2010 VBA : Ouvrir et récupérer des données dans des classeurs

[valou]

Bonjour à tous,

J'ai du mal à faire marcher ce code..: Je souhaiterais, en cliquant sur un bouton, ouvrir les uns après les autres des fichiers contenus dans un dossier, effectuer mes instructions (par exemple afficher la cellule A1), fermer le fichier et passer au suivant. Voici le bout de code que j'ai fait en m'inspirant d'exemples.

Pourriez-vous me donner un petit coup de pouce svp

Merci
Val

Private Sub CommandButton2_Click()
Dim Fichier As String, Chemin As String
Dim wb As Worksheet
 
Chemin = "C:\Users\toto\Desktop\2016"
Fichier = Dir(Chemin & "*.xlsx")
 
Do While Fichier <> ""
 
'Ouvrir le fichier
'Instructions (exemple : afficher cellule A1)
'Fermer le fichier
 
wb.Close
Set wb = Nothing
Fichier = Dir
Loop
End Sub

 

[Yurperqod]

Bonjour le forum

valou
Ton code devrait plutôt s'écrire ainsi:

Private Sub CommandButton2_Click()
Dim Fichier As String, Chemin As String
Dim wb As Workbook

Chemin = "C:\Users\toto\Desktop\2016\"
Fichier = Dir(Chemin & "*.xlsx")

Do While Fichier <> ""

'Ouvrir le fichier
Workbooks.open Fichier
set wb=ActiveWorkbook
'Instructions (exemple : afficher cellule A1)
MsgBox wb.sheets(1).range("A1").text
'Fermer le fichier
wb.Close
Set wb = Nothing
Fichier = Dir
Loop
End Sub

 

[Compte Supprimé 979]

Bonjour Valou ;-)

Essaye comme ça

Private Sub CommandButton2_Click()
  Dim Fichier As String, Chemin As String
  Dim Wbk As Workbook

  Chemin = "C:\Users\toto\Desktop\2016\"
  If Right(Chemin,1) <> "\" then Chemin = Chemin & "\"
  Fichier = Dir(Chemin & "*.xlsx")

  Do While Fichier <> ""
    'Ouvrir le fichier
    Set Wbk = Workbooks.Open(Chemin &  Fichier)
    'Instructions (exemple : afficher cellule A1)
    Wbk.Sheets(1).Activate
    Wbk.Sheets(1).Range("A1").Select
    'Fermer le fichier
    Wbk.Close
    Set Wbk = Nothing
    Fichier = Dir
  Loop
End Sub

A+

 

[valou]

Bonjour et merci à vous deux pour les réponses. Hélas cela ne marche toujours pas :'(

Ce lien n'existe plus ton code plante sur la ligne "Workbooks.open Fichier" : le message d'erreur suivant apparait : "nomdemonpremierfichier".xlsx could not be found, check the name... etc étrange, s'il trouve le nom du fichier pourquoi il me dit qu'il le trouve pas..
Ce lien n'existe plus rien ne se passe lors de l'exécution..

 

[Compte Supprimé 979]

Bonjour et merci à vous deux pour les réponses. Hélas cela ne marche toujours pas :'(
Ce lien n'existe plus rien ne se passe lors de l'exécution..

Ca va trop vite, je ne fais que sélectionner la cellule A1
Tu peux remplacer

Wbk.Sheets(1).Range("A1").Select

Par

Msgbox Wbk.Sheets(1).Range("A1").Value

A+

 

[valou]

Merci pour ton aide. J'ai toujours le même problème.. J'ai tenté le code suivant :

Private Sub CommandButton2_Click()
   Dim Fichier As String, Chemin As String
   Dim Wbk As Workbook
  Chemin = "C:\Users\toto\Desktop\2016"
   Fichier = Dir(Chemin & "*.xlsx")
  Do While Fichier <> ""
  MsgBox ("ok")
     'Ouvrir le fichier
     Set Wbk = Workbooks.Open(Chemin & "\" & Fichier)
     'Instructions (exemple : afficher cellule A1)
     Wbk.Sheets(1).Activate
     MsgBox Wbk.Sheets(1).Range("A1").Value
     'Fermer le fichier
     Wbk.Close
     Set Wbk = Nothing
     Fichier = Dir
   Loop
End Sub

Mais même le mesgbox "ok" ne s'affiche pas.. Je crois que le boucle ne balaye pas mes fichiers, il n'y aurait pas un problème avec "Do While Fichier <> "" " ?

Merci encore pour ton implication.
Val

 

[Compte Supprimé 979]

Re,

Autant pour moi, le chemin doit être

Chemin = "C:\Users\toto\Desktop\2016\"

Sinon Dir ne trouvera rien

J'ai modifié mon code plus haut

 

[Yurperqod]

valou
J'avais rajouté également le \ dans le chemin (voir mon premier message)
Chemin = "C:\Users\toto\Desktop\2016\"
comme vient de le faire BrunoM45
Rajout que tu ne sembles pas voir fait, non ?

 

[valou]

Yes c'est parfait, vous gérez tout les deux.
Merci beaucoup et bonne fin de journée.
Au plaisir
Val