N'ayant jamais utilisé ceci, mais juste entendu parler...
Je n'arrive pas à déclarer 1 fonction.
J'ai ceci à placer :
Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
qui utilise OpenFileName que je dois également placer juste au dessus :
Type OpenFileName
lStructSize As Long
hwndOwner As Long
Instance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustomFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpRépertoire_initial 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
Si je place ces lignes sous :
Sub Bouton1_Click()
j'ai l'erreur de compilation :
(Declare Function se met en surbrillane)
Seuls des commentaires peuvent apparaître après End Sub, End Function, ou
End Property
Si je le place dans Général / Déclaration, après Option Explicit,
j'ai l'erreur de compilation :
(Type OpenFileName se met en surbrillance)
Impossible de définir un type Public défini par l'utilisateur à l'intérieur
d'un module objet.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Stéphane Lavergne
Merci Jessy, Stéphane et Anor.
"Stéphane Lavergne" a écrit dans le message de news:%
Bonjour,
N'ayant jamais utilisé ceci, mais juste entendu parler... Je n'arrive pas à déclarer 1 fonction.
J'ai ceci à placer :
Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
qui utilise OpenFileName que je dois également placer juste au dessus :
Type OpenFileName lStructSize As Long hwndOwner As Long Instance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustomFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpRépertoire_initial 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
Si je place ces lignes sous :
Sub Bouton1_Click()
j'ai l'erreur de compilation :
(Declare Function se met en surbrillane) Seuls des commentaires peuvent apparaître après End Sub, End Function, ou End Property
Si je le place dans Général / Déclaration, après Option Explicit, j'ai l'erreur de compilation :
(Type OpenFileName se met en surbrillance) Impossible de définir un type Public défini par l'utilisateur à l'intérieur
d'un module objet.
NB : le code est dans le VBA d'1 formulaire.
Merci d'avance,
Stéphane Lavergne
Merci Jessy, Stéphane et Anor.
"Stéphane Lavergne" <slavergne.enlevercetexte@power-m.fr> a écrit dans le
message de news:%238ZXAhCUDHA.556@TK2MSFTNGP12.phx.gbl...
Bonjour,
N'ayant jamais utilisé ceci, mais juste entendu parler...
Je n'arrive pas à déclarer 1 fonction.
J'ai ceci à placer :
Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
qui utilise OpenFileName que je dois également placer juste au dessus :
Type OpenFileName
lStructSize As Long
hwndOwner As Long
Instance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustomFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpRépertoire_initial 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
Si je place ces lignes sous :
Sub Bouton1_Click()
j'ai l'erreur de compilation :
(Declare Function se met en surbrillane)
Seuls des commentaires peuvent apparaître après End Sub, End Function, ou
End Property
Si je le place dans Général / Déclaration, après Option Explicit,
j'ai l'erreur de compilation :
(Type OpenFileName se met en surbrillance)
Impossible de définir un type Public défini par l'utilisateur à
l'intérieur
"Stéphane Lavergne" a écrit dans le message de news:%
Bonjour,
N'ayant jamais utilisé ceci, mais juste entendu parler... Je n'arrive pas à déclarer 1 fonction.
J'ai ceci à placer :
Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
qui utilise OpenFileName que je dois également placer juste au dessus :
Type OpenFileName lStructSize As Long hwndOwner As Long Instance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustomFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpRépertoire_initial 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
Si je place ces lignes sous :
Sub Bouton1_Click()
j'ai l'erreur de compilation :
(Declare Function se met en surbrillane) Seuls des commentaires peuvent apparaître après End Sub, End Function, ou End Property
Si je le place dans Général / Déclaration, après Option Explicit, j'ai l'erreur de compilation :
(Type OpenFileName se met en surbrillance) Impossible de définir un type Public défini par l'utilisateur à l'intérieur
d'un module objet.
NB : le code est dans le VBA d'1 formulaire.
Merci d'avance,
Stéphane Lavergne
gloops
Stéphane Lavergne a écrit le 22/07/2003 à 11h31 :
Merci Jessy, Stéphane et Anor.
"Stéphane Lavergne" a écrit dans le message de news:%
Bonjour,
N'ayant jamais utilisé ceci, mais juste entendu parler... Je n'arrive pas à déclarer 1 fonction.
J'ai ceci à placer :
Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
qui utilise OpenFileName que je dois également placer juste au dessus :
Type OpenFileName lStructSize As Long hwndOwner As Long Instance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustomFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpRépertoire_initial 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
Si je place ces lignes sous :
Sub Bouton1_Click()
j'ai l'erreur de compilation :
(Declare Function se met en surbrillane) Seuls des commentaires peuvent apparaître après End Sub, End Function, ou End Property
Si je le place dans Général / Déclaration, après Option Explicit, j'ai l'erreur de compilation :
(Type OpenFileName se met en surbrillance) Impossible de définir un type Public défini par l'utilisateur à l'intérieur d'un module objet.
NB : le code est dans le VBA d'1 formulaire.
Merci d'avance,
Stéphane Lavergne
Décidément, Generation-nt, ce n'est pas ça ... A quoi est-ce que ça sert de présenter une question et les remerciements pour la réponse, sans donner la réponse, et de demander ensuite aux utilisateurs des moteurs de recherche de consacrer du temps à lire ça ?
Stéphane Lavergne a écrit le 22/07/2003 à 11h31 :
Merci Jessy, Stéphane et Anor.
"Stéphane Lavergne"
a écrit dans le
message de news:%
Bonjour,
N'ayant jamais utilisé ceci, mais juste entendu parler...
Je n'arrive pas à déclarer 1 fonction.
J'ai ceci à placer :
Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
qui utilise OpenFileName que je dois également placer juste au dessus :
Type OpenFileName
lStructSize As Long
hwndOwner As Long
Instance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustomFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpRépertoire_initial 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
Si je place ces lignes sous :
Sub Bouton1_Click()
j'ai l'erreur de compilation :
(Declare Function se met en surbrillane)
Seuls des commentaires peuvent apparaître après End Sub, End
Function, ou
End Property
Si je le place dans Général / Déclaration, après
Option Explicit,
j'ai l'erreur de compilation :
(Type OpenFileName se met en surbrillance)
Impossible de définir un type Public défini par l'utilisateur
à
l'intérieur
d'un module objet.
NB : le code est dans le VBA d'1 formulaire.
Merci d'avance,
Stéphane Lavergne
Décidément, Generation-nt, ce n'est pas ça ...
A quoi est-ce que ça sert de présenter une question et les remerciements pour la réponse, sans donner la réponse, et de demander ensuite aux utilisateurs des moteurs de recherche de consacrer du temps à lire ça ?
"Stéphane Lavergne" a écrit dans le message de news:%
Bonjour,
N'ayant jamais utilisé ceci, mais juste entendu parler... Je n'arrive pas à déclarer 1 fonction.
J'ai ceci à placer :
Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
qui utilise OpenFileName que je dois également placer juste au dessus :
Type OpenFileName lStructSize As Long hwndOwner As Long Instance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustomFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpRépertoire_initial 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
Si je place ces lignes sous :
Sub Bouton1_Click()
j'ai l'erreur de compilation :
(Declare Function se met en surbrillane) Seuls des commentaires peuvent apparaître après End Sub, End Function, ou End Property
Si je le place dans Général / Déclaration, après Option Explicit, j'ai l'erreur de compilation :
(Type OpenFileName se met en surbrillance) Impossible de définir un type Public défini par l'utilisateur à l'intérieur d'un module objet.
NB : le code est dans le VBA d'1 formulaire.
Merci d'avance,
Stéphane Lavergne
Décidément, Generation-nt, ce n'est pas ça ... A quoi est-ce que ça sert de présenter une question et les remerciements pour la réponse, sans donner la réponse, et de demander ensuite aux utilisateurs des moteurs de recherche de consacrer du temps à lire ça ?
