Discussion :

[lnplnp]

Salut à tous,

J'ai fait un macro qui me permet de récupérer des données de différents fichiers sources Excel. Cette macro copie certaines données dans un classeur Excel "fichier_extract.xslm".

La macro crée une feuille par catégorie de données dans ce même classeur puis je sauvegarde chaque feuille dans un CSV.
Jusque là tout va bien !

Un petit aperçu du code source

Code :

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

1
2
3
4
5
6
7
8
 
Sub Principale
 
  Ouvrir_fichiers_sources
  Recup_data
  Fermer_fichiers_sources
 
End Sub

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
16
17
18
19
20
 
Sub Recup_data
 
    Recup_data_cat1
    Recup_data_cat2
    Recup_data_cat3
 
    Windows("fichier_extract.xslm").Activate
    ActiveWorkbook.Worksheets(1).Select
    ActiveWorkbook.Sheets(1).Activate
 
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="fichier_extract.xslm"
    Application.DisplayAlerts = True
 
    SaveAsCSV("cat1")
    SaveAsCSV("cat2")
    SaveAsCSV("cat3")
 
End Sub

Quand tout cela est fait plus aucun fichier n'est ouvert, je me retrouve avec une fenêtre MS Excel ouverte sans classeur.

Comment faire pour que le classeur "fichier_extract.xslm" reste ouvert à la fin de la "Sub Principale" ? Serai-je obligé de faire un Workbooks.Open Filename:="fichier_extract.xslm"

Merci d'avance pour vos réponses.

[NEC14]

Bonjour,

Voici la réponse que m'avait apporté Theze sur une question similaire

Code :

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

1
2
 
Application.Quit 'Ceci ferme Excel

Code :

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

1
2
 
ActiveWorkBook.Close 'Ici, seulement le fichier actif

Regarde dans tes codes si tu as quelque chose qui ressemble à ça.

Cordialement
René

[lnplnp]

Bonjour,

Merci NEC14 d'essayer de répondre.

Dans

Code :

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

Fermer_fichiers_sources

, il y a effectivement ActiveWorkBook.Close mais avant chaque appel je met un Windows("fichier_source1").activate.

Il n'y a jamais dans mon code :

Code :

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

1
2
Windows("fichier_extract.xslm").Activate ' fichier_extract.xslm étant le fichier devant rester ouvert tout au long de la procédure... si c'est possible !
ActiveWorkBook.Close

Une remarque supplémentaire :
Lorsque tu ouvres un classeur Excel (ex : 'principal.xslx') avec plusieurs feuilles (ex : [feuille1, feuille2, feuille3]) et que tu enregistres une de ces feuilles en .CSV (ex : feuille2.csv) alors le classeur ne porte plus son nom original mais le nom du fichier CSV.
Je pense que c'est ce qui explique qu'à la fin de ma procédure "Sub Principale", mon classeur "fichier_extract.xslm" ne soit plus ouvert.

Je serai donc obligé de refaire un open sur ce fichier ? Si vous avez une solution qui permet d'éviter cela, ce serait idéal.

[NEC14]

Bonjour,

Voilà comment j'ai procédé :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Private Sub CmbSauv_Click()
Dim Fich As String
Dim c As Range
Dim Fichier
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("BC1") 'copie la feuille BC1
    .Visible = True 'La feuille BC1 est visible
 
    'la feuille devient fichier et est enregistrée sur le K:\
    Fich = "K:\BONS 2013\BC" & " " & .Cells(17, 4).Value & " " & .Cells(15, 14).Value
    Fichier = Application.GetSaveAsFilename(Fich, "Excel Files (*.xls), *.xls")
    If Fichier <> False Then
        Dim Wbk As Workbook
            Set Wbk = Workbooks.Add(1)
            Wbk.Sheets(1).name = "BC1"
            With ThisWorkbook.Sheets("BC1")
            .Cells.Copy
            Wbk.Sheets(1).[A1].PasteSpecial xlPasteAll
            End With
        With ActiveWorkbook
            .SaveAs Fichier             'Pour Excel 2003 et moins
            .Close
        End With
        For Each c In .Range("B25,G6,H14,N11,N15,N19,B24,A28:A55,N24,I28:K55")
            c.MergeArea.ClearContents
        Next c
        .Visible = False
    End If
End With
Windows("Saisie_engagements.xls").Activate
        Sheets("Accueil").Activate
 
End Sub