Impression 'Impossible d'accéder'

Bonjour à tous
En VB6, j'insère et modifie des données dans un fichier Excel au moyen d'une connexion ADO par code. Aucun problème de communication avec le fichier. À la fin du traitement, je souhaite imprimer une ou des feuilles sans ouvrir Excel. J'utilise le code qui suit et j'obtiens le message suivant <Erreur d'exécuion '1004": Impossible d'accéder à "tititoto.xls"

Private Sub Print_Click()
Dim xlApp As Excel.Application

Set xlApp = New Excel.Application
xlApp.Visible = False      'excel directement sans le visualiser

xlApp.Workbooks.Open "C:\DossierTest\" & FmChoix.MonFich
xlApp.ActiveWorkbook.Sheets("Feuil_C").PrintOut

  'libérer le processus Excel

xlApp.Quit
Set xlApp = Nothing

End Sub

Pourtant, il reconnait le fichier puisqu'il le nomme par son nom.
Quelqu'un a t-il une idée du problème ?

Sinon, est-il possible d'imprimer en passant par ADO ? Si oui, comment. Ça fait 2 jours que je galère.

VB6 et Excel 2000

Merci de votre attention
tapageur

Salut
"il reconnait le fichier puisqu'il le nomme par son nom" : pas clair - Lapalisse (1470-1525)
Quand on enregistre une macro pendant qu'on fait une impression (méthode pratique), le code généré est
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ...
As-tu essayé de faire un 
   ActiveWorkbook.Sheets("Feuil_C").Select
puis de lancer l'impression avec la méthode "SelectedSheets" ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

salut

J'ai essayé, mais j'obtiens le même message d'erreur. Il ne se rend pas jusqu'à la ligne du ActiveWorkbook.Sheets("Feuil_C").Select. Il s'arrête sur le Open.

T'as raison Jack, il reconnait le fichier, c'est pas clair et ce n'est pas certain. Je voulais dire qu'il reconnait le chemin.
En fait, il réagit un peu comme si l'accès au fichier était interdit s'il n'est pas ouvert par Excel. Pourtant, avec ADO je peux y entrer les données.

Je galère, Help

Merci

tapageur

Salut,

Du nouveau..
Je viens de me rendre compte que le fichier <tititoto.xls> reste ouvert et c'est pour ça qu'il ne peut y accéder. En essayant de l'ouvrir directement par l'explorateur j'obtiens le même message.

Pourtant, avant de quitter ma Form précédente je fais bien un

Source.Close
Set Source = Nothing

Quelle commande on doit donner pour libérer complètement le classeur.

Merci

POUR LIBERER LE CLASSEUR

     xlApp.RunAutoMacros  xlAutoClose
    xlApp.Close
xlApp.Quit
Set xlApp = Nothing