rechercher en vba si cellule déjà existante et plus si affinités...

[jozerebel]

Bonjour,

J'ai créé une macro qui permet de vérifier si un dossier au nom de la cellule existe sur le pc, et si non, de créer le dossier, générer un fichier et mettre un lien hypertexte sur la cellule...

ci-dessous une partie de mon code:
On Error GoTo fin
ChDrive "y:/"

If Dir("Y:\Impayés Relance et suivi\CLIENTS RELANCES\" & ActiveCell.Text, 16) = "" Then MkDir ("Y:\Impayés Relance et suivi\CLIENTS RELANCES\" & ActiveCell.Text)

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:="Y:\Impayés Relance et suivi\CLIENTS RELANCES\" & ActiveCell.Text, _
TextToDisplay:=ActiveCell.Text


FileCopy "Y:\Impayés Relance et suivi\CLIENTS RELANCES\Suivi impayé FSI FORM 0255.doc", "Y:\Impayés Relance et suivi\CLIENTS RELANCES\" & ActiveCell.Text & "\FSI_" & ActiveCell.Text & ".doc"


Exit Sub

Je souhaite copier cette macro sur tous les onglets de mon classeur. Mais, je souhaiterais rajouter un code qui permette à la macro de vérifier dans les feuilles précédentes si le nom (avec un lien hypertexte qui a été crée) exite déjà, et auxquel cas dupliquer ce lien sur la cellule de ma nouvelle feuille...

Des idées...