Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien

[Chapichapo]

Bonjour le Forum,

étant novice en vba je cale un peu sur ce qui suit

j’ai 2 documents de travail :

a) le principal : p_bdd

b) les secondaires

p_forum_planf1

p_forum_planf2

p_forum_planf3

et ainsi de suite

Les classeurs p_forum_planf……vont rechercher des données dans p_bdd

j’essaie de trouver une macro qui enregistrerait par exemple

le classeur p_forum_planf1 ou autre sous le nom de la cellule A14 de l’onglet CP mais uniquement la valeur et non le lien vers le fichier p_bdd

j’ai un code mais il enregistre le lien et je ne sais comment faire pour qu’il enregistre uniquement la valeur de la cellule A14 de l’onglet CP.

Sub nom_fichier_valeur_cellule()


'enregistrement classeur entier en rapport avec valeur cellule


Dim Path As String


Dim filename As String


Path = "C:\Users\danhc\Documents\L…..\PA\"


filename = Range("A14")


ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal


End Sub

Au lieu d’indiquer C:\Users\danhc\Documents\L…..\PA\

est-il possible d’avoir d’avoir la fenêtre enregistrer sous pour savoir où l’on enregistre sans pour cela toujours aller dans la macro pour changer le répertoire au cas où ?


je joins les fichiers pour plus de facilité.

Je ne sais pas si je suis très claire dans mes explications

Je vous remercie par avance pour votre aide, je bloque….


planf....

bdd

 

[Chapichapo]

oops j'ai oublié le fichier après ma macro.
merci

 

[sousou]

bonjour
essaie ceci
Sub non_fichier_valeur_cellule()
'enregistrement classeur entier en rapport avec valeur cellule
Dim Path As String
Dim filename As String
Path = "C:\Users\danhc\Documents\LANAIS\PA\"
filename = Range("A14").Value
r = Application.GetSaveAsFilename(filename, Filefilter:=" fichier xlsm,*.xlsm")
ActiveWorkbook.SaveAs r
End Sub

 

[Chapichapo]

Bonsoir,

Merci pour la réponse rapide.

Je pense que je ne me suis pas bien exprimée :

en fait quand le fichier est enregistré il garde en mémoire =[p_forum_bdd.xlsx]bdd!$C$2
or je souhaite que les liens de ce fichier reprenne les valeurs de ces liens donc pour celui-ci : tintin milou

tous les liens seront repris viendront de l'onglet bdd du fichier p_bdd et doivent être supprimés dans la version enregistrée sous.

Je remets le fichier avec votre macro

Merci bcp
planf1
bdd