Discussion :

[calimero91]

Bonjour,

j'ai un ti probleme. j'ouvre une application excel via access est j'aimerai que lorsque je ferme excel ou que je sauvegarde sous excel mon fichier excel soit sauvegarder sous un autre nom que celui d'origine.est ce possible et si oui pourriez vous me donnez des pistes pour le faire svp.

[Papy Turbo]

Bonjour,

toujours la même réponse, pour trouver toutes commandes Excel ou Word :
- avant de fermer Excel, tu l'ouvres et tu crées une nouvelle macro (Outils > Macro > nouvelle macro)
- tu fais ce que tu veux lui faire faire : tu "enregistres sous...", avec un nom de ton choix, etc.
- tu fermes la macro Excel, et tu appuies sur Alt+F11 pour aller consulter le code de cette nouvelle macro (baptisée Macro1 par défaut)
- le code de la nouvelle macro contient toutes les commandes qui t'intéressent.
Tu n'as plus qu'à les copier dans ta routine VBA, sous Access, en mettant un point devant pour que la commande 'appartienne' à ton objet Excel.Application.

Par exemple (je cite de mémoire, ne pas copier mon code), si la macro enregistrée sous Excel contient une commande qui commence comme cela :

Code :

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

ActiveWorkbook.SaveAs Fileame:="C:\CheminRepertoire\NomFicher.xls", ...

avec la suite des paramètres derrière, tu copies dans ta routine vba, sous Access, quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ExcelManip()
Dim Xl As New Excel.Application
    
    [...]
    Set Xl = New Excel.Application
    With Xl
        [...] 'ici, traitement du tableau Excel
        'enregistrement du classeur
        .ActiveWorkbook.SaveAs Fileame:="C:\CheminRepertoire\NomFicher.xls", ...
        [...]
    End With
    [...]
End Sub

Si tu ne veux pas utiliser With ... End With, tu peux copier la même commande en tant que

Code :

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

1
2
 
    Xl.ActiveWorkbook.SaveAs Fileame:="C:\CheminRepertoire\NomFicher.xls", ...

ce qui revient au même (en légèrement moins efficace )

C'est clair ?