Discussion :

[jenniferIUP]

bonjour,

j'orais besoin d'ouvrir un fichier préci nommé "calcul du RIS" a partir d'un formulaire excel.
Je sais que je peut faire que excel s'ouvre grâce à l'assitant bouton de commande mais je ne sais comment faire pour quil ouvri un fichier précis

pouriez vous m'aider!

merci d'avance

[LedZeppII]

Bonjour,

Code :

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

1
2
3
Dim strFichierXL As String
strFichierXL = "chemin\calcul du RIS.xls"
Application.Workbooks.Open strFichierXL

Comme tu es déjà dans Excel, Application fait référence à Excel.

A+

[jenniferIUP]

access n'est pas d'accord avc ".Worksbook" qu'est ce que cela signifie t il?

[Invité]

Bonjour

Tu es dans Access ou Excel ?

Car il faut déclarer une instance d'Excel si tu es sous Access, un peu de lecture : Piloter Excel via Access : exemples d'opérations courantes effectuées sur cellules, plages, lignes ou colonnes excel à partir d'access.

Philippe

[LedZeppII]

Bonjour,

un exemple dans Access (avec une référence VB à Microsoft Excel x.x Object Library")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim appXL As Excel.Application, strXLfile As String
 
strXLfile = "chemin\calcul du RIS.xls"
 
On Error Resume Next
Set appXL = GetObject(, "Excel.Application")
On Error GoTo 0
If appXL Is Nothing Then
   Set appXL = New Excel.Application
   appXL.Visible = True
   appXL.UserControl = True
End If
appXL.Workbooks.Open strXLfile
AppActivate appXL.Caption

Sinon il a toujours cette bonne vielle méthode : Comment ouvrir un fichier en utilisant l'exécutable associé ?

A+

[rockys]

bonjour, j'ai utiliser le code que vous avez mis, il passe mais j'ai un problème sur le chemin pour ouvrir le fichier que je souhaite.
Le code m'ouvre bien Excel mais il m'envoie une heureux 1004.

[ClaudeLELOUP]

Bonjour,

Essaie cette méthode universelle (elle fonctionne quel que soit le fichier) donnée par Loufab ici :
http://www.developpez.net/forums/d15...m/#post8379917

Dans un module, que tu appelles par exemple « mLoufab », tu colles ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Public Sub Ouvrir_fichier(Chemin As String)
 
'Ouvrir, avec le pgm associé, le fichier dont le chemin est passé en paramètre
ShellExecute Application.hWndAccessApp, "open", Chemin, "", "", 1
 
End Sub

Et pour ouvrir n’importe quel fichier, tu écris simplement
Call Ouvrir_fichier("LecheminDuFichier") 

Windows ira chercher seul le lecteur associé et affichera au premier-plan.
Quand tu auras refermé la nouvelle fenêtre, Access reprendra le premier-plan.

[morobaboumar]

Bonjour ClaudeLELOUP,

Je voudrais savoir si avec votre code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Public Sub Ouvrir_fichier(Chemin As String)
 
'Ouvrir, avec le pgm associé, le fichier dont le chemin est passé en paramètre
ShellExecute Application.hWndAccessApp, "open", Chemin, "", "", 1
 
End Sub

et

Code :

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

1
2
3
4
5
Et pour ouvrir n’importe quel fichier, tu écris simplement 
Call Ouvrir_fichier("LecheminDuFichier") 
 
'Windows ira chercher seul le lecteur associé et affichera au premier-plan.
'Quand tu auras refermé la nouvelle fenêtre, Access reprendra le premier-plan.

l'on pourrais ajouter au bas et à droite de la fenêtre de l'explorateur, les boutons "OUVRIR" et "ANNULER" afin qu'au
clique de l'un des ces boutons soit, on ouvre le fichier sélectionné ou quitter ?

Pièce jointe

Cordialement

[tee_grandbois]

Bonjour,
il faut utiliser Application.Filedialog pour avoir ces 2 boutons.
regarde ces 2 de discussions il a des exemples de code :
https://www.developpez.net/forums/d1...s/#post9684463

https://www.developpez.net/forums/d1...n/#post7964840

[morobaboumar]

Salut Membre du forum !
Merci infiniment pour m'avoir donné les chemins qui me donnent ce que je recherche.
Néanmoins, je suis bloqué au nivieau du 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
23
24
25
26
Private Sub btnChoisirFichier_Click()
 
    If Not mdlGlobal.EST_MODE_DEBUG Then
        On Error GoTo Err_btnChoisirFichier_Click
    End If
 
    Dim fd As Office.FileDialog
    Dim fichier As Variant
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    With fd
        'Seulement 1 fichier
        .AllowMultiSelect = False
 
        'Défini les filtres de sélection
        Call .Filters.Clear
        Call .Filters.Add("Fichier Excel", "*.xls*")
        Call .Filters.Add("Tous les fichiers", "*.*")
 
        'Défini le Repertoire par défaut
        If Not IsNull(Me.RepertoireFichier) Then
            .InitialFileName = Me.RepertoireFichier
        End If
 
    End With

qui renvoie l'erreur suivante:"Membre de méfhode ou données introuvable" (voir image)
.

J'ai créé une table "GererPiecesJointes" dont voici les champs (NumAUTO"NuméroAuto" clé primaire; RepertoireFichier "Texte long"; NomFichier"Texte court". Je voudrais avoir un idée de comment programmer cette table avec le code ci-dessus ?

2°) 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
23
24
25
26
27
28
Function SelectionFichier()
  Dim fd As Office.FileDialog
 
  SelectionFichier = ""
 
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)
 
  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez un fichier..."
 
  ' Ne pas autoriser la sélection multiple
  ' (donc 1 seul fichier est sélectionnable à la fois)
  fd.AllowMultiSelect = False
 
  ' Définir les types de fichiers autorisés
  fd.Filters.Clear
  fd.Filters.Add "Excel", "*.xls; *.xlsm"
 
  ' Présélectionner le 2ème type de fichier (images)
  fd.FilterIndex = 1
 
  ' Afficher la boîte de dialogue
  If fd.Show() Then
    SelectionFichier = fd.SelectedItems(1)
  End If
  Set fd = Nothing
