Bonjour,
J'ai utilisé la fonction
(http://access.seneque.free.fr/ouverture_document.htm) de Raymond qui
fonctionne très bien pour ma base de données de films, mais comme je
souhaiterais ajouter un bouton pour ouvrir le fichier qui se trouve dans
mon
contrôle.
J'utilise ce code pour ouvrir l'appli, mais comment puis-je indiquer le
nom
de mon contrôle où se trouve le chemin de mon fichier ?
Private Sub BtnOpenFile_Click()
On Error GoTo Err_BtnOpenFile_Click
Dim stAppName As String
stAppName = "C:Program FilesWindows Media Playerwmplayer.exe"
Call Shell(stAppName, 3)
Exit_BtnOpenFile_Click:
Exit Sub
Err_BtnOpenFile_Click:
MsgBox Err.Description
Resume Exit_BtnOpenFile_Click
End Sub
Merci
Patrice
Bonjour,
J'ai utilisé la fonction
(http://access.seneque.free.fr/ouverture_document.htm) de Raymond qui
fonctionne très bien pour ma base de données de films, mais comme je
souhaiterais ajouter un bouton pour ouvrir le fichier qui se trouve dans
mon
contrôle.
J'utilise ce code pour ouvrir l'appli, mais comment puis-je indiquer le
nom
de mon contrôle où se trouve le chemin de mon fichier ?
Private Sub BtnOpenFile_Click()
On Error GoTo Err_BtnOpenFile_Click
Dim stAppName As String
stAppName = "C:Program FilesWindows Media Playerwmplayer.exe"
Call Shell(stAppName, 3)
Exit_BtnOpenFile_Click:
Exit Sub
Err_BtnOpenFile_Click:
MsgBox Err.Description
Resume Exit_BtnOpenFile_Click
End Sub
Merci
Patrice
Bonjour,
J'ai utilisé la fonction
(http://access.seneque.free.fr/ouverture_document.htm) de Raymond qui
fonctionne très bien pour ma base de données de films, mais comme je
souhaiterais ajouter un bouton pour ouvrir le fichier qui se trouve dans
mon
contrôle.
J'utilise ce code pour ouvrir l'appli, mais comment puis-je indiquer le
nom
de mon contrôle où se trouve le chemin de mon fichier ?
Private Sub BtnOpenFile_Click()
On Error GoTo Err_BtnOpenFile_Click
Dim stAppName As String
stAppName = "C:Program FilesWindows Media Playerwmplayer.exe"
Call Shell(stAppName, 3)
Exit_BtnOpenFile_Click:
Exit Sub
Err_BtnOpenFile_Click:
MsgBox Err.Description
Resume Exit_BtnOpenFile_Click
End Sub
Merci
Patrice
Bonsoir.
tu n'as pas besoin de passer par un shell sinon il te faudra autant
d'exécutifs que de types de fichiers. il faut que tu passes par une api
qui
permet de lancer l'exécution d'un fichier et c'est windows qui affecte
automatiquement l'exécutif correspondant selon l'extension du fichier.
prenons pour exemple un fichier .Wav, l'api windows lancera
automatiquement
wmplayer.exe pour exécuter ce fichier audio.
tu utiliseras donc l'api OpenFileExtend qui se trouve sur la page :
http://access.seneque.free.fr/executer_selon_ext.htm
tu lanceras la commande : OpenFileExtend Moncontroletexte, Normal,
OpExecute
suis les instructions données sur la page.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cj9kfg$a3o$Bonjour,
J'ai utilisé la fonction
(http://access.seneque.free.fr/ouverture_document.htm) de Raymond qui
fonctionne très bien pour ma base de données de films, mais comme je
souhaiterais ajouter un bouton pour ouvrir le fichier qui se trouve dans
mon
contrôle.
J'utilise ce code pour ouvrir l'appli, mais comment puis-je indiquer le
nom
de mon contrôle où se trouve le chemin de mon fichier ?
Private Sub BtnOpenFile_Click()
On Error GoTo Err_BtnOpenFile_Click
Dim stAppName As String
stAppName = "C:Program FilesWindows Media Playerwmplayer.exe"
Call Shell(stAppName, 3)
Exit_BtnOpenFile_Click:
Exit Sub
Err_BtnOpenFile_Click:
MsgBox Err.Description
Resume Exit_BtnOpenFile_Click
End Sub
Merci
Patrice
Bonsoir.
tu n'as pas besoin de passer par un shell sinon il te faudra autant
d'exécutifs que de types de fichiers. il faut que tu passes par une api
qui
permet de lancer l'exécution d'un fichier et c'est windows qui affecte
automatiquement l'exécutif correspondant selon l'extension du fichier.
prenons pour exemple un fichier .Wav, l'api windows lancera
automatiquement
wmplayer.exe pour exécuter ce fichier audio.
tu utiliseras donc l'api OpenFileExtend qui se trouve sur la page :
http://access.seneque.free.fr/executer_selon_ext.htm
tu lanceras la commande : OpenFileExtend Moncontroletexte, Normal,
OpExecute
suis les instructions données sur la page.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <XYZpatousky@tiscali.fr> a écrit dans le message de news:
cj9kfg$a3o$1@news.tiscali.fr...
Bonjour,
J'ai utilisé la fonction
(http://access.seneque.free.fr/ouverture_document.htm) de Raymond qui
fonctionne très bien pour ma base de données de films, mais comme je
souhaiterais ajouter un bouton pour ouvrir le fichier qui se trouve dans
mon
contrôle.
J'utilise ce code pour ouvrir l'appli, mais comment puis-je indiquer le
nom
de mon contrôle où se trouve le chemin de mon fichier ?
Private Sub BtnOpenFile_Click()
On Error GoTo Err_BtnOpenFile_Click
Dim stAppName As String
stAppName = "C:Program FilesWindows Media Playerwmplayer.exe"
Call Shell(stAppName, 3)
Exit_BtnOpenFile_Click:
Exit Sub
Err_BtnOpenFile_Click:
MsgBox Err.Description
Resume Exit_BtnOpenFile_Click
End Sub
Merci
Patrice
Bonsoir.
tu n'as pas besoin de passer par un shell sinon il te faudra autant
d'exécutifs que de types de fichiers. il faut que tu passes par une api
qui
permet de lancer l'exécution d'un fichier et c'est windows qui affecte
automatiquement l'exécutif correspondant selon l'extension du fichier.
prenons pour exemple un fichier .Wav, l'api windows lancera
automatiquement
wmplayer.exe pour exécuter ce fichier audio.
tu utiliseras donc l'api OpenFileExtend qui se trouve sur la page :
http://access.seneque.free.fr/executer_selon_ext.htm
tu lanceras la commande : OpenFileExtend Moncontroletexte, Normal,
OpExecute
suis les instructions données sur la page.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cj9kfg$a3o$Bonjour,
J'ai utilisé la fonction
(http://access.seneque.free.fr/ouverture_document.htm) de Raymond qui
fonctionne très bien pour ma base de données de films, mais comme je
souhaiterais ajouter un bouton pour ouvrir le fichier qui se trouve dans
mon
contrôle.
J'utilise ce code pour ouvrir l'appli, mais comment puis-je indiquer le
nom
de mon contrôle où se trouve le chemin de mon fichier ?
Private Sub BtnOpenFile_Click()
On Error GoTo Err_BtnOpenFile_Click
Dim stAppName As String
stAppName = "C:Program FilesWindows Media Playerwmplayer.exe"
Call Shell(stAppName, 3)
Exit_BtnOpenFile_Click:
Exit Sub
Err_BtnOpenFile_Click:
MsgBox Err.Description
Resume Exit_BtnOpenFile_Click
End Sub
Merci
Patrice
Merci celà fonctionne,
J'ai été obligé d'ajouter les parenthèses (access 2003) dans la
déclarations
:
Dim Réponse As Variant
Réponse = OpenFileExtend([PlaceFiles1], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
et j'ai enlever du module
http://access.seneque.free.fr/ouverture_document.htm les points virgules
(;)
de fin :
OpenFile = Trim(Dialogue.lpstrFile)
OpenFile = Left(OpenFile, Len(OpenFile) - 1)
'OpenFile = Replace(OpenFile, Chr(0), ";") 'Pour plusieurs fichiers
dans
le même contrôle séparés par des points virgules (;)
OpenFile = Replace(OpenFile, Chr(0), "") 'Pour un seul fichier dans un
contrôle
'tOpenFile = Split(OpenFile, ";") 'Pour plusieurs fichiers dans le même
contrôle séparés par des points virgules (;)
tOpenFile = Split(OpenFile, "") 'Pour un seul fichier dans un contrôle
Dis-moi, STP, si j'ai correctement modifié...
Merci encore
Patrice
Merci celà fonctionne,
J'ai été obligé d'ajouter les parenthèses (access 2003) dans la
déclarations
:
Dim Réponse As Variant
Réponse = OpenFileExtend([PlaceFiles1], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
et j'ai enlever du module
http://access.seneque.free.fr/ouverture_document.htm les points virgules
(;)
de fin :
OpenFile = Trim(Dialogue.lpstrFile)
OpenFile = Left(OpenFile, Len(OpenFile) - 1)
'OpenFile = Replace(OpenFile, Chr(0), ";") 'Pour plusieurs fichiers
dans
le même contrôle séparés par des points virgules (;)
OpenFile = Replace(OpenFile, Chr(0), "") 'Pour un seul fichier dans un
contrôle
'tOpenFile = Split(OpenFile, ";") 'Pour plusieurs fichiers dans le même
contrôle séparés par des points virgules (;)
tOpenFile = Split(OpenFile, "") 'Pour un seul fichier dans un contrôle
Dis-moi, STP, si j'ai correctement modifié...
Merci encore
Patrice
Merci celà fonctionne,
J'ai été obligé d'ajouter les parenthèses (access 2003) dans la
déclarations
:
Dim Réponse As Variant
Réponse = OpenFileExtend([PlaceFiles1], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
et j'ai enlever du module
http://access.seneque.free.fr/ouverture_document.htm les points virgules
(;)
de fin :
OpenFile = Trim(Dialogue.lpstrFile)
OpenFile = Left(OpenFile, Len(OpenFile) - 1)
'OpenFile = Replace(OpenFile, Chr(0), ";") 'Pour plusieurs fichiers
dans
le même contrôle séparés par des points virgules (;)
OpenFile = Replace(OpenFile, Chr(0), "") 'Pour un seul fichier dans un
contrôle
'tOpenFile = Split(OpenFile, ";") 'Pour plusieurs fichiers dans le même
contrôle séparés par des points virgules (;)
tOpenFile = Split(OpenFile, "") 'Pour un seul fichier dans un contrôle
Dis-moi, STP, si j'ai correctement modifié...
Merci encore
Patrice
Bonjour.
il ne faut pas modifier la procédure openfile et surtout supprimer les ;
sinon tu vas provoquer des erreurs de résultat.
pour les ( et ) , exact je le modifie tout de suite.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cja1mo$der$Merci celà fonctionne,
J'ai été obligé d'ajouter les parenthèses (access 2003) dans la
déclarations
:
Dim Réponse As Variant
Réponse = OpenFileExtend([PlaceFiles1], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
et j'ai enlever du module
http://access.seneque.free.fr/ouverture_document.htm les points virgules
(;)
de fin :
OpenFile = Trim(Dialogue.lpstrFile)
OpenFile = Left(OpenFile, Len(OpenFile) - 1)
'OpenFile = Replace(OpenFile, Chr(0), ";") 'Pour plusieurs fichiers
dans
le même contrôle séparés par des points virgules (;)
OpenFile = Replace(OpenFile, Chr(0), "") 'Pour un seul fichier dans
un
contrôle
'tOpenFile = Split(OpenFile, ";") 'Pour plusieurs fichiers dans le
même
contrôle séparés par des points virgules (;)
tOpenFile = Split(OpenFile, "") 'Pour un seul fichier dans un
contrôle
Dis-moi, STP, si j'ai correctement modifié...
Merci encore
Patrice
Bonjour.
il ne faut pas modifier la procédure openfile et surtout supprimer les ;
sinon tu vas provoquer des erreurs de résultat.
pour les ( et ) , exact je le modifie tout de suite.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <XYZpatousky@tiscali.fr> a écrit dans le message de news:
cja1mo$der$1@news.tiscali.fr...
Merci celà fonctionne,
J'ai été obligé d'ajouter les parenthèses (access 2003) dans la
déclarations
:
Dim Réponse As Variant
Réponse = OpenFileExtend([PlaceFiles1], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
et j'ai enlever du module
http://access.seneque.free.fr/ouverture_document.htm les points virgules
(;)
de fin :
OpenFile = Trim(Dialogue.lpstrFile)
OpenFile = Left(OpenFile, Len(OpenFile) - 1)
'OpenFile = Replace(OpenFile, Chr(0), ";") 'Pour plusieurs fichiers
dans
le même contrôle séparés par des points virgules (;)
OpenFile = Replace(OpenFile, Chr(0), "") 'Pour un seul fichier dans
un
contrôle
'tOpenFile = Split(OpenFile, ";") 'Pour plusieurs fichiers dans le
même
contrôle séparés par des points virgules (;)
tOpenFile = Split(OpenFile, "") 'Pour un seul fichier dans un
contrôle
Dis-moi, STP, si j'ai correctement modifié...
Merci encore
Patrice
Bonjour.
il ne faut pas modifier la procédure openfile et surtout supprimer les ;
sinon tu vas provoquer des erreurs de résultat.
pour les ( et ) , exact je le modifie tout de suite.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cja1mo$der$Merci celà fonctionne,
J'ai été obligé d'ajouter les parenthèses (access 2003) dans la
déclarations
:
Dim Réponse As Variant
Réponse = OpenFileExtend([PlaceFiles1], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
et j'ai enlever du module
http://access.seneque.free.fr/ouverture_document.htm les points virgules
(;)
de fin :
OpenFile = Trim(Dialogue.lpstrFile)
OpenFile = Left(OpenFile, Len(OpenFile) - 1)
'OpenFile = Replace(OpenFile, Chr(0), ";") 'Pour plusieurs fichiers
dans
le même contrôle séparés par des points virgules (;)
OpenFile = Replace(OpenFile, Chr(0), "") 'Pour un seul fichier dans
un
contrôle
'tOpenFile = Split(OpenFile, ";") 'Pour plusieurs fichiers dans le
même
contrôle séparés par des points virgules (;)
tOpenFile = Split(OpenFile, "") 'Pour un seul fichier dans un
contrôle
Dis-moi, STP, si j'ai correctement modifié...
Merci encore
Patrice
Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier dans
mon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1), Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier dans
mon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1), Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier dans
mon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1), Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cjbi3k$9iv$Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dans
mon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1), Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <XYZpatousky@tiscali.fr> a écrit dans le message de news:
cjbi3k$9iv$1@news.tiscali.fr...
Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dans
mon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1), Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cjbi3k$9iv$Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dans
mon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1), Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
Bonjour du matin
Pas de nouvelles ? C pas possible ?
Patrice
"Raymond [mvp]" a écrit dans le message de
news:%ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cjbi3k$9iv$Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dansmon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1),
Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
Bonjour du matin
Pas de nouvelles ? C pas possible ?
Patrice
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:%23RoK8IVpEHA.132@TK2MSFTNGP14.phx.gbl...
ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <XYZpatousky@tiscali.fr> a écrit dans le message de news:
cjbi3k$9iv$1@news.tiscali.fr...
Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dans
mon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1),
Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
Bonjour du matin
Pas de nouvelles ? C pas possible ?
Patrice
"Raymond [mvp]" a écrit dans le message de
news:%ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cjbi3k$9iv$Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dansmon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1),
Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
Bonjour.
j'ai laissé un message hier à 14H10.
Tu peux retélécharger l'api, elle est corrigée. Le ; n'apparaît plus pour
un
seul fichier sélectionné en multi-sélection.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cjdlvl$21m$Bonjour du matin
Pas de nouvelles ? C pas possible ?
Patrice
"Raymond [mvp]" a écrit dans le message de
news:%ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du
multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cjbi3k$9iv$Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dansmon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1),
Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
Bonjour.
j'ai laissé un message hier à 14H10.
Tu peux retélécharger l'api, elle est corrigée. Le ; n'apparaît plus pour
un
seul fichier sélectionné en multi-sélection.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <XYZpatousky@tiscali.fr> a écrit dans le message de news:
cjdlvl$21m$1@news.tiscali.fr...
Bonjour du matin
Pas de nouvelles ? C pas possible ?
Patrice
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:%23RoK8IVpEHA.132@TK2MSFTNGP14.phx.gbl...
ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du
multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <XYZpatousky@tiscali.fr> a écrit dans le message de news:
cjbi3k$9iv$1@news.tiscali.fr...
Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dans
mon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1),
Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
Bonjour.
j'ai laissé un message hier à 14H10.
Tu peux retélécharger l'api, elle est corrigée. Le ; n'apparaît plus pour
un
seul fichier sélectionné en multi-sélection.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cjdlvl$21m$Bonjour du matin
Pas de nouvelles ? C pas possible ?
Patrice
"Raymond [mvp]" a écrit dans le message de
news:%ok, c'est quand tu n'as qu'un seul fichier et que tu as demandé du
multi.
je regarde ça toute de suite et je reviens ici.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:
cjbi3k$9iv$Salut du jour,
Mon blème avec les (;) est que ma 2ème procédure qui ouvre le fichier
dansmon contrôle ne peut pas fonctionner avec le (;) à la fin où alors il
faudrait truver un truc comme çà :
Réponse = OpenFileExtend([PlaceFiles]-Droite([PlaceFiles];1),
Maximized,
OpExecute)
If Not Réponse = True Then
MsgBox Réponse
Bien entendu celà ne fonctionne pas !!!!
