Enregistrement format Excel

Bonjour, j'utilise un userform afin de créer des balisages informatifs. pour cela j'utilise 2 fichiers : le premier m'affiche mon userform et renvoi les infos de celui ci dans le second fichier.

Je souhaite enregistrer automatiquement suivant le contenu d'une cellule mon fichier au format Excel. J'y parviens via la macro suivante :

Code:

---

1 2 3 4 5

Application.DisplayAlerts = False nomsave = Sheets("Feuil1").Range("S2").Value ThisWorkbook.SaveAs (nomsave) Application.DisplayAlerts = True

---

cependant cela remplace mon fichier actuelle ce qui ne m'intéresse pas. Je souhaiterai donc pouvoir enregistrer mon fichier au format excel en gardant ma matrice ouverte et avec son nom d'origine.

Merci de votre aide

Salut,
regarde avec SaveCopyAs dans l'aide.

Citation:

---

Envoyé par neupont

Salut,
regarde avec SaveCopyAs dans l'aide.

---

Merci je vais tenter de voir si cela convient, merci de l'info

Merci de ton aide, j'ai tenter avec la commande SaveCopyAs, ça marche à une exception près c'est que cela ne prends pas en compte ma valeur nomsave. Ci dessous le code de mon bouton :

Code:

---

1 2 3 4

Application.DisplayAlerts = False nomsave = Sheets("Feuil1").Range("S2").Value ActiveWorkbook.SaveCopyAs "C:\Users\Administrateur\Desktop\Fiches balisages\Balisages permanents\XL\(nomsave).xlsm" Application.DisplayAlerts = True

---

Je voudrais que le fichier prenne le nom de la valeur nomsave.

Merci d'avance.

Code:

---

ActiveWorkbook.SaveCopyAs "C:\Users\Administrateur\Desktop\Fiches balisages\Balisages permanents\XL\" & nomsave & ".xlsm"

---

Merci de votre aide, cela fonctionne parfaitement comme je le souhaitais. Merci