Ouvrir un dossier suivant le nom/prenom dans la une cellule

Bonjour,

je suis novice en VBA et j'aimerai que mon code (ci-joint) ouvre un dossier en fonction du NOM/Prénom se trouvant tout le temps dans la case A1 car j'ai environ 30 feuille avec des prénoms différents donc j'ai fait une macro avec un chemin différent pour chaque personne (long et répétitif) et j'aimerai savoir si c'est possible que le programme lise la case A1 suivant la page ou je me trouve. Je met un fichier exemple ou la première feuille ne sert a rien pour mon problème. Merci d'avance de vos réponse.

Sub DossierBranthonneWilliam()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\BRANTHONNE WILLIAM" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierBrissetLeo()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\BRISSET LEO" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

J'ai essayé de le faire pour chaque feuil sauf que je ne sais comment Excel reconnait dans quel feuil je suis.

Sub DossierTEST()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\" & Worksheets.Range("A1").Value '<-- j'ai essaye que ça lise le nom dans la case A1 pour n'importe qu'elle feuille ça ne peut pas marcher comme ça.

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Car actuelle le programme marche individuellement mais il ressemble a ça sachant que chaque Nom/Prénom et situé dans la case A1

Sub DossierBranthonneWilliam()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\BRANTHONNE WILLIAM" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierBrissetLeo()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\BRISSET LEO" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierCadelJeremy()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\CADEL JEREMY" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierCorbetNicolas()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\CORBET NICOLAS" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierDecoularedelafontaineFlorian()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\DELACOURARE-DELAFONTAINE FLORIAN" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierDuchesneThibaut()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\DUCHESNE THIBAUT" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierDuvalDavid()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\DUVAL DAVID" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierFeuardentNicolas()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\FEUARDENT NICOLAS" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub
Sub DossierFouchardAlexis()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\FOUCHARD ALEXIS" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierKowalczykLaurent()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\KOWALCZYK LAURENT" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierJoretSven()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\JORET SVEN" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierJumelinClara()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\JUMELIN CLARA" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierLeballaisLoic()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\LE BALLAIS LOIC" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierLefilliatreArnaud()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\LE FILLIATRE ARNAUD" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Sub DossierLemolaireMathieu()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\LE MOLAIRE MATHIEU" '<-- adaptez le nom du Dossier

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

bonjour,

essaie ceci (non testé)

Sub DossierTEST()
Dim MonDossier As String
MonDossier = "C:\Users\I82082\Desktop\Dossier Agent\Auto\" & ActiveSheet.Range("A1").Value '<-- j'ai essaye que ça lise le nom dans la case A1 pour n'importe qu'elle feuille ça ne peut pas marcher comme ça.

If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End If

End Sub

Ca marche bien merci beaucoup j'utilise la mauvaise fonction xD