Discussion :

[quicky14]

Bonjour,
Une boucle me créee des fichiers Excel remplis à l'aide de résultats de requêtes Access. Aucun problème.
La même boucle parcourt ensuite les fichiers, et applique du code pour le mettre en forme : texte en gras, changement de nom et taille des colonnes etc... Le code s'applique bien sur le premier fichier. Le fichier Excel se ferme. Mais le code ne s'applique pas sur les fichiers suivants...
Et si je ne fais pas fermer le fichier Excel, le code s'applique toujours sur le même fichier, bien que les autres soient ouverts aussi...

Comment préciser sur quel fichier travailler ?

Comment régler ce problème ?
Merci d'avance

[6ril25]

Salut,

montre nous ton code, qu'on puisse t'aider...

[quicky14]

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
While Not res.EOF
        [...]
    DoCmd.TransferSpreadsheet acExport, 5, "R-Sortie", "S:\Sorties\" & Nom.Value & ".xls", False, ""
    GoTo MiseEnForme
    Suite:
Wend
 
MiseEnForme:
    Dim objExcel As Object
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Workbooks.Open ("S:\Sorties\" & Nom.Value & ".xls")
    objExcel.Visible = True
    objExcel.UserControl = False
 
    [tout le code de la macro]
    GoTo Suite

J'ai simplifié au max :-)

[6ril25]

Utilise les balises code (raccourci #) pour plus de lisibilité

D'où vient Nom.Value??

[quicky14]

Nom.Value vient de mon code masqué [...] plus haut. Le problème ne vient pas de là car sa valeur est bien affectée. J'ai fais le test avec un debug pas à pas...
Je pense que le problème est simplement de préciser sur quel fichier le code doit s'appliquer. Et visiblement le fait d'ouvrir le fichier ne suffit pas....

Any idea ?
Merci

[quicky14]

J'ai tenté de fermer Excel avec Workbooks.Close mais le problème reste le même : après s'être appliquée sur le premier fichier, le second s'ouvre, et la macro ne s'applique pas...

[willcartley]

Peut-être que tu devrais utiliser (si ce n'est pas fait) aussi les objets Workbook et worksheet d'Excel (déclare, précise où ils vont chercher l'objet, ...) et ensuite effectuer tes modifs sur le Worksheet crée. (Ne pas oublier la librairie de référence)

[quicky14]

J'ai essayé mais soit je n'ai pas les bonnes fonctions soit elles sont inefficaces...

[willcartley]

Pour commencer, tu devrais mettre ta mise en forme Excel dans une procédure à part (c'est moyen les Goto à ma connaissance).
Ensuite soit sûr qu'à la fin de chaque appel de cette procédure tous les objets crées soient fermés(.close) et détruits( = nothing) dans la procédure même.
sans oublier de créer des objets Workbook et Worksheet mais pas en ouvrant directement avec "objExcel.Workbooks.Open".

[cafeine]

Hello,

et si tu inclues le bloc "MiseEnForme" dans la boucle While ?

[quicky14]

Une magnifique solution servie sur un plateau par Microsoft :
http://support.microsoft.com/default.aspx?kbid=178510
Il n'y paraît pas comme ça mais ça règle effectivement mon problème... Car en fait je ne fermais pas Excel correctement et je suppose donc que la référence envers mon 1er document n'était pas "supprimée"...

Si vous voulez ouvrir un fichier de manière propre, utilisez le code :

Code :

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

1
2
3
4
5
6
7
 
    Dim appExcel As Excel.Application
    Dim wbExcel As Excel.Workbook
    Dim wsExcel As Excel.Worksheet
    Set appExcel = CreateObject("Excel.Application")
    Set wbExcel = appExcel.Workbooks.Open("S:\fichier.xls")
    Set wsExcel = wbExcel.Worksheets(1)