é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.
VB:
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….
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
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.