Microsoft 365 Dupliquer et nommer fichier en VBA

phestochri

XLDnaute Nouveau
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 :)
 

Pièces jointes

  • RECTO VIERGE.xlsm
    21 KB · Affichages: 4
  • feuille source.xlsx
    12.1 KB · Affichages: 1

sousou

XLDnaute Barbatruc
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
 

Statistiques des forums

Discussions
299 845
Messages
1 979 503
Membres
206 753
dernier inscrit
mounir311