Extraire une partie du nom du fichier actif pour l'utiliser comme un paramètre du code

Version imprimable

21/08/2020, 17h29
Polygos

Extraire une partie du nom du fichier actif pour l'utiliser comme un paramètre du code

Bonjour

mon activeworkbook étant actif, puis je et comment en extraire une opartie du nom pour m'en reservir plu sloin pour renommer sa sauvegarde ?

Je m'explique

Fichier BdD_1005ED2306.xlsm est son nom

en cours de programme, je vais faire une sauvegarde de lui à un état différent et je voudrais la nommer BdD_1005ED2306_mofifié_JJHH.xlsm
ou JJHH sont écrits ainsi

Code:

ActiveWorkbook.SaveAs "\\Station-serveur\Sauvegarde\ BdD_1005ED2306 modifié le" & Format(Now(), "mmdd-hhmm") & ".xlsm"

avec la dedans la partie BdD_1005ED2306 venant d"'une variable.
Ex
var = qqchose comme "partie gauche de x caractères du nom du fichier", ce qui suppose de savoir extraire le nom du fichier qui contient le code sous forme de variable "var" et donc pouvoir écrire

Code:

ActiveWorkbook.SaveAs "\\Station-serveur\Sauvegarde\ "&var"& "modifié le" & Format(Now(), "mmdd-hhmm") & ".xlsm"

Vous voyez mon besoin ?
comment extraire le nom (variable manuellement) du classeur actif ?
Merci

Salut

Code:

1
2
3
4
5
6
  Dim Name As String
 
  Name = ActiveWorkbook.FullName
  Name = Replace(Name, ".xlsm", "")
  Name = Name & " modifié le " & Format(Now(), "mmdd-hhmm") & ".xlsm"
  ActiveWorkbook.SaveAs Name

21/08/2020, 17h58
Patrice740

Bonjour,

Pour éviter de modifier le nom du classeur actif, et pouvoir re-sauvegarder plus tard, il est préférable d'utiliser SaveCopyAs plutôt que SaveAs.
22/08/2020, 08h09
Pierre Fauconnier
Je plussoie Patrice (Hello), surtout au vu de cette discussion qui est probablement en lien avec ta demande actuelle.

Si demain tu utilises le classeur "modifié le" et que tu lui appliques ta macro, ça va devenir rigolo...

Tu aurais intérêt à travailler avec un classeur actif qui est toujours nommé de la même façon, et tu en archives de copies avant et après modifs.
- Classeur_Actif
- Sauvegarde AVANT modifs avec SaveCopyAs Classeur_Avant_Modif_hhmm.xlsm
- Modifs
- Sauvegarde APRES modifs avec SaveCopyAs Classeur_Modifié_hhmm.xlsm
24/08/2020, 18h49
Polygos
Citation:
Envoyé par Pierre Fauconnier

Je plussoie Patrice (Hello), surtout au vu de cette discussion qui est probablement en lien avec ta demande actuelle.

Si demain tu utilises le classeur "modifié le" et que tu lui appliques ta macro, ça va devenir rigolo...

Tu aurais intérêt à travailler avec un classeur actif qui est toujours nommé de la même façon, et tu en archives de copies avant et après modifs.

Classeur_Actif
Sauvegarde AVANT modifs avec SaveCopyAs Classeur_Avant_Modif_hhmm.xlsm
Modifs
Sauvegarde APRES modifs avec SaveCopyAs Classeur_Modifié_hhmm.xlsm
Merci les gars, c'est ce que j'ai fait; ca fonctionne. Merci à vous !