Microsoft 365 Dupliquer et nommer fichier en VBA

phestochri · 10 Janvier 2022

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 · 10 Janvier 2022

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 · 11 Janvier 2022

Bonjour phestochri, sousou, le forum

sousou à dit:
pas facile de tester Suivant ta configuration

ce serait sans doute plus facile en utilisant

VB:

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

Bien cordialement, @+

Microsoft 365 Dupliquer et nommer fichier en VBA

phestochri

XLDnaute Nouveau

Pièces jointes

sousou

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires