Discussion :

[TeoSitran]

Bonjour à tous

Je n'arrive pas à libérer à chaque fois correctement un fichier Excel à partir d'un formulaire Access;
J'ouvre l'application Access sur un formulaire principal et ensuite je vais sur un formulaire réalisant le traitement des données
Sur ce deuxième formulaire j'ai bouton qui me permet d'exporter les résultats d'une table temporaire vers un fichier Excel et aussi de mettre en forme ce fichier Excel (largeur de colonne, couleur de cellules etc...).
Lorsque je valide le bouton d'exportation je vérifie la présence d'un ancien fichier Excel (exportation précédente) et l'efface s'il existe.

1er essai : fichier Excel effacé et lancement de l'application : tout est parfait exportation réussie, mise en forme des cellules impeccable; Je peux ouvrir et fermer le fichier Excel sans problème
Je reviens au formulaire principal, je relance à nouveau le formulaire de traitement des données, le fichier Excel est bien effacé, l'exportation a lieu mais il ne se passe plus rien après (pas de mise en forme). Si j'ouvre le fichier Excel j'ai un message : "fichier verrouillé par l'utilisateur"

Si je reviens au formulaire principal et que je relance une 3eme fois le formulaire de traitement de données, si je valide le bouton d'exportation, il ne se passe plus rien, probablement lié au fait que le fichier est verrouillé;

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
Private Sub BPExportTotal_Click()
    Dim xlApp As Excel.Application 'Application Excel
    Dim xlBook As Excel.Workbook 'Classeur Excel
    Dim xlSheet As Excel.Worksheet 'Feuille Excel
    Dim RechFichier As String
 
      "Traitement des données"
 
     'fermeture des objets
     xlBook.Close (True)
     xlApp.Workbooks.Close
     xlApp.Quit
     Set xlSheet = Nothing
     Set xlBook = Nothing
     Set xlApp = Nothing
End Sub

Je ne suis peut-être pas très clair mais ce n'est pas évident d'expliquer
Ce que souhaite au final c'est pouvoir à chaque appel du formulaire pouvoir exporter correctement
les données et réaliser la bonne mise en forme du fichier Excel.

Si je quitte l'application Access et la relance, la première exportation fonctionne correctement, même s'il existe un ancien fichier Excel.

Par avance merci pour toute idée pouvant régler mon problème

Pour info avant d'ouvrir cette discussion j'ai passé beaucoup de temps à lire les forums, les tutos etc... mais je n'ai pas trouvé la solution

Cordialement

[TeoSitran]

Bonjour à tous

J'avance, en effet j'ai mis à la fin de la procédure sub, l'instruction pour changer le nom de l'onglet et je me suis aperçu
que l'exportation plantait à la fin par contre la mise en forme était réalisée
J'ai supprimé le code pour changer le nom de l'onglet et là Miracle ! je peux faire autant de traitement de données et le fichier Excel est correctement mis en forme

Code incriminée

Code :

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

1
2
'Changement du nom de l'onglet
 ActiveSheet.Name = "TraitementDonnées"

Il me reste à trouver comment changer correctement le nom d'un onglet Excel

Si quelqu'un a une idée je le remercie par avance

Cordialement

[TeoSitran]

Bonjour

En continuant à chercher sur le forum j'ai trouvé le bon code

Code :

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

1
2
'Changement du nom de l'onglet
xlSheet.Name = "TraitementDonnées"

Merci à tous ceux qui enrichissent ce forum

Cordialement