End Function

ouvre l'explorateur mais après la sélection du fichier rien ne s'affiche.
Quelle est l'origine de l'erreur ?
- Piece jointe voir le formulaire "GererLesPiècesJointes"
Cordialement

[tee_grandbois]

Me.RepertoireFichier est un champ du formulaire, cela vient du code dont tu t'es inspiré. Il faut faire le ménage avant d'utiliser un code qui vient de quelqu'un d'autre.

[morobaboumar]

Salut Membre du Forum !
Je viens de trouver un code sur developpez.net qui me rapproche de ce que je recherche:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
  Option Compare Database
 
  ' Tableau à déclarer plus haut dans ton code :
Dim arrayfichier() As String
::
  ' Déclaration de l'API
Private Declare Sub PathStripPath Lib "shlwapi.dll" Alias "PathStripPathA" (ByVal pszPath As String)
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
                   "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
 ' Structure du fichier
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
 
 ' Constantes
Private Const OFN_READONLY = &H1
Private Const OFN_OVERWRITEPROMPT = &H2
Private Const OFN_HIDEREADONLY = &H4
Private Const OFN_NOCHANGEDIR = &H8
Private Const OFN_SHOWHELP = &H10
Private Const OFN_ENABLEHOOK = &H20
Private Const OFN_ENABLETEMPLATE = &H40
Private Const OFN_ENABLETEMPLATEHANDLE = &H80
Private Const OFN_NOVALIDATE = &H100
Private Const OFN_ALLOWMULTISELECT = &H200
Private Const OFN_EXTENSIONDIFFERENT = &H400
Private Const OFN_PATHMUSTEXIST = &H800
Private Const OFN_FILEMUSTEXIST = &H1000
Private Const OFN_CREATEPROMPT = &H2000
Private Const OFN_SHAREAWARE = &H4000
Private Const OFN_NOREADONLYRETURN = &H8000
Private Const OFN_NOTESTFILECREATE = &H10000
Private Const OFN_SHAREFALLTHROUGH = 2
Private Const OFN_SHARENOWARN = 1
Private Const OFN_SHAREWARN = 0
 
'Public Function OuvrirUnFichier(Handle As Long, _
                                Titre As String, _
                                TypeRetour As Byte, _
                                Optional TitreFiltre As String, _
                                Optional TypeFichier As String, _
                                Optional RepParDefaut As String) As String
Public Function OuvrirUnFichier() As String
 
' OuvrirUnFichier est la fonction à utiliser dans votre formulaire pour ouvrir _
' la boîte de dialogue de sélection d'un fichier.
' Explication des paramètres
    ' Handle = le handle de la fenêtre
    ' Titre = titre de la boîte de dialogue
    ' TypeRetour (définit la valeur, de type String, renvoyée par la fonction)
        ' 1 = chemin complet + nom du fichier
        ' 2 = nom fichier seulement
    ' TitreFiltre = titre du filtre
        ' Exemple: fichier Access
        ' N'utilisez pas cet argument si vous ne voulez spécifier aucun filtre
    ' TypeFichier = extention du fichier (sans le .)
        ' Exemple: MDB
        ' N'utilisez pas cet argument si vous ne voulez spécifier aucun filtre
    ' RepParDefaut = répertoire d'ouverture par défaut
        ' Exemple: C:\windows\system32
        ' Si vous laissez l'argument vide, par défaut il se place dans le répertoire de votre application
 
