Discussion :

[mulanzia2003]

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 :

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

1
2
 
        Workbooks.Open Filename:="C:\TRAVAIL\Maintenance\Référentiel\"masque.xls"

Pour enregistrer un fichier :

Code :

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

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.

[ouskel'n'or]

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

Code :

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

DoEvents

Tu dis

[mulanzia2003]

C'est à dire :

Code :

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

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 ???

[ouskel'n'or]

Oui ! Tu as essayé ?


PS - Regarde dans l'aide "l'effet" qu'a DoEvents

[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.

[mulanzia2003]

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 :

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

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 :

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

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.