Ouvrir un fichier excel depuis access en vba

**Blado_sap** · 03/02/2015, 21h58

Bonjour à tous,

Je rencontre un problème lorsque je souhaite ouvrir un fichier excel depuis access sur un click en vba

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private sub cmd_open_fich_click()
Dim nomfichier as string, chemin as string
Dis wbexcel as Workbook
 
Nomfichier = "test.xlsm"
Chemin = "c:\documents ans settings\pc\bureau\"
 
Set wbexcel = workbooks.open(chemin & nomfichier)
 
End sub

Le probleme est que le fichier ne s'ouvre pas mais un processus excel est bien ouvert dans le gestionnaire des taches Windows

Une idee??

D'avance merci
Blado_sap

**PipoWIL** · 04/02/2015, 09h36

Bonjour Blado_sap,

Voici quelques lignes de code qui montrent une manière de d'ouvrir Excel depuis Access et de travailler sur le tableur.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Function ouvrirExcel()
 
'Requires to define in Tools menu the reference to Microsoft Excel Object Library
'Beware : this object library may be different from PC to PC : version 11 or 12 or..
Dim objXL As Excel.Application
Dim objWkbk As Workbook
Dim objSht As Worksheet
Dim i As Integer
 
'ouvrir Excel
'Si Excel est déjà ouvert sur le PC, GetObject suffit.
On Local Error Resume Next
Set objXL = GetObject(, "Excel.Application")
'Par contre, si Excel n'est pas encore lancé sur le PC, alors il faut le faire par ce CreateObject
If Nothing Is objXL Then
    Set objXL = CreateObject("Excel.Application")
End If
On Error GoTo 0
 
'ouvrir le fichier
Set objWkbk = objXL.Workbooks.Open("C:\Temp\Book1.xls")
 
 
'The sheet with our data is the first one
Set objSht = objWkbk.Worksheets(1)
 
objXL.Visible = True
 
'Make this sheet the active one when we open the Spreadsheet
objSht.Activate
 
 
'Travailler sur le tableur Excel.  For example, set titles in grey.  Gris clair = color15  Gris foncé= 16
With objSht
    'il y a 3 colonnes
    For i = 1 To 3
        .Cells(1, i).Interior.ColorIndex = 15
        .Cells(1, i).WrapText = True
    Next i
End With
 
'Fermer le fichier et le sauver
objWkbk.Close True
 
'libérer les pointeurs
Set objWkbk = Nothing
Set objXL = Nothing
 
End Function

**Saumon80** · 14/02/2015, 15h50

Bonjour

Pipowil ce code est intéréssant,peut on l'appliquer pour ouvrir un fichier précis
Par exemple j'ai 20 fichiers excel numérotés 1 à 20 puis je associer chacun de ces fichiers à un chiffre sur acces dans une liste déroulante qui lorsque je clic dessus ouvrirai le fichier excel correspondant

Dans ce cas comment pourrais je lier la fonction qu'il y a dans ton code à ma liste?

**PipoWIL** · 16/02/2015, 09h42

Oui, biensûr. C'est très facile.
Voici une marche à suivre. à toi de la modifier en function des tes besoins.

1 J'ai créé une table avec les chemins des fichiers Excel à ouvrirPièce jointe 169089
un petit conseil : éviter les chemins qui utilisent les lettres de drive comme H:\groupe\MonChemin\test.xls Si votre collègue a eu l'idée de configurer son PC et d'associer une autre lettre à ce serveur de fichiers, votre chemin ne fonctionnera plus. Préférez les chemins UNC.

2. J'ai créé un formulaire avec une liste déroulante. J'y fait dérouler la table avec mes noms de fichiers :Pièce jointe 169090
J'ai ajouté un évènement (j'ai choisi sur click) qui appelle du code VBA

3 J'ai écrit ce code vba de 3 lignes

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub List0_Click()
'ouvrir Excel pour le fichier choisi dans la listbox
Dim strCheminFichier As String
 
strCheminFichier = Me.List0
 
ouvrirExcel (strCheminFichier)
 
End Sub

qui appelle le code que tu avais vu dans le post precedent.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Function ouvrirExcel(strCheminFichier)
 
'Requires to define in Tools menu the reference to Microsoft Excel Object Library
'Beware : this object library may be different from PC to PC : version 11 or 12 or..
Dim objXL As Excel.Application
Dim objWkbk As Workbook
Dim objSht As Worksheet
Dim i As Integer
 
'ouvrir Excel
'Si Excel est déjà ouvert sur le PC, GetObject suffit.
On Local Error Resume Next
Set objXL = GetObject(, "Excel.Application")
'Par contre, si Excel n'est pas encore lancé sur le PC, alors il faut le faire par ce CreateObject
If Nothing Is objXL Then
    Set objXL = CreateObject("Excel.Application")
End If
On Error GoTo 0
 
'ouvrir le fichier
Set objWkbk = objXL.Workbooks.Open(strCheminFichier)
 
 
'The sheet with our data is the first one
Set objSht = objWkbk.Worksheets(1)
 
objXL.Visible = True
 
'Make this sheet the active one when we open the Spreadsheet
objSht.Activate
 
 
'Travailler sur le tableur Excel.  For example, set titles in grey.  Gris clair = color15  Gris foncé= 16
With objSht
    'il y a 3 colonnes
    For i = 1 To 3
        .Cells(1, i).Interior.ColorIndex = 15
        .Cells(1, i).WrapText = True
    Next i
