Enregistrer un new classeur sans basculer dessus

bonjour,

mon fichier s'appelle : SUIVI P13

jutilise une macro afin de faire un enregistrement automatique dans un dossier annexe . en ajoutant la date automatique (mois-année)

le nom de mon enregistrement s'appelle : SUIVI P13_07-11

une fois cette macro lancée. je ne suis donc plus sur mon fichier SUIVI P13 mais sur SUIVI P13_07-11

ma demande :

comment faire pour rester sur le fichier SUIVI P13?

Merci

Alban

Bonjour alban,

Essaie en ajoutant la ligne :

Workbooks("SUIVI P13").Activate

Non ne fonctionne pas ...

voici ma macro de base :

'Macro archivage & sauvegarde avec date du jour

Application.ScreenUpdating = False

chemin1 = ThisWorkbook.Path

chemin3 = "\Archives\"

GCT = Worksheets("Accueil").Range("A1")

nomfichier = "Suivi P13" & GCT & Format(Date, "_mm-yy")

extension = ".xlsm"

With ActiveWorkbook

.SaveAs Filename:=chemin1 & "\" & GCT & chemin3 & nomfichier & extension

Re,

Essaie alors en mettant à la fin de ton code :

ThisWorkbook.Activate

non plus

Où se trouve la macro ? Dans le fichier "SUIVI P13" ? Où as-tu mis le code que je t'ai donné ?

Sinon, envoie ton fichier en ne gardant que la macro.

voilà le dossier

dans un premier temps

1) tu dois sur l'onglet GCT entrer dans le formulaire et inscrire un nom puis valider

afin de créer des dossier automatique ou se fera l'enregistrement

2) va dans l'onglet accueil , sélectionne le nom que tu as choisi dans le menu déroulant

3) clique bouton archivage

4) tu peux voir que l'on a changé de fichier , et donc le soucis c'est que de ce fait mon bouton archivage ne fonctionne plus, car le chemin d'accès a changé

T'as oublié de joindre le fichier !

bonjour,

Modifier la macro comme suit :

'Macro archivage & sauvegarde avec date du jour

Application.ScreenUpdating = False

chemin1 = ThisWorkbook.Path

chemin3 = "\Archives\"

GCT = Worksheets("Accueil").Range("A1")

nomfichier = "Suivi P13" & GCT & Format(Date, "_mm-yy")

extension = ".xlsm"

ActiveWorkbook.SaveCopyAs chemin1 & "\" & GCT & chemin3 & nomfichier & extension

A+

Ah bien vu galopin !

Super ... merci à vous ... avec du retard