Discussion :

[pombela]

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 :

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

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

[neupont]

Salut,
regarde avec SaveCopyAs dans l'aide.

[pombela]

Salut,
regarde avec SaveCopyAs dans l'aide.

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

[pombela]

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 :

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

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.

[AlainTech]

Code :

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

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

[pombela]

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