Microsoft 365 Dupliquer et nommer fichier en VBA

[phestochri]

bonjour, j'ai besoin d'un ptit coup de main.

j'ai 2 fichier :

-classeur source avec des données de A1 à A20

- classeur vierge

j'aimerai que lors d'un appui sur une des cellules de la feuille source, un classeur vierge se copie automatiquement dans un emplacement prévu

imaginons via un lien hypertexte

appui sur le LIEN HYPERTEXTE pour toutes les cellules de A1 à A20 =BDA-K-2022-1 à 20 --->copies et renommes les calsseurs vierges par la valeur contenu dans les cellule A1 à A20

---->puis le colle dans son emplacement C:\Users\MCC6340\Documents\lignes\LIGNE K

merci de votre aides j'espère avoir été clair

 

[sousou]

Bonjour
pas facile de tester Suivant ta configuration essaie ceci
ca dans un module
Sub copie(valeur, feuille)
chemin = "C:\Users\MCC6340\Documents\lignes\" & feuille & "\"
Workbooks("RECTO VIERGE.xlsm").SaveAs (chemin & valeur & ".xlsm")
End Sub
et ca dans chaqque feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then Call copie(Target, Target.Parent.Name)
End Sub

 

[Bernard_XLD]

Bonjour phestochri, sousou, le forum

pas facile de tester Suivant ta configuration

ce serait sans doute plus facile en utilisant

chemin = Environ("userprofile") & "\Documents\lignes\" & feuille & "\"

Bien cordialement, @+