OVH Cloud OVH Cloud

Sauvegarde....

3 réponses
Avatar
Manu
Bonjour

En debut d'une macro sur un modele xlt, je lui demande d'enregistrer a tel
endroit et que le fichier soit : fichier + Contenue de la cellule B11 +
l'année + le mois + le jour (ce qui donne : "fichier_toto_2007_01_10") et ca
fonctionne,

ActiveWorkbook.SaveAs Filename:="C:\Documents and
Settings\Administrateur\fichier" & "_" & Cells(11, 2).Value & "_" &
Year(Now) & "_" & Month(Now) & "_" & Day(Now) & ".xls"

Le soucis est qu'a la suite de la macro, je demande d'ouvrir un autre
fichier pour faire diffente manip puis je souhaite repartir sur mon fichier
de base, et là je bloque comment lui dire que je veux revenir poursuivre la
macro sur le fichier : fichier" & "_" & Cells(11, 2).Value & "_" & Year(Now)
& "_" & Month(Now) & "_" & Day(Now) & ".xls

Merci

Manu

3 réponses

Avatar
MichDenis
| Le soucis est qu'a la suite de la macro, je demande d'ouvrir un autre
| fichier pour faire diffente manip puis je souhaite repartir sur mon fichier
| de base, et là je bloque comment lui dire que je veux revenir poursuivre la
| macro sur le fichier : fichier" & "_" & Cells(11, 2).Value & "_" & Year(Now)
| & "_" & Month(Now) & "_" & Day(Now) & ".xls


Je ne trouve pas ta présentation très claire !

Ceci étant dit, tu n'as qu'à appeler la macro existante de ton choix d'un autre classeur si
ce dernier est ouvert, où est le problème ?
Avatar
JLuc
Manu avait soumis l'idée :
Bonjour

En debut d'une macro sur un modele xlt, je lui demande d'enregistrer a tel
endroit et que le fichier soit : fichier + Contenue de la cellule B11 +
l'année + le mois + le jour (ce qui donne : "fichier_toto_2007_01_10") et ca
fonctionne,

ActiveWorkbook.SaveAs Filename:="C:Documents and
SettingsAdministrateurfichier" & "_" & Cells(11, 2).Value & "_" & Year(Now)
& "_" & Month(Now) & "_" & Day(Now) & ".xls"

Le soucis est qu'a la suite de la macro, je demande d'ouvrir un autre fichier
pour faire diffente manip puis je souhaite repartir sur mon fichier de base,
et là je bloque comment lui dire que je veux revenir poursuivre la macro sur
le fichier : fichier" & "_" & Cells(11, 2).Value & "_" & Year(Now) & "_" &
Month(Now) & "_" & Day(Now) & ".xls

Merci

Manu
Repertoire = "C:Documents and SettingsAdministrateur"

Fichier = "fichier" & _
"_" & Cells(11, 2).Value & "_" & Year(Now) & _
"_" & Month(Now) & "_" & Day(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:= Repertoire & Fichier
....
....
...
Workbooks(Fichier).Activate

--
JLuc

Avatar
Manu
Super Jluc ca fonctionne impec !
Merci

"JLuc" a écrit dans le message de news:

Manu avait soumis l'idée :
Bonjour

En debut d'une macro sur un modele xlt, je lui demande d'enregistrer a
tel endroit et que le fichier soit : fichier + Contenue de la cellule B11
+ l'année + le mois + le jour (ce qui donne : "fichier_toto_2007_01_10")
et ca fonctionne,

ActiveWorkbook.SaveAs Filename:="C:Documents and
SettingsAdministrateurfichier" & "_" & Cells(11, 2).Value & "_" &
Year(Now) & "_" & Month(Now) & "_" & Day(Now) & ".xls"

Le soucis est qu'a la suite de la macro, je demande d'ouvrir un autre
fichier pour faire diffente manip puis je souhaite repartir sur mon
fichier de base, et là je bloque comment lui dire que je veux revenir
poursuivre la macro sur le fichier : fichier" & "_" & Cells(11, 2).Value
& "_" & Year(Now) & "_" & Month(Now) & "_" & Day(Now) & ".xls

Merci

Manu
Repertoire = "C:Documents and SettingsAdministrateur"

Fichier = "fichier" & _
"_" & Cells(11, 2).Value & "_" & Year(Now) & _
"_" & Month(Now) & "_" & Day(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:= Repertoire & Fichier
....
....
...
Workbooks(Fichier).Activate

--
JLuc