End With
 
'Fermer le fichier et le sauver
objWkbk.Close True
 
'libérer les pointeurs
Set objWkbk = Nothing
Set objXL = Nothing
 
End Function

où tu auras remarqué deux changements :
La ligne

Code :

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

Function ouvrirExcel()

est devenue

Code :

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

Function ouvrirExcel(strCheminFichier)

parce que la function utilise le nom de fichier comme variable. Et cette variable est utilisée lors de l'ouverture du fichier ici

Code :

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

1
2
'ouvrir le fichier
Set objWkbk = objXL.Workbooks.Open(strCheminFichier)

**Saumon80** · 16/02/2015, 14h19

Merci beaucoup Pipowil

Tu m'as bien expliqué mais je ne sais pas pourquoi j'ai une erreur

Code :

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

Dim objXL As Excel.Application

me renvoie l'erreur type défini par l'utilisateur non défini

Te serait il possible de m'envoyer l'exemple que tu m'a donné sous la forme d'une base de donnée avec le code pour que je le teste je me suis peut etre trompé quelque part

**PipoWIL** · 16/02/2015, 14h40

As-tu bien define tes references ?

==> Menu Tools / References ==> Cocher Microsoft Excel 12.0 library....

**Bronzo73** · 21/12/2020, 18h08

Envoyé par PipoWIL

Bonjour Blado_sap,

Voici quelques lignes de code qui montrent une manière de d'ouvrir Excel depuis Access et de travailler sur le tableur.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Function ouvrirExcel()
 
'Requires to define in Tools menu the reference to Microsoft Excel Object Library
'Beware : this object library may be different from PC to PC : version 11 or 12 or..
Dim objXL As Excel.Application
Dim objWkbk As Workbook
Dim objSht As Worksheet
Dim i As Integer
 
'ouvrir Excel
'Si Excel est déjà ouvert sur le PC, GetObject suffit.
On Local Error Resume Next
Set objXL = GetObject(, "Excel.Application")
'Par contre, si Excel n'est pas encore lancé sur le PC, alors il faut le faire par ce CreateObject
If Nothing Is objXL Then
    Set objXL = CreateObject("Excel.Application")
End If
On Error GoTo 0
 
'ouvrir le fichier
Set objWkbk = objXL.Workbooks.Open("C:\Temp\Book1.xls")
 
 
'The sheet with our data is the first one
Set objSht = objWkbk.Worksheets(1)
 
objXL.Visible = True
 
'Make this sheet the active one when we open the Spreadsheet
objSht.Activate
 
 
'Travailler sur le tableur Excel.  For example, set titles in grey.  Gris clair = color15  Gris foncé= 16
With objSht
    'il y a 3 colonnes
    For i = 1 To 3
        .Cells(1, i).Interior.ColorIndex = 15
        .Cells(1, i).WrapText = True
    Next i
End With
 
'Fermer le fichier et le sauver
objWkbk.Close True
 
'libérer les pointeurs
Set objWkbk = Nothing
Set objXL = Nothing
 
End Function

Bonjour PipoWIL,

Merci pour ce code qui fonctionne, chez moi, imparfaitement.

J'ai modifié les actions à effectuer, sans refermer le fichier, car c'est pour faire des vérifs.

Lorsqu’on demande l'ouverture d'un classeur utilisant des fonctions de Macros Complémentaires, Excel pose la question :
Ce classeur contient des liaisons vers d'autres sources de données.
- Cliquez sur Oui pour mettre à jour toutes les informations liées.
- Cliquez sur Non pour conserver les informations existantes.

Si on répond Oui, on peut demander l'ouverure de la source demandée, mais la macro bugue;
si on répond Non, les cellules contenant ces fonctions ne sont pas mises à jour.

J'ai résolu le problème en ouvrant deux fois le classeur et en répondant à toutes les questions demandées par Excel.

Avez-vous une idée de la cause du problème ?

Cordialement,

Bronzo73

**Babelge** · 20/09/2024, 12h50

Bonjour,
J'essaye de comprendre pourquoi le code de pipowil est présenté en "fonction" plutôt qu'en "sub".
Il ne rapporte pourtant pas de valeur.

Cordialement

**PipoWIL** · 20/09/2024, 13h00

Bonjour,
J'ai utilisé une fonction parce que j'ai l'habitude d'utiliser des fonctions mais une Sub fonctionne aussi bien. Faites comme vous voulez, une Sub ou une fonction.

**loufab** · 21/09/2024, 05h18

Envoyé par Babelge

Bonjour,
J'essaye de comprendre pourquoi le code de pipowil est présenté en "fonction" plutôt qu'en "sub".
Il ne rapporte pourtant pas de valeur.

Cordialement

Bonjour,

Il peut y avoir un intérêt à utiliser une fonction à la place d'un procédure qui ne renvoie rien.

Qu'elle soit visible pour certains composants d'Access comme les propriétés de contrôle et les macros.

Cordialement,

**deedolith** · 21/09/2024, 23h52

Hello,

Envoyé par loufab

Il peut y avoir un intérêt à utiliser une fonction à la place d'un procédure qui ne renvoie rien.

Qu'elle soit visible pour certains composants d'Access comme les propriétés de contrôle et les macros.

Option Private Module ?