Ouvrir fichier excel de VBA

Version imprimable

11/06/2013, 21h42
RSMA-Guyane

Ouvrir fichier excel de VBA

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

Code:

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

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:

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:

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:

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.

20/08/2019, 09h36
hyperion13
Si vous avez une erreur ici
Code:

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 ! :weird:
A mon humble avis après exportation la feuille doit se nommer "R_Selection_Resultats_StatistiqueGraphiques", nom de la source de l'exportation.
20/08/2019, 20h39
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
20/08/2019, 22h38
tee_grandbois

bonsoir,

Citation:

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

Citation:

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:

Copies:=Qte

Citation:

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
21/08/2019, 15h19
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
21/08/2019, 18h11
User
Bonsoir,

Citation:

Envoyé par 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

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

Code:

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:

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,