Nom de la sauvegarde

[WDAndCo]

Bonsoir le Forum

Toutes les semaines je sauve un fichier a l'aide de cette Macro, et toutes les semaine je dois le renommer en "Secteur SM S22" par exemple et en Info!E20 j'ai 22 comment faire pour remplacer les 00 par le numéro de la semaine ?
j'ai fais "F:\WDAndCo\Personnel\Semaines CRU 2007\Secteur SM S"&Info!E20&".xls" cela ne marche pas !

ActiveWorkbook.SaveAs FileName:= _
"F:\WDAndCo\Personnel\Semaines CRU 2007\Secteur SM S00.xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

D'avance merci et bonne soirée a vous !

 

[Pierrot93]

Re : Nom de la sauvegarde

Bonjour WDAndCo,

essaye peut être comme ceci :

x = DatePart("ww", Date, vbMonday, vbFirstFourDays)
ActiveWorkbook.SaveAs FileName:= _
"F:\WDAndCo\Personnel\Semaines CRU 2007\Secteur SM S" & x & ".xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

bonne fin d'après midi
@+

 

[WDAndCo]

Re : Nom de la sauvegarde

Bonsoir Pierrot93 et le Forum

x = DatePart("ww", Date, vbMonday, vbFirstFourDays) je ne peux pas prendre cela car au moment de la saisie je suis peut-etre a S+1

Part contre si je peux faire x = InfoE20 s'est OK

"F:\WDAndCo\Personnel\Semaines CRU 2007\Secteur SM S" & x & ".xls"

Mais comment mettre la valeur de la cellule E20 de la page Info dans X ?

D'avance merci



Amicalement

 

[Pierrot93]

Re : Nom de la sauvegarde

Re

cette ligne de code te renvoie le numéro de semaine en cours, tu peux remplacer "Date" (fonction qui te renvoie la date du jour) par la date de tonchoix.

pour répondre à ta question, tu peux procéder ainsi :

x = Sheets("Info").range("E20").value

"F:\WDAndCo\Personnel\Semaines CRU 2007\Secteur SM S" & x & ".xls"

E20 contient le numéro de semaine, je suppose.

@+

 

[WDAndCo]

Re : Nom de la sauvegarde

RE

Merci

Oui E20=ARRONDI(E19/7-5583;0) (E19 = le samedi de la semaine-1)

Amicalement

 

[WDAndCo]

Re : Nom de la sauvegarde

Bonsoir le Forum

Ci-dessous un Macro qui devrait me mettre le numéro de la semaine dans le nom de sauvegarde. Mais elle ne marche plus depuis la modif quelqu'un peut m'aider ? 😕

Sub miseenfichier3pages()
'
' miseenfichier3pages Macro
' Macro enregistrée le 01/02/2005 par WD And Co
'

'
Union(Range( _
"U3:U4,P3😛4,T3:T4,S3:S4,O3:O4,N3:N4,M3:M4,J3:J4,W3:W4,3:35,AB3:AB4,AE3:AE4,AD3:AD4,AC3:AC4,AF3:AF4,Z3:Z4,AL3:AL4,AI3:AI4,AG3:AG4,AH3:AH4,AN3:AN4,AO3:AO4,AP3:AP4,AQ3:AQ4,AV3:AV4,AU3:AU4,X3:X4,Y3:Y4,I3:I4,3:34,K3:K4,L3:L4" _
), Range( _
"R3:R4,Q3:Q4,AJ3:AJ4,AK3:AK4,AR3:AR4,AM3:AM4,AS3:AS4,AA3:AA4,AT3:AT4,V3:V4")). _
Select
Range("A3").Activate
Selection.EntireRow.Hidden = False
Range("A14").Select
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Select
Sheets("TNA A et D").Activate
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Copy
Range("A1").Select
Sheets("TNA A et D").Select
Range("A1").Select
Sheets("TNA A et D").Select
x = Sheets("Info").Range("E20").Value
ActiveWorkbook.SaveAs Filename:= _
"F:\WDAndCo\Personnel\Semaines CRU 2007\Secteur SM" & x & ".xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("VHR A et D").Select
Range("J2").Select
End Sub

D'avance merci

 

[Pierrot93]

Re : Nom de la sauvegarde

Bonjour WDandCo

