Discussion :

[RSMA-Guyane]

Quelle fonction utiliser pour ouvrir un fichier Excel via un bouton.
Pas de transfert de table ou autre à réaliser.
Merci d'avance.

[ffdream62]

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
17
    Dim xlApp As Object
    Dim path as String
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
 
    'Ouverture
    path = "c:\monclasseur.xls"
    xlApp.workbooks.Open (path)
 
    'Impression
    xlApp.workbooks("monclasseur.xls").sheets("NomDeLaFeuille").PrintOut Copies:=Qte, Collate:=True
 
    'Fermeture
    xlApp.workbooks.Close
 
    Set xlApp = Nothing

[m_charmat]

Bonjour,

Je suis intéresser par le sujet, j'ai utiliser votre code avec une petite modif avant l'ouverture du fichier Excel

voila tous le code :

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
17
18
19
20
21
22
Private Sub Commande151_Click()
'Créer la conversion de la requete souhaiter vers un fichier Excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "R_Selection_Resultats_StatistiqueGraphiques", "C:\Users\Informatique\Desktop\Nouveau dossier\X.xls", True
 
 Dim xlApp As Object
    Dim path As String
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
 
    'Ouverture
    path = "C:\Users\Informatique\Desktop\Nouveau dossier\X.xls"
    xlApp.workbooks.Open (path)
 
    'Impression
    xlApp.workbooks("X.xls").sheets("R_Selection_Resultats_Statistiq").PrintOut Copies:=Qte, Collate:=True
 
    'Fermeture
    xlApp.workbooks.Close
 
    Set xlApp = Nothing
End Sub

Le code suivant, réalise le fichier Excel depuis une requeête que je veux travailler avec plus tard

Code :

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

1
2
'Créer la conversion de la requete souhaiter vers un fichier Excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "R_Selection_Resultats_StatistiqueGraphiques", "C:\Users\Informatique\Desktop\Nouveau dossier\X.xls", True

Le ligne suivante m'afficher erreur de débogage :

Code :

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

1
2
 'Impression
 xlApp.workbooks("X.xls").sheets("R_Selection_Resultats_Statistiq").PrintOut Copies:=Qte, Collate:=True

Cette ligne c'est pour imprimer ? si oui, j'aimerai juste ouvrir le classeur sans l'imprimer.

Merci.

[hyperion13]

Si vous avez une erreur ici

Code :

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

1
2
 'Impression
 xlApp.workbooks("X.xls").sheets("R_Selection_Resultats_Statistiq").PrintOut Copies:=Qte, Collate:=True

C'est probablement dû au fait que la feuille "R_Selection_Resultats_Statistiq" n'existe pas dans le classeur !
A mon humble avis après exportation la feuille doit se nommer "R_Selection_Resultats_StatistiqueGraphiques", nom de la source de l'exportation.

[m_charmat]

Bonsoir,

Le fichier Excel s'ouvre normalement, et le classeur s'affiche correctement, il y'a juste ce message d'erreur qui dérange.

J'ai vérifié le nom du classeur, c'est écrit incomplet comme je vous écrit, mais je vais essayer votre idée.

Sinon, je vais renommer la requête en plus petit pour voir si le problème persiste, ou pas.
Merci

[tee_grandbois]

bonsoir,

Le ligne suivante m'afficher erreur de débogage :

Le fichier Excel s'ouvre normalement, et le classeur s'affiche correctement, il y'a juste ce message d'erreur qui dérange.

1) tu ne dis toujours pas quelle erreur est levée
2) si Qte n'est pas renseigné, cela va provoquer une erreur:

Code :

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

Copies:=Qte

Cette ligne c'est pour imprimer ? si oui, j'aimerai juste ouvrir le classeur sans l'imprimer.

3) si tu ne veux pas imprimer la feuille, il suffit de supprimer la ligne

[m_charmat]

Bonjour,

Je viens de me rendre compte que je devais donner le nombre de copie à imprimer.

Moi j'aimerai juste ouvrir le classeur pour pouvoir travailler le tableau croisé sur Excel.

vous n'avez pas une ligne a proposer ?

Merci

[User]

Bonsoir,

Bonjour,

Je viens de me rendre compte que je devais donner le nombre de copie à imprimer.

Moi j'aimerai juste ouvrir le classeur pour pouvoir travailler le tableau croisé sur Excel.

vous n'avez pas une ligne a proposer ?

Merci

Je ne comprends pas votre demande, vous avez déjà posté du code permettant d'ouvrir le classeur

'Ouverture

Code :

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

1
2
path = "C:\Users\Informatique\Desktop\Nouveau dossier\X.xls"
    xlApp.workbooks.Open (path)

Personnellement, j'aurais plutôt utilisé une variable wb pour le faire :

Code :

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

1
2
3
4
5
6
7
 'Ouverture
    Dim wb as object
    ...
    path = "C:\Users\Informatique\Desktop\Nouveau dossier\X.xls"
    set wb = xlApp.workbooks.Open (path)
    ...
    set wb = nothing

Cdlt,