[VBA][Excel] Ouverture Enregistrement fichier

Version imprimable

Je dispose d'un fichier :
Colonne 1 : des actions
Colonne 2 : les fréquences des actions
Colonne 3 : les dates d'échéance des actions.

Par exemple :
Nettoyage filtres 3 mois 27/09/2006
Remplacement accu 6 mois 31/12/2006

J'ai un fichier masque. xls qui se trouve sous C:\TRAVAIL\Maintenance\masque.xls

Je souhaiterai faire une macro qui ouvre le fichier masque, puis qui me l'enregistre au nom de la valeur contenu dans la colonne 1.
-lance ma macro
-ouvrir le fichier masque
-enregistrer sous C:\TRAVAIL\Maintenance\Référentiel\ Nettoyage filtres.xls
-revenir au fichier initial puis
-ouvrir le fichier masque
-enregistrer sous C:\TRAVAIL\Maintenance\Référentiel\Remplacement accu.xls

Pour ouvrir le fichier, je sais faire
Code:

1 2 Workbooks.Open Filename:="C:\TRAVAIL\Maintenance\Référentiel\"masque.xls"
Pour enregistrer un fichier :
Code:

1 2 3 4 5 ActiveWorkbook.SaveAs Filename:= _ "C:\TRAVAIL\Maintenance\Archive\Nettoyage filtres.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False
Mon soucis est de comment les mettre dans une même macro. Car là je les utilise séparément.
Merci de votre aide.

28/07/2006, 09h35
ouskel'n'or

Tu les mets à la suite en séparant les deux par

Code:

DoEvents

Tu dis ;)

C'est à dire :

Code:

1
2
3
4
5
6
7
8
 
Private Sub Décembre_Click()
Workbooks.Open Filename:="C:\TRAVAIL\Maintenance\Référentiel\"masque.xls"
DoEvents
ActiveWorkbook.SaveAs Filename:= _
        "C:\TRAVAIL\Maintenance\Archive\Nettoyage filtres.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

C'est bien cela ???

28/07/2006, 10h29
ouskel'n'or

Oui ! Tu as essayé ? ;)

PS - Regarde dans l'aide "l'effet" qu'a DoEvents
28/07/2006, 12h00
mulanzia2003

je vais essayer cela ce week end.
Je n'hésite pas non plus à regarder dans l'aide les nouvelles commandes.
Merci de ton aide et je te donne une réponse demain je pense.

Bon voici ce que j'ai fait et cela fonctionne.
Merci à toi ouskel'n'or

Une petite question supplémentaire.
A partir du mon fichier1.xls j'ouvre une fiche masque.xlsen je l'enregistre avec le nom de la variable NomFichier.
Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton1_Click() For i = 3 To 90 NomFichier = Worksheets("FM").Cells(i, 25).Value ChDir "J:\GTE_INDI\Préventif 2006" Workbooks.Open Filename:= _ "J:\GTE_INDI\Préventif 2006\masque.xls" ChDir "J:\GTE_INDI\Préventif 2006\Référentiel\FM" ActiveWorkbook.SaveAs Filename:= _ "J:\GTE_INDI\Préventif 2006\Référentiel\FM\" & NomFichier & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWindow.Close Next End Sub
Cela me génère automatiquement mes fichiers et c'est ce que je veux.
Ensuite, à l'utilisation de ces fichiers masques, je souhaite obliger le lieu de sauvegarde.
J'ai fait le code suivant.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim datejour As String datejour = Format(Sheets(1).Range("B4"), "d_mmmm_yyyy") ActiveWorkbook.SaveAs Filename:= _ "J:\GTE_INDI\Préventif 2006\Archives\ Nomdufichier" & datejour & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub
Mon soucis est de récupérer le nom du fichier ouvert. Par exemple:
j'ouvre le fichier appelé nettoyage1.xls, j'aimerai qu'il s'enregistre sous le nom nettoyage1 31_07_2006.xls.
Merci de votre aide.

J'ai peut être une solution avec
Nomdufichier = ActiveWorkbook.name
mais le problème est que cela me donne Nettoyage1.xls31 juillet 2006.xls.

Comment enlever le premier .xls

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim datejour As String
    Nomdufichier = ActiveWorkbook.name
    datejour = Format(Sheets(1).Range("B4"), "d_mmmm_yyyy")
 
    ActiveWorkbook.SaveAs Filename:= _
        "J:\GTE_INDI\Préventif 2006\Archives\ " & Nomdufichier & datejour & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

un peu barbare mais ça marche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim datejour As String
    Nomdufichier = ActiveWorkbook.name
    Nomdufichier = mid(nomdufichier, 1, instr(Nomdufichier, ".")-1)

     datejour = Format(Sheets(1).Range("B4"), "d_mmmm_yyyy")
       
    ActiveWorkbook.SaveAs Filename:= _
        "J:\GTE_INDI\Préventif 2006\Archives\ " & Nomdufichier & datejour & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub