Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access automation vers EXCELL

automation vers EXCELL

21 réponses
Avatar
Pascal
bonsoir,
ai un petit soucis dans le code suivant
ce code ouvre un fichier excell, mise en page(format) et inscrit des
données puis se ferme
le problème réside dans le format, a chaque ouverture de la base et appel de
la procédure, tout fonctionne à merveille, dès que je relance une seconde ou
xème fois, le format ne se fait pas et rien ne s'inscrit

voici le code
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
End With
'mise en page (format)
Range("A1").Select
ActiveCell.FormulaR1C1 = "test1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "test2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "test3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "test4"
Range("A2").Select
etc.......

je précise que les objet sont libéré à chaque sortie de la sub
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

qqn a-t-il une vague idée?

merci

Pascal
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Rv
Salut,

Je pense qu'il s'agit bien d'un pb de fermeture d'excel via automation
car vu les symptômes il reste un processus Excel en tâche de fond. Cela se
vérifie par affichage des processus dans le gestionnaire des tâches.

Avant de libérer les variables par l'affectation avec nothing, il faut
fermer "proprement" excel avec:
wbk.close
xlappp.quit
Est-ce le cas?

A+

Rv

"Pascal" a écrit dans le message de
news:efBJz$
bonsoir,
ai un petit soucis dans le code suivant
ce code ouvre un fichier excell, mise en page(format) et inscrit des
données puis se ferme
le problème réside dans le format, a chaque ouverture de la base et appel
de

la procédure, tout fonctionne à merveille, dès que je relance une seconde
ou

xème fois, le format ne se fait pas et rien ne s'inscrit

voici le code
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
End With
'mise en page (format)
Range("A1").Select
ActiveCell.FormulaR1C1 = "test1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "test2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "test3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "test4"
Range("A2").Select
etc.......

je précise que les objet sont libéré à chaque sortie de la sub
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

qqn a-t-il une vague idée?

merci

Pascal





Avatar
Pascal
Salut Rv,
non ce n'est pas le cas!
pour refonctionner je suis obligé qe quitter la base et réouvrir
ce que je n'ai pas dit c'est qu'un processus juste avant ouvre une table
également, mais ai essayé sans ouvrir cette table, cela ne change rien.
comme tu dis je pense aussi à un processus actif, mais là ya + rien!

je suis access 2003, vais peut-être essayé sous access 2000

merci d'avoir pris le temps de te pencher sur ce problème

Pascal



"Rv" a écrit dans le message de news:

Salut,

Je pense qu'il s'agit bien d'un pb de fermeture d'excel via automation
car vu les symptômes il reste un processus Excel en tâche de fond. Cela se
vérifie par affichage des processus dans le gestionnaire des tâches.

Avant de libérer les variables par l'affectation avec nothing, il faut
fermer "proprement" excel avec:
wbk.close
xlappp.quit
Est-ce le cas?

A+

Rv

"Pascal" a écrit dans le message de
news:efBJz$
bonsoir,
ai un petit soucis dans le code suivant
ce code ouvre un fichier excell, mise en page(format) et inscrit des
données puis se ferme
le problème réside dans le format, a chaque ouverture de la base et
appel


de
la procédure, tout fonctionne à merveille, dès que je relance une
seconde


ou
xème fois, le format ne se fait pas et rien ne s'inscrit

voici le code
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
End With
'mise en page (format)
Range("A1").Select
ActiveCell.FormulaR1C1 = "test1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "test2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "test3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "test4"
Range("A2").Select
etc.......

je précise que les objet sont libéré à chaque sortie de la sub
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

qqn a-t-il une vague idée?

merci

Pascal









Avatar
Rv
Re,

Essaye quand même de fermer correctement excel avec les instructions:
wbk.close
xlappp.quit
juste avant les instructions:
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

Puis fermeture d'access. Puis vérification dans le gestionnaire des
taches des processus excel éventuellement présents (onglet processus).
Suppressions eventuelles de processus Excel. Relancer Access et retester
cette partie de l'appli.

A+

Rv




"Pascal" a écrit dans le message de
news:
Salut Rv,
non ce n'est pas le cas!
pour refonctionner je suis obligé qe quitter la base et réouvrir
ce que je n'ai pas dit c'est qu'un processus juste avant ouvre une table
également, mais ai essayé sans ouvrir cette table, cela ne change rien.
comme tu dis je pense aussi à un processus actif, mais là ya + rien!

je suis access 2003, vais peut-être essayé sous access 2000

merci d'avoir pris le temps de te pencher sur ce problème

Pascal



"Rv" a écrit dans le message de news:

Salut,

Je pense qu'il s'agit bien d'un pb de fermeture d'excel via
automation


car vu les symptômes il reste un processus Excel en tâche de fond. Cela
se


vérifie par affichage des processus dans le gestionnaire des tâches.

Avant de libérer les variables par l'affectation avec nothing, il
faut


fermer "proprement" excel avec:
wbk.close
xlappp.quit
Est-ce le cas?

A+

Rv

"Pascal" a écrit dans le message de
news:efBJz$
bonsoir,
ai un petit soucis dans le code suivant
ce code ouvre un fichier excell, mise en page(format) et inscrit des
données puis se ferme
le problème réside dans le format, a chaque ouverture de la base et
appel


de
la procédure, tout fonctionne à merveille, dès que je relance une
seconde


ou
xème fois, le format ne se fait pas et rien ne s'inscrit

voici le code
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
End With
'mise en page (format)
Range("A1").Select
ActiveCell.FormulaR1C1 = "test1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "test2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "test3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "test4"
Range("A2").Select
etc.......

je précise que les objet sont libéré à chaque sortie de la sub
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

qqn a-t-il une vague idée?

merci

Pascal












Avatar
Pascal
Re,
ai bien sûr essayé avec close et quit, cela ne change rien
tu me dis :"Puis fermeture d'access" access doit rester ouvert après le
processus Excell et notament la table créée
Effectivement dans le processus des tâches EXCELL.EXE reste ouvert même
après fermeture avec close et quit et libération des objets??
t'as une idée?
Pascal


"Rv" a écrit dans le message de news:

Re,

Essaye quand même de fermer correctement excel avec les instructions:
wbk.close
xlappp.quit
juste avant les instructions:
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

Puis fermeture d'access. Puis vérification dans le gestionnaire des
taches des processus excel éventuellement présents (onglet processus).
Suppressions eventuelles de processus Excel. Relancer Access et retester
cette partie de l'appli.

A+

Rv




"Pascal" a écrit dans le message de
news:
Salut Rv,
non ce n'est pas le cas!
pour refonctionner je suis obligé qe quitter la base et réouvrir
ce que je n'ai pas dit c'est qu'un processus juste avant ouvre une table
également, mais ai essayé sans ouvrir cette table, cela ne change rien.
comme tu dis je pense aussi à un processus actif, mais là ya + rien!

je suis access 2003, vais peut-être essayé sous access 2000

merci d'avoir pris le temps de te pencher sur ce problème

Pascal



"Rv" a écrit dans le message de news:

Salut,

Je pense qu'il s'agit bien d'un pb de fermeture d'excel via
automation


car vu les symptômes il reste un processus Excel en tâche de fond.
Cela



se
vérifie par affichage des processus dans le gestionnaire des tâches.

Avant de libérer les variables par l'affectation avec nothing, il
faut


fermer "proprement" excel avec:
wbk.close
xlappp.quit
Est-ce le cas?

A+

Rv

"Pascal" a écrit dans le message de
news:efBJz$
bonsoir,
ai un petit soucis dans le code suivant
ce code ouvre un fichier excell, mise en page(format) et inscrit
des




données puis se ferme
le problème réside dans le format, a chaque ouverture de la base et
appel


de
la procédure, tout fonctionne à merveille, dès que je relance une
seconde


ou
xème fois, le format ne se fait pas et rien ne s'inscrit

voici le code
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
End With
'mise en page (format)
Range("A1").Select
ActiveCell.FormulaR1C1 = "test1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "test2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "test3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "test4"
Range("A2").Select
etc.......

je précise que les objet sont libéré à chaque sortie de la sub
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

qqn a-t-il une vague idée?

merci

Pascal
















Avatar
Raymond [mvp]
Bonjour.

si excel ne se ferme pas après un close, quit et nothing de tous les objets
excel , c'est qu'une feuille excel est "modifiée" et qu'elle n'est pas
sauvegardée ou annulée dans le close. rajoute l'option de sauvegarde ou non
dans le close et ça devrait faire.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pascal" a écrit dans le message de news:

Re,
ai bien sûr essayé avec close et quit, cela ne change rien
tu me dis :"Puis fermeture d'access" access doit rester ouvert après le
processus Excell et notament la table créée
Effectivement dans le processus des tâches EXCELL.EXE reste ouvert même
après fermeture avec close et quit et libération des objets??
t'as une idée?
Pascal


Avatar
Rv
Re,

Niveau idées, je n'ai rien à rajouter par rapport à la remarque de Raymond.
Donc rajouter la partie sauvegarde avec wkb.save ou wkb.saveas avant
wkb.close.

Par ailleurs tu peux isoler le problème sur une base vierge avec un seul
formulaire, un bouton qui lance excel et écrit des données dans excel et un
bouton qui ferme "proprement" excel.. Les test se réalisant avec le
gestionnaire des tâches ouvert sur l'onglet processus pour surveiller
l'apparition et la disparition du processus Excel.

Par rapport à le fermeture d'access, j'en parle uniquement au niveau des
tests. L'idée est de partir d'une situation propre. Donc au départ pas
d'Access et pas d'Excel en mémoire. Car j'ai déjà eu ce genre de soucis et
j'ai passé trop de temps à résoudre car mes tests n'étaient pas complet.
Ensuite une fois le comportement stabilisé, il faudra évidement qu'Access
reste ouvert pour que l'appli fonctionne...

A+ et bon courage

Rv


"Pascal" a écrit dans le message de
news:
Re,
ai bien sûr essayé avec close et quit, cela ne change rien
tu me dis :"Puis fermeture d'access" access doit rester ouvert après le
processus Excell et notament la table créée
Effectivement dans le processus des tâches EXCELL.EXE reste ouvert même
après fermeture avec close et quit et libération des objets??
t'as une idée?
Pascal


"Rv" a écrit dans le message de news:

Re,

Essaye quand même de fermer correctement excel avec les
instructions:


wbk.close
xlappp.quit
juste avant les instructions:
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

Puis fermeture d'access. Puis vérification dans le gestionnaire des
taches des processus excel éventuellement présents (onglet processus).
Suppressions eventuelles de processus Excel. Relancer Access et retester
cette partie de l'appli.

A+

Rv




"Pascal" a écrit dans le message de
news:
Salut Rv,
non ce n'est pas le cas!
pour refonctionner je suis obligé qe quitter la base et réouvrir
ce que je n'ai pas dit c'est qu'un processus juste avant ouvre une
table



également, mais ai essayé sans ouvrir cette table, cela ne change
rien.



comme tu dis je pense aussi à un processus actif, mais là ya + rien!

je suis access 2003, vais peut-être essayé sous access 2000

merci d'avoir pris le temps de te pencher sur ce problème

Pascal



"Rv" a écrit dans le message de news:

Salut,

Je pense qu'il s'agit bien d'un pb de fermeture d'excel via
automation


car vu les symptômes il reste un processus Excel en tâche de fond.
Cela



se
vérifie par affichage des processus dans le gestionnaire des tâches.

Avant de libérer les variables par l'affectation avec nothing,
il




faut
fermer "proprement" excel avec:
wbk.close
xlappp.quit
Est-ce le cas?

A+

Rv

"Pascal" a écrit dans le message de
news:efBJz$
bonsoir,
ai un petit soucis dans le code suivant
ce code ouvre un fichier excell, mise en page(format) et inscrit
des




données puis se ferme
le problème réside dans le format, a chaque ouverture de la base
et





appel
de
la procédure, tout fonctionne à merveille, dès que je relance une
seconde


ou
xème fois, le format ne se fait pas et rien ne s'inscrit

voici le code
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
End With
'mise en page (format)
Range("A1").Select
ActiveCell.FormulaR1C1 = "test1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "test2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "test3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "test4"
Range("A2").Select
etc.......

je précise que les objet sont libéré à chaque sortie de la sub
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

qqn a-t-il une vague idée?

merci

Pascal



















Avatar
Pascal
re, re,re,
Merci à tous les deux pour cette idée
mais même avec :
wbk.SaveAs ("C:Documents and SettingsUserBureau" & "T_" &
NbrCorrespondance & "Sortis")
wbk.Close
xlApp.Quit
dans le gestionnaire je vois toujours Excell? et impossible de relancer
cette routine sans fermer la base,
je vais essayer tout à l'heure ta propostion de partir sur une base propre
vous tiens bien entendu au courant de l'évolution
merci encore
Pascal


"Rv" a écrit dans le message de news:
#
Re,

Niveau idées, je n'ai rien à rajouter par rapport à la remarque de
Raymond.

Donc rajouter la partie sauvegarde avec wkb.save ou wkb.saveas avant
wkb.close.

Par ailleurs tu peux isoler le problème sur une base vierge avec un seul
formulaire, un bouton qui lance excel et écrit des données dans excel et
un

bouton qui ferme "proprement" excel.. Les test se réalisant avec le
gestionnaire des tâches ouvert sur l'onglet processus pour surveiller
l'apparition et la disparition du processus Excel.

Par rapport à le fermeture d'access, j'en parle uniquement au niveau des
tests. L'idée est de partir d'une situation propre. Donc au départ pas
d'Access et pas d'Excel en mémoire. Car j'ai déjà eu ce genre de soucis et
j'ai passé trop de temps à résoudre car mes tests n'étaient pas complet.
Ensuite une fois le comportement stabilisé, il faudra évidement qu'Access
reste ouvert pour que l'appli fonctionne...

A+ et bon courage

Rv


"Pascal" a écrit dans le message de
news:
Re,
ai bien sûr essayé avec close et quit, cela ne change rien
tu me dis :"Puis fermeture d'access" access doit rester ouvert après
le


processus Excell et notament la table créée
Effectivement dans le processus des tâches EXCELL.EXE reste ouvert même
après fermeture avec close et quit et libération des objets??
t'as une idée?
Pascal


"Rv" a écrit dans le message de news:

Re,

Essaye quand même de fermer correctement excel avec les
instructions:


wbk.close
xlappp.quit
juste avant les instructions:
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

Puis fermeture d'access. Puis vérification dans le gestionnaire
des



taches des processus excel éventuellement présents (onglet processus).
Suppressions eventuelles de processus Excel. Relancer Access et
retester



cette partie de l'appli.

A+

Rv




"Pascal" a écrit dans le message de
news:
Salut Rv,
non ce n'est pas le cas!
pour refonctionner je suis obligé qe quitter la base et réouvrir
ce que je n'ai pas dit c'est qu'un processus juste avant ouvre une
table



également, mais ai essayé sans ouvrir cette table, cela ne change
rien.



comme tu dis je pense aussi à un processus actif, mais là ya + rien!

je suis access 2003, vais peut-être essayé sous access 2000

merci d'avoir pris le temps de te pencher sur ce problème

Pascal



"Rv" a écrit dans le message de
news:





Salut,

Je pense qu'il s'agit bien d'un pb de fermeture d'excel via
automation


car vu les symptômes il reste un processus Excel en tâche de fond.
Cela



se
vérifie par affichage des processus dans le gestionnaire des
tâches.






Avant de libérer les variables par l'affectation avec nothing,
il




faut
fermer "proprement" excel avec:
wbk.close
xlappp.quit
Est-ce le cas?

A+

Rv

"Pascal" a écrit dans le message de
news:efBJz$
bonsoir,
ai un petit soucis dans le code suivant
ce code ouvre un fichier excell, mise en page(format) et
inscrit






des
données puis se ferme
le problème réside dans le format, a chaque ouverture de la base
et





appel
de
la procédure, tout fonctionne à merveille, dès que je relance
une






seconde
ou
xème fois, le format ne se fait pas et rien ne s'inscrit

voici le code
'ouvrir le fichier Excell
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
'Créer un objet Excell
Set xlApp = CreateObject("Excel.Application")
With xlApp
' Rendre Excell visible
.Visible = True
' Créer un nouveau classeur
Set wbk = .Workbooks.Add
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet
End With
'mise en page (format)
Range("A1").Select
ActiveCell.FormulaR1C1 = "test1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "test2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "test3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "test4"
Range("A2").Select
etc.......

je précise que les objet sont libéré à chaque sortie de la sub
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing

qqn a-t-il une vague idée?

merci

Pascal























Avatar
Raymond [mvp]
excel ne disparaitra que lors de la mise à nothing.
si tu veux supprimer excel et repartir dessus, il faut faire tes nothing
avant

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pascal" a écrit dans le message de news:
uo%
re, re,re,
Merci à tous les deux pour cette idée
mais même avec :
wbk.SaveAs ("C:Documents and SettingsUserBureau" & "T_" &
NbrCorrespondance & "Sortis")
wbk.Close
xlApp.Quit
dans le gestionnaire je vois toujours Excell? et impossible de relancer
cette routine sans fermer la base,
je vais essayer tout à l'heure ta propostion de partir sur une base propre
vous tiens bien entendu au courant de l'évolution
merci encore
Pascal


Avatar
Pascal
Bonsoir,
ben c'est ce que je fait M'sieur Raymond, j'ai pû isoler le problème sans
pour autant l'expliquer ni le résoudre!

si je supprime dans le code l'appel à la mise en forme du tableau Excell,
tout fonctionne à merveille
Donc si je supprime cette partie (qui je précise fonctionne 1 et 1 seul
fois!!)

Private Sub formaterFeuilleExcell()
Range("A1").Select
ActiveCell.FormulaR1C1 = "Nb1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Nb2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Nb3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Nb4"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Nb5"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Sortis"


Columns("A:E").Select
Range("A2").Activate
Selection.ColumnWidth = 5
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("F:F").Select
Selection.ColumnWidth = 7
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Ai oublié qqchose la dedans??

Pascal



"Raymond [mvp]" a écrit dans le message de
news: eiV#
excel ne disparaitra que lors de la mise à nothing.
si tu veux supprimer excel et repartir dessus, il faut faire tes nothing
avant

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pascal" a écrit dans le message de news:
uo%
re, re,re,
Merci à tous les deux pour cette idée
mais même avec :
wbk.SaveAs ("C:Documents and SettingsUserBureau" & "T_" &
NbrCorrespondance & "Sortis")
wbk.Close
xlApp.Quit
dans le gestionnaire je vois toujours Excell? et impossible de relancer
cette routine sans fermer la base,
je vais essayer tout à l'heure ta propostion de partir sur une base
propre


vous tiens bien entendu au courant de l'évolution
merci encore
Pascal






Avatar
Raymond [mvp]
impossible à savoir s'il manque une ligne ou 1 ligne en trop.
vérifie bien tes With , s'ils s'appliquent bien au bon objet.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pascal" a écrit dans le message de news:

Bonsoir,
ben c'est ce que je fait M'sieur Raymond, j'ai pû isoler le problème sans
pour autant l'expliquer ni le résoudre!

si je supprime dans le code l'appel à la mise en forme du tableau Excell,
tout fonctionne à merveille
Donc si je supprime cette partie (qui je précise fonctionne 1 et 1 seul
fois!!)

Private Sub formaterFeuilleExcell()
Range("A1").Select
ActiveCell.FormulaR1C1 = "Nb1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Nb2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Nb3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Nb4"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Nb5"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Sortis"


Columns("A:E").Select
Range("A2").Activate
Selection.ColumnWidth = 5
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("F:F").Select
Selection.ColumnWidth = 7
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Ai oublié qqchose la dedans??

Pascal



1 2 3