Changer nom de feuille à nom variable...

Bonjour et merci Albank,

J´avais essayé cette posibilité mais cela ne fonctionne pas. L'application excel reste ouverte mais se n´ouvre pas le document "guardarcomo".
Et de plus savez vous pourquoi le document enregistré ne comporte pas de mot de passe?

Cordialement

 
Je te propose ce code VBA :

Option Explicit


Sub Guardar()

  Dim Chemin As String, NF As String: Chemin = "C:\Users\user\Desktop\lotes\"
  With Worksheets("Hoja1")
    NF = .[F2] & " " & .[D2] & " " & Format(Date, "yyyy-mm-dd") & ".xlsm"
  End With
  
  ' on sauvegarde le classeur actuel sous un autre nom
  ActiveWorkbook.SaveAs Chemin & NF, 52, "Dispensacion"
  
  ' attention : ce classeur est resté ouvert ; si on le ferme, la macro
  ' actuelle s'arrêtera (il me semble bien, je te laisse le vérifier).
  
  ' ouverture du fichier originel
  Workbooks.Open "C:\Users\user\Desktop\guardarcomo.xlsm"
  
  ' le 1er classeur (sauvegardé sous un autre nom) est resté ouvert,
  ' donc tu as maintenant 2 classeurs ouverts.
  
  ' fermeture du classeur actuel
  ActiveWorkbook.Close

End Sub

À te lire pour avoir ton avis, albkan. Cordialement.  :)
 

Merci de ta reponse,

Du coup j´ai plein de question:
-un classeur est ouvert mais c´est le nouveau classeur créé, je pense pcq cela reste l´activeWorkbook
-maintenant il y a un mot de passe pour l´ouverture de ce fichier, GENIAL mais a quel moment dans le code tu définis le mdp ?
- pourquoi en début de code tu définis option explicit?
-pourquoi tu définis NF a quoi te sers cette variable?

Merci :)

 
Quand on ouvre un fichier, il apparaît dans la fenêtre active,
et ce fichier devient alors le classeur actif : ActiveWorkbook

-----------------------------------------------------

NF est une variable de type String ; c'est donc une chaîne de caractères.
Je l'ai appelée ainsi pour : « Nom Fichier » ; ensuite, je l'ai bien affectée
avec ton nom de fichier :

.[F2] & " " & .[D2] & " " & Format(Date, "yyyy-mm-dd") & ".xlsm"

Si tu lances toujours cette macro depuis ta feuille "Hoja1", tu peux remplacer

  With Worksheets("Hoja1")
    NF = .[F2] & " " & .[D2] & " " & Format(Date, "yyyy-mm-dd") & ".xlsm"
  End With

par :

  NF = [F2] & " " & [D2] & " " & Format(Date, "yyyy-mm-dd") & ".xlsm"

Attention : il n'y a plus de point devant [F2] et [D2] !

Même si NF est utilisé une fois seulement, je préfère le faire ainsi pour
la lisibilité du code : l'instruction SaveAs devient bien plus claire !

Autre option : se passer de NF et utiliser le caractère de continuation
de ligne « _ », mais je préfère la 1ère façon ; à toi de choisir !  ;)

-----------------------------------------------------

Voici l'instruction qui sauvegarde le classeur sous un autre nom :
SaveAs nom_du_classeur, format_du_fichier, mot_de_passe

nom_du_classeur : Chemin & NF ; comme ton Chemin se termine par « \ »,
c'est OK ; sinon, il aurait fallu mettre : Chemin & "\" & NF

format_du_fichier : 52 correspond à ce format de fichier (avec macros) :
xlOpenXMLWorkbookMacroEnabled

mot_de_passe : c'est ici qu'il faut mettre ton mot de passe, celui que
tu veux pour le classeur que tu enregistres sous un autre nom.

-----------------------------------------------------

Si on met « Option Explicit », il doit obligatoirement être au début du Module.

Quand on le met, ça oblige le programmeur à déclarer toutes les variables
et constantes utilisées. Ainsi, lors de la compilation du programme, ça va
s'arrêter sur une erreur si une variable ou constante n'a pas été déclarée.
Idem si on appelle une function ou une sub dont le nom est inexistant.

Souvent, c'est un nom mal orthographié qui cause l'erreur ; rappel :
Une variable déclarée, mais sans type associé a le type Variant.

-----------------------------------------------------

Dans mon code VBA, après les avoir lus, tu peux bien sûr
supprimer tous les commentaires qui te sont inutiles.

-----------------------------------------------------

Merci de répondre à ce message, ainsi qu'à celui-ci.  :)
 

 
Oui, tu as tout à fait raison ; désolé : je me suis trompé !

En effet, après l'instruction ActiveWorkbook.SaveAs ...
le fichier originel guardarcomo.xlsm n'est plus ouvert.

Je te propose donc ce nouveau code VBA :

Option Explicit


' Cette macro est normalement dans le classeur guardarcomo.xlsm ; donc quand
' tu lances l'exécution, c'est guardarcomo.xlsm qui est le classeur actif.

Sub Guardar()

  Dim Chemin As String, NF As String: Chemin = "C:\Users\user\Desktop\lotes\"
  With Worksheets("Hoja1")
    NF = .[F2] & " " & .[D2] & " " & Format(Date, "yyyy-mm-dd") & ".xlsm"
  End With
  
  ' On sauvegarde le classeur actif guardarcomo.xlsm sous le nom NF,
  ' et suite à cela, le seul classeur ouvert est NF.
  
  ActiveWorkbook.SaveAs Chemin & NF, 52, "Dispensacion"
  
  ' NF est donc le seul classeur ouvert, et c'est le classeur actif.
  ' AVANT de le refermer, on ouvre guardarcomo.xlsm
  
  Workbooks.Open "guardarcomo.xlsm"
  
  ' Tu as donc maintenant tes 2 fichiers ouverts en même temps :
  ' NF et guardarcomo.xlsm ; et c'est ce dernier qui est actif.
  
  ' Comme guardarcomo est actif, le plus simple pour fermer NF est :
  
  Workbooks(NF).Close

End Sub

Dis-moi ce que tu en penses, et si ça te convient.  :)
 

C´est que je suis tres concentré sur les conseils que l´on me donne :)


J´ai juste remplacé ce bout de code:

  Workbooks.Open "guardarcomo.xlsm"

par

  Workbooks.Open "C:\Users\user\Desktop\guardarcomo.xlsm"

Et cela marche a merveille, si je pourrais je mettrais un double résolu pour toi albkan ;)

Je n´ai pas encore la bonne logique d'ecriture mais grâce a des conseils avisé je sens que je comprends pluss mieuxx

MERCI!!