Bonjour,

Je souhaite créer une macro pour ouvrir un lien hypertexte qui ouvre un classeur et qui doit ensuite l'enregistrer dans un dossier (je sais pas très clair, c'est pourquoi je joins la macro)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Range("A1").Select
 
    Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
    ChDir "C:\Nouveau dossier (3)"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Nouveau dossier (3)\rrrr.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
Mon soucis c'est que je vais le faire pour chaque cellule A1, A2,A3,.... et donc ma macro actuelle enregistre à chaque fois sous rrrr.xls, alors que chaque classeur (ouvert avec le lien hypertexte) porte un nom différent...

Si en plus, vous pouviez me donner le code pour que la macro aille automatiquement de la cellule A1, A2, A3,.....: c'est à dire range("toutes les cellules A").select, ce serait le bonheur total !!!!!

Merci