Discussion :

[motus972]

Bonjour à Tous,

Voic mon problème. Je débute en VBA, et je souhaite créer une macro qui suit les étapes suivantes :
1) Ouvrir fichier excel
2) Actualiser les TCD qui sont alimentés par des cubes OLAP
3) Attendre la fin de l'actualisation
4) Sauvegarder et fermer.

Grâce à différents forum, j'ai pu créer un début de Macro qui reprend les étape 1) et 2).

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
Sub Actualiser()
Dim Chemin As String
    reponse = MsgBox("Voulez-vous actualiser ?", vbYesNo, "Attention")
        If reponse = vbYes Then
            Application.ScreenUpdating = False
            Chemin = ThisWorkbook.Path
            Ouvrir Chemin
            Application.ScreenUpdating = True
        Else: Exit Sub
        End If
End Sub
 
Sub Ouvrir(Chemin As String)
Dim NomFich As String
    NomFich = Dir(Chemin & "\Comentarios" & "*.xlsx")
    If NomFich = "" Then MsgBox "Aucun fichier n'a été trouvé."
        Do While Left(NomFich, 11) = "Comentarios"
            Workbooks.Open Chemin & "\" & NomFich
            Windows(NomFich).Activate
            ActiveWorkbook.RefreshAll
            ActiveWorkbook.Save
            ActiveWorkbook.Close
            NomFich = Dir
        Loop
End Sub

Première question, pourquoi si je mets direcetement "ActiveWorkbook.RefreshAll" cela n'actualise pas mon classeur ? Je suis obligé de mettre "Windows(NomFich).Activate" pour que ça marche.

Pour l'étape 3, quelqu'un aurait-il une idée ?

Merci d'avance.

Motus

[mercatog]

Pas testée cette proposition

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
Sub Ouvrir(ByVal Chemin As String)
Dim NomFich As String
Dim Wbk As Workbook
 
NomFich = Dir(Chemin & "\Comentarios" & "*.xlsx")
If NomFich = "" Then
    MsgBox "Aucun fichier n'a été trouvé."
Else
    Do While NomFich <> ""
        Set Wbk = Workbooks.Open(NomFich)
        With Wbk
            .RefreshAll
            Attente
            .Save
            .Close
        End With
        Set Wbk = Nothing
        NomFich = Dir
    Loop
End If
End Sub
 
Private Sub Attente()
 
Do While Application.CalculationState <> xlDone
    DoEvents
Loop
End Sub

[motus972]

Bonjour Mercatog,

Merci pour ta réponse. J'ai testé la fonction j'ai une erreur 1004 au niveau de la ligne 10 :

Code :

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

Set Wbk = Workbooks.Open(NomFich)

Sais-tu d'où cela vient ?

Yves

[mercatog]

désolé, il fallait ajouter le chemin aussi

Code :

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

Set Wbk = Workbooks.Open(Chemin & "\" & NomFich)

[motus972]

J'ai un souci avec le refresh et la fonction attente.

En mettant que :

Code :

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

1
2
With Wbk
.RefreshAll

Les TCD ne sont pas actualisés et m'affichent #N/A.

Or si je mets:

Code :

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

1
2
Windows(NomFich).Activate
ActiveWorkbook.RefreshAll

Cela fonctionne.

Pour la sub attent (), la macro ne s'arrête pas et boucle.