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.
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.