qu'entends tu par elle ne marche plus, elle bogue sur une ligne où tu n'obtiens pas le résultat attendu ? tu n'as pas le nom souhaité de ton classeur sauveggardé ?

bonne journée
@+

 

[ChTi160]

Re : Nom de la sauvegarde

Salut Dominique
Bonjour Pierrot
Bonjour le Forum

je passe et qui je vois Dominique(Le Ch'ti)

je regarde ton code et sans savoir ce qui ne fonctionne pas je me dis que tu Copy mais ne Paste (Colle) pas Lol

de plus tu sélectionnes souvent Lol et la même chose pourquoi ??? Lol

Range("A14").Select
    Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Select
[COLOR=red]    Sheets("TNA A et D").Activate[/COLOR]
    Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).[B][COLOR=seagreen]Copy[/COLOR][/B]
[COLOR=blue]    Range("A1").Select[/COLOR]
[COLOR=red]    Sheets("TNA A et D").Select[/COLOR]
[COLOR=blue]    Range("A1").Select[/COLOR]
[COLOR=red]    Sheets("TNA A et D").Select[/COLOR]

si je comprends bien
1° tu selectionnes 3 feuilles
2° tu en actives 1 ("TNA A et D")
3° tu copy les Trois feuilles sélectionnées
4° tu veux ensuite coller le tout dans la feuille Active à partir de la Cellule A1
ensuite tu sélectionnes et tu resélectionnes 3 fois Lol

As tu utilisé l'enregistreur de macro ??? tu pourras ainsi avoir la marche à suivre

ce que tu veux ,n'est il pas de créer un nouveau classeur où tu vas coller les feuilles de ton array et ensuite l'enregistrer sous le nom défini ?????

Expliques nous
Merci D'avance
Bonne journée

 

[ChTi160]

Re : Nom de la sauvegarde

re Dominique

voilà ce que donne l'enregistrement de l'opération suivante Création d'un classeur collage des Feuilles du fichier Source dans ce classeur Cible on renomme le Classeur Cible on l'enregistre et on le ferme

Sub creerClasseur()
'
' creerClasseur Macro
' Macro enregistrée le 13/06/2007 par  Jean Marie
'
Dim MyName As String
Dim oWBook As Workbook
     [COLOR=red]MyName[/COLOR] = "Transfert_01.xls"  [COLOR=seagreen]'a adapter[/COLOR]
  Set oWBook = Workbooks.Add  [COLOR=green]'on ajoute un Classeur
[/COLOR]
    Windows("Test_transfert.xls").Activate  [COLOR=green]'on active le classeur Source
[/COLOR]  Sheets(Array("Feuil1", "Feuil2")).Select [COLOR=green]'on y sélectionne les feuilles 1 et 2
[/COLOR]  Sheets("Feuil1").Activate  [COLOR=seagreen]' à voir [/COLOR]
[COLOR=green]'ci dessous on colle les feuille ainsi sélectionnées dans le Classeur Cible
[/COLOR]  Sheets(Array("Feuil1", "Feuil2")).Move After:=oWBook.Sheets(1)
 [COLOR=green] 'Ici on l'enregistre[/COLOR]    
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\XXXXXXX\Mes documents\12062007\" & [COLOR=red]MyName[/COLOR] _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

reste ensuite à l'adapter pour quelle réponde à ton besoin

Bonne journée

 

[WDAndCo]

Re : Nom de la sauvegarde

Bonsoir le Forum et Pierrot93 et a toi Jean Marie (Un fichier pour toi suit !)

Depuis 2005 cette macro marche sa probleme, j'ai fait la modif X = Sheets("Info").Rang("E20").Value pour avoir le n° de la semaine dans le nom du fichier. Ici dessous le message d'erreur "Erreur d'execution 9" "L'indice n'appartient pas à la selection"

D'avance merci

 

[Pierrot93]

Re : Nom de la sauvegarde

Bonsoir Dominique, Jean Marie

Tu as bien un onglet nommé "Info" dans le classeur actif ?

Ta variable "x" est elle bien déclarée, sinon déclares la en "string"

Dim x As String

?

Dernier point, peut être, ta cellule E20 renvoie bien une valeur, de toute façon, sinon elle renvoie "0" !!!

bonne soirée
@+

 

[ChTi160]

Re : Nom de la sauvegarde

