Discussion :

[Robinno]

Bonjour à tous,

Je suis nouveau sur VBA et j'ai un petit souci...

Je dispose d'une macro "conversion" dans mon module, et je souhaite l'appliquer à tous les autres classeurs du dossier (c'est-à-dire environ 2000 : ça ne va pas planter?)

Pour ça, j'ai écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub tout_convertir()
    Dim Fich As String
    Const chemin = "C:\Users\Robin\Documents\Données\Trades"
    Fich = Dir(chemin & "*.csv")
    Do While Fich <> ""
        Workbooks.Open Fich
        Application.Run ("conversion")
        Workbooks(Fich).Close(True, "bis" & Fich, False)
    Fich = Dir
    Loop
End Sub

Malheureusement, Excel me renvoie un message d'erreur : "Erreur de compilation : Erreur de syntaxe".
Est-ce que quelqu'un voit pourquoi, et comment régler le problème?

Merci!

[fring]

Bonjour,

Il manque un \ entre le nom de ton ton dernier répertoire et le nom du fichier

Code :

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

 Const chemin = "C:\Users\Robin\Documents\Données\Trades\"

[Robinno]

Exact, merci!

Mais le message d'erreur subsiste.
Apparemment, c'est cette ligne qui ne lui plaît pas :

Code :

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

 Workbooks(Fich).Close(True, "bis" & Fich, False)

Est-ce que ça pourrait venir de l'enregistrement que je lui demande sous un autre nom de fichier?

[fring]

Oui sorry, j'avais vu que ma réponse était incomplète mais je n'avais pas eu le temps de la modifier
Essaie ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub tout_convertir()
    Dim Fich As String
    Const chemin = "C:\Users\Robin\Documents\Données\Trades\"
    Fich = Dir(chemin & "*.csv")
    Do While Fich <> ""
        Workbooks.Open chemin & Fich
        Application.Run ("conversion")
        Workbooks(Fich).SaveAs chemin & "bis" & Fich
        Workbooks("bis" & Fich).Close
    Fich = Dir()
    Loop
End Sub

[DeTraX]

Enlève les parenthèses

Code :

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

Workbooks(Fich).Close True, "bis" & Fich, False

[Robinno]

Bonsoir à tous,

Désolé d'avoir mis autant de temps à répondre, mais je m'y suis remis il y a une heure, et j'ai d'abord essayé de régler le problème tout seul...

Déjà, point positif : La macro proposée par fring se lance, donc il n'y a a priori plus de problème de syntaxe : Merci!!

Par contre, les fichiers qui s'enregistrent sont identiques aux fichiers originaux, comme si la macro "conversion" n'agissait pas...

Pourtant, je l'ai testée individuellement sur un classeur et elle fonctionne très bien.

Éventuellement, est-ce que c'est possible que les fichiers ne tiennent pas compte de ce qui a été modifié lors de l'enregistrement?
Sinon, je ne vois pas du tout...

Merci beaucoup pour votre aide en tout cas!!

Edit : Je viens de faire un test intéressant, mais que je comprends absolument pas. J'ai essayé d'appliquer ma fonction convertir à un seul fichier, par le biais de la macro suivante :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    Dim Fich As String
    Const chemin = "C:\Users\Robin\Documents\Données\Trades\"
    Fich = Dir(chemin & "AXAF.PA_trades_20070109.csv")
Workbooks.Open chemin & Fich
        Application.Run ("PERSONAL.XLSB!conversion")
        Workbooks(Fich).SaveAs chemin & "aa_" & Fich
        Workbooks("aa_" & Fich).Close True
End Sub

Et là, comme avant, rien n'est modifié...

Par contre, avec celle-ci (la même, mais sans fermer le classeur après enregistrement) :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Dim Fich As String
    Const chemin = "C:\Users\Robin\Documents\Données\Trades\"
    Fich = Dir(chemin & "AXAF.PA_trades_20070109.csv")
Workbooks.Open chemin & Fich
        Application.Run ("PERSONAL.XLSB!conversion")
        Workbooks(Fich).SaveAs chemin & "aa_" & Fich
End Sub

les modifications sont prises en compte!! Mais je ne peux toujours pas me permettre de laisser ouvert 2000 classeurs ouverts, donc ça ne m'avance pas à grand chose...

[Robinno]

Bonjour à tous,

J'ai fait quelques petites recherches. Apparemment, l'extension .csv ne permet pas l'enregistrement des modifications effectuées par ma macro (qui met en forme des données de ma feuille excel en les répartissant sur différentes colonnes).

J'ai donc essayé de sauvegarder les fichiers modifié en .xlsx, ce qui marche :

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
Sub tout_convertir()
 
Application.DisplayAlerts = False
 
    Dim Fich As String
    Const chemin = "C:\Users\Robin\Documents\Données\Trades\"
    Fich = Dir(chemin & "*.csv")
    Do While Fich <> ""
        Workbooks.Open chemin & Fich
        Application.Run ("conversion")
        ActiveWorkbook.SaveAs chemin & "modifs\" & Replace(Fich, csv, xlsx), xlNormal
        ActiveWorkbook.Close
    Fich = Dir()
    Loop
 
Application.DisplayAlerts = True
 
End Sub

J'ai juste un dernier problème : lorsque je veux ouvrir l'un des classeurs créés, j'ai un message d'erreur disant :
"Le format du fichier que vous tentez d'ouvrir est différent de celui spécifié par l'extension du fichier; Assurez-vous que le fichier n'est pas endommagé et qu'il provient d'une source fiable avant de l'ouvrir. Souhaitez-vous ouvrir le fichier maintenant?"

Donc apparemment, lorsque j'enregistre mes classeurs, il y a un problème d'extension... Est-ce que quelqu'un voit pourquoi?
Je n'ai pas envie d'avoir à confirmer ce message d'erreur à chaque fois que j'ouvre un classeur...

Merci en tout cas pour votre aide précieuse, je pense que j'y suis presque!

[Robinno]

Problème résolu : il suffisait d'enregistrer les fichiers en ".xls", et pas ".xlsx", et sans oublier les "" dans ma fonction Replace.

Merci pour votre aide précieuse, sans laquelle j'en serais encore à me débattre avec des fonctions qui ne tournent pas!