Recherche nom fichier dans un dossier et l'ouvrir

[sparx971]

Bonjour tout le monde,

J'ai un petit soucis dans une partie de mon code VBA. Je m'explique:


J'ai un onglet dans une feuille de mon classeur contenant plusieurs nom de sociétés (153 pour être précis)
Je voudrais créer une petite macro qui me permettrait de venir vérifier le contenu des cellules 1 à 153 de ma feuille (lire les valeurs) et d'ouvrir le fichier excel du même nom dans un dossier sur mon bureau.

J'ai donc écris ce petit bout de code:
...
For i = 1 To 153
Set Wsrecup = Workbooks("Classeur 1")
Sheets("Sociétés").Select
valeur = Cells(i, 1).Value
Workbooks.Open Filename:="C:..chemin..." & valeur & ".xlsx"
...
Next i
...

Mon problème est que le programme marche convenablement, mais dès qu'il ne trouve pas le nom d'une société dans le dossier sur mon bureau (par exemple à la lecture de la 3e case, le fichier est introuvable mais celui de la 4e case est bien présent dans le dossier), il s’arrête. En gros je voudrais simplement qu'il vérifie le contenu des 153 cellules et qu'il aille voir dans le dossier s'il trouve ne serait-ce qu'un fichier excel du même nom dans le dossier sur mon bureau à chaque fois que je lance la macro.

C'est la que je bloque donc si quelqu'un a une petite idée, il me sauverait la vie.

 

[Compte Supprimé 979]

Re : Recherche nom fichier dans un dossier et l'ouvrir

Salut Sparx971

Il faut ajouter une gestion d'erreur

...
Set ShtRecup = Workbooks("Classeur 1").Sheets("Sociétés")
For i = 1 To 153
valeur = shtrecup.Cells(i, 1).Value
' Gestion de l'erreur
On Error Goto SuiteBoucle
Workbooks.Open Filename:="C:..chemin..." & valeur & ".xlsx"
...
SuiteBoucle :
Next i

A+

 

[sparx971]

Re : Recherche nom fichier dans un dossier et l'ouvrir

Salut BrunoM45,

Merci pour ta réponse.

J'ai essayé de modifier mon code avec ce que tu m'as conseillé mais j'ai encore la même erreur, à savoir qu'il bloque encore au 3e nom de la société qui n'est pas présent dans le dossier. J'avais également pensé à une gestion d'erreur mais ça me donnait toujours ce même résultat, comme s'il ne prenait pas en compte le "On Error Goto SuiteBoucle" ou bien le Next i

Si tu vois ou ça peut bloquer...

 

[Compte Supprimé 979]

Re : Recherche nom fichier dans un dossier et l'ouvrir

Re,

Sans ton fichier, difficile de le dire

A+

 

[sparx971]

Re : Recherche nom fichier dans un dossier et l'ouvrir

RE

C'est bon j'ai réussi à trouver. En gros j'ai ceci:

Set shtrecup = Workbooks("Classeur 1").Sheets("sociétés")
For i = 1 To 153
valeur = shtrecup.Cells(i, 1).Value

If Dir("C...Chemin..." & valeur & ".xlsx") <> "" Then
Workbooks.Open Filename:="C...." & valeur & ".xlsx"
...
End If
Next i

Et ça marche parfaitement!!

Merci

 

[Compte Supprimé 979]

Re : Recherche nom fichier dans un dossier et l'ouvrir

Re,

Effectivement ... bien vue

A+