Salut les artistes lol

il faut essayer(non testé) aussi de remplacer Sheets("Infos") pa r WorkSheets("Infos")

arffffffff j'ai testé et ca fonctionne pour les deux Lol

Bonne fin de Soirée

 

[WDAndCo]

Re : Nom de la sauvegarde

Bonsoir le Forum et Jean-Marie

Je confirme elle ne marche pas (plus) suis j'inclus le numéro de la semaine dans le nom du nouveau fichier, la macro ce bloque.

Sub miseenfichier2pages()
'
' miseenfichier2pages Macro
' Macro enregistrée le 01/02/2005 par WD And Co
'

'
Union(Range( _
"U3:U4,P3😛4,T3:T4,S3:S4,O3:O4,N3:N4,M3:M4,J3:J4,W3:W4,3:35,AB3:AB4,AE3:AE4,AD3:AD4,AC3:AC4,AF3:AF4,Z3:Z4,AL3:AL4,AI3:AI4,AG3:AG4,AH3:AH4,AN3:AN4,AO3:AO4,AP3:AP4,AQ3:AQ4,AV3:AV4,AU3:AU4,X3:X4,Y3:Y4,I3:I4,3:34,K3:K4,L3:L4" _
), Range( _
"R3:R4,Q3:Q4,AJ3:AJ4,AK3:AK4,AR3:AR4,AM3:AM4,AS3:AS4,AA3:AA4,AT3:AT4,V3:V4")). _
Select
Range("A3").Activate
Selection.EntireRow.Hidden = False
Range("A14").Select
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Select
Sheets("TNA A et D").Activate
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Copy
Range("A1").Select
Dim x As String
x = Sheets("Info").Range("E20").Value
ActiveWorkbook.SaveAs Filename:= _
"F:\dominique.wicquart\Personnel\Semaines CRU 2007\Secteur SM" & x & ".xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("VHR A et D").Select
Range("J2").Select
End Sub


Une Bonne soirée a vous tous !

Dominique

 

[ChTi160]

Re : Nom de la sauvegarde

salut Dominique
essaye de mettre l'ensemble du nom du fichier dans la variable

Exemple

x = "Secteur SM" & Sheets("Info").Range("E20").Value & ".xls"

ActiveWorkbook.SaveAs Filename:= _
"F:\dominique.wicquart\Personnel\Semaines CRU 2007\" & x _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
non testé Lol 😉

Bonne fin de Soirée

 

[WDAndCo]

Re : Nom de la sauvegarde

Bonsoir le Forum, Jean-Marie et Pierrot93

Non rien de tous cela marche et toujours la meme erreur : "Erreur d'execution 9" "L'indice n'appartient pas à la selection"

Sub miseenfichier2pages()
'
' miseenfichier2pages Macro
' Macro enregistrée le 01/02/2005 par WD And Co
'

'
Union(Range( _
"U3:U4,P3😛4,T3:T4,S3:S4,O3:O4,N3:N4,M3:M4,J3:J4,W3:W4,3:35,AB3:AB4,AE3:AE4,AD3:AD4,AC3:AC4,AF3:AF4,Z3:Z4,AL3:AL4,AI3:AI4,AG3:AG4,AH3:AH4,AN3:AN4,AO3:AO4,AP3:AP4,AQ3:AQ4,AV3:AV4,AU3:AU4,X3:X4,Y3:Y4,I3:I4,3:34,K3:K4,L3:L4" _
), Range( _
"R3:R4,Q3:Q4,AJ3:AJ4,AK3:AK4,AR3:AR4,AM3:AM4,AS3:AS4,AA3:AA4,AT3:AT4,V3:V4")). _
Select
Range("A3").Activate
Selection.EntireRow.Hidden = False
Range("A14").Select
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Select
Sheets("TNA A et D").Activate
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Copy
Range("A1").Select
Sheets("TNA A et D").Select
Range("A1").Select
Sheets("TNA A et D").Select
ActiveWorkbook.SaveAs FileName:= _
"F:\xxxxxxxx.xxxxxxxx\Personnel\Semaines CRU 2007\Secteur SM S00.xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("VHR A et D").Select
Range("J2").Select
End Sub

S00 doit être égal a S24 cette semaine

Une bonne soirée à vous tous !

Dominique 🙂