Discussion :

[Polygos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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

[Polygos]

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 !