Dim StructFile As OPENFILENAME
Dim sFiltre As String
Dim fichierchoisi, extfichier As String
Dim appWD As Object
 
' Construction du filtre en fonction des arguments spécifiés
sFiltre = sFiltre & "Tous (*.*)" & Chr$(0) & "*.*" & Chr$(0)
 
' Configuration de la boîte de dialogue
  With StructFile
    .lStructSize = Len(StructFile) ' Initialisation de la grosseur de la structure
    .hwndOwner = Handle ' Identification du handle de la fenêtre
    .lpstrFilter = sFiltre ' Application du filtre
    .lpstrFile = String$(254, vbNullChar) ' Initialisation du fichier '0' x 254
    .nMaxFile = 254 ' Taille maximale du fichier
    .lpstrFileTitle = String$(254, vbNullChar) ' Initialisation du nom du fichier '0' x 254
    .nMaxFileTitle = 254  ' Taille maximale du nom du fichier
    .lpstrTitle = Titre ' Titre de la boîte de dialogue
    .flags = OFN_HIDEREADONLY  ' Option de la boite de dialogue
    .lpstrInitialDir = "E:\dropbox\access"
  End With
 
''If (GetOpenFileName(StructFile)) Then ' Si un fichier est sélectionné
''fichierchoisi = Trim$(Left(StructFile.lpstrFile, InStr(1, StructFile.lpstrFile, vbNullChar)))
''extfichier = Right$(fichierchoisi, 4)
''MsgBox extfichier, vbDefaultButton1, "Control"
 
  '.....
If (GetOpenFileName(StructFile)) Then ' Si un fichier est sélectionné
fichierchoisi = Trim$(Left(StructFile.lpstrFile, InStr(1, StructFile.lpstrFile, vbNullChar)))
arrayfichier = Split(fichierchoisi, ".")
extfichier = Replace(arrayfichier(UBound(arrayfichier)), vbNullChar, "")
MsgBox extfichier, vbDefaultButton1, "Control"
    If extfichier = "doc" Or extfichier = "docx" Or extfichier = "txt" Then
        Set appWD = CreateObject("Word.Application")
            With appWD
            .Visible = True
            .Documents.Open Trim$(Left(StructFile.lpstrFile, InStr(1, StructFile.lpstrFile, vbNullChar)))
            .WindowState = wdWindowStateMaximize
            .Activate
            End With
    'ElseIf extfichier = "xls" Or extfichier = "xla" Or extfichier = "xlsm" Or extfichier = " xlsx" Then
        ElseIf extfichier = "xls" Or extfichier = "xla" Or extfichier = "xlsm" Or extfichier = "xlsx" Then
        Set appWD = CreateObject("Excel.Application")
            With appWD
            .Visible = True
            .Documents.Add Template:=Trim$(Left(StructFile.lpstrFile, InStr(1, StructFile.lpstrFile, vbNullChar))), NewTemplate:=False, DocumentType:=0
            .WindowState = wdWindowStateMaximize
            .Activate
             End With
    Else
        MsgBox "Fichier non supporté, veuillez utiliser l'explorateur de Windows", vbCritical, "Message utilisateur"
    End If
Else
    Exit Function
End If
End Function
 
Private Sub CmdOuvrirUnFichier_Click()
'MsgBox OuvrirUnFichier(Application.hWndAccessApp, "Parcourir", 1)
Call OuvrirUnFichier
End Sub

.
Cependant, il y a des messagers d'erreur qui surviennent après Click sur la commande "CmdOuvrirUnFichier" Legende"Ouvrir Un Fichier" du formulaire "OuvrirUnFichier":
Pièce jointe 394522
et
Pièce jointe 394525
et
.
Seul les fichiers Word s'affichent correctement, Excel;une fenêtre vide, et le reste des applications
ne s'affiche pas.
Espérant trouver une réponse favorable, recevez toutes mes reconnaissances.
Merci infiniment.

- Pièces jointes: - captures des erreurs,
- copie de ma BD.
Cordialement

[morobaboumar]

Discussion résolue https://www.developpez.net/forums/d1...ications-code/