Les images Tif s'affichent bien sous Access 2003/Win XP, mais seulement dans
une "Image".
C'est-à-dire pas moyen d'activer l'image via le viewer par défaut.
Pour ce faire il faut un OLE Bound Object avec le code suivant :
Private Sub Form_Current()
'Olebound7 : Création du lien
[OLEBound7].Class = "picture"
[OLEBound7].OLETypeAllowed = acOLELinked
[OLEBound7].SourceDoc = "C:\Data\L05d1.tif" ' Specify source file.
[OLEBound7].Action = acOLECreateLink ' Create linked object.
[OLEBound7].SizeMode = acOLESizeZoom ' ok full image si consultation
End Sub
En double cliquant, l'image s'ouvre. Cela marche parfaitement sous Access
2000 et 2002.
Mais 2003 donne message d'erreur :
"Erreur d'exécution 2753. un pb est survenu durant la communication entre
Access et le serveur OLE ou le contrôle activex"
Quelqu'un parmi vous aurait-il une idée ?
Ou pourrait tester (A2003) mon petit form possédant les 3 types d'affichage
des images ?
D'avance merci
"Bruno Frisque" | C'est assez incompréhensible : | Shell (ViewerPath & " C:DataI73D50.TIF") | Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF" | et le résultat est : Shell : C:Program FilesImaging | ProfessionalKodakimg.exe | Càd pas de nom de fichier, même au debug !?? | | Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;) entoure le tout par un chr(34) de chaque coté, pour voir...
"Bruno Frisque"
| C'est assez incompréhensible :
| Shell (ViewerPath & " C:DataI73D50.TIF")
| Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF"
| et le résultat est : Shell : C:Program FilesImaging
| ProfessionalKodakimg.exe
| Càd pas de nom de fichier, même au debug !??
|
| Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;)
entoure le tout par un chr(34) de chaque coté, pour voir...
"Bruno Frisque" | C'est assez incompréhensible : | Shell (ViewerPath & " C:DataI73D50.TIF") | Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF" | et le résultat est : Shell : C:Program FilesImaging | ProfessionalKodakimg.exe | Càd pas de nom de fichier, même au debug !?? | | Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;) entoure le tout par un chr(34) de chaque coté, pour voir...
Merci, Je tente demain ... encore vraiment merci ... la syntaxe de VBA hein
"3stone" wrote in message news:
Salut,
"Bruno Frisque" | C'est assez incompréhensible : | Shell (ViewerPath & " C:DataI73D50.TIF") | Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF" | et le résultat est : Shell : C:Program FilesImaging | ProfessionalKodakimg.exe | Càd pas de nom de fichier, même au debug !?? | | Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;) entoure le tout par un chr(34) de chaque coté, pour voir...
Merci,
Je tente demain ...
encore vraiment merci ... la syntaxe de VBA hein
"3stone" <3stone_@_skynet_be> wrote in message
news:OdE9hnBNGHA.3832@tk2msftngp13.phx.gbl...
Salut,
"Bruno Frisque"
| C'est assez incompréhensible :
| Shell (ViewerPath & " C:DataI73D50.TIF")
| Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF"
| et le résultat est : Shell : C:Program FilesImaging
| ProfessionalKodakimg.exe
| Càd pas de nom de fichier, même au debug !??
|
| Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;)
entoure le tout par un chr(34) de chaque coté, pour voir...
Merci, Je tente demain ... encore vraiment merci ... la syntaxe de VBA hein
"3stone" wrote in message news:
Salut,
"Bruno Frisque" | C'est assez incompréhensible : | Shell (ViewerPath & " C:DataI73D50.TIF") | Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF" | et le résultat est : Shell : C:Program FilesImaging | ProfessionalKodakimg.exe | Càd pas de nom de fichier, même au debug !?? | | Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;) entoure le tout par un chr(34) de chaque coté, pour voir...
Salut, Trouvé la raison .. mais pas la solution .... Le code de Lebans établit ceci : Const cMAX_PATH = 260 lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne 260! Comment enlever les espaces de queue ?? si on fait Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF" Cà marche très bien !! mais tous les viewers ne feront pas 50 positions pile !?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & " C:DataI73D50.TIF" le c:data... se trouve à 200 pos après le nom du viewer! Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci à +
"3stone" wrote in message news:
Salut,
"Bruno Frisque" | C'est assez incompréhensible : | Shell (ViewerPath & " C:DataI73D50.TIF") | Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF" | et le résultat est : Shell : C:Program FilesImaging | ProfessionalKodakimg.exe | Càd pas de nom de fichier, même au debug !?? | | Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;) entoure le tout par un chr(34) de chaque coté, pour voir...
Salut,
Trouvé la raison .. mais pas la solution ....
Le code de Lebans établit ceci :
Const cMAX_PATH = 260
lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut
viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne 260!
Comment enlever les espaces de queue ??
si on fait
Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF"
Cà marche très bien !! mais tous les viewers ne feront pas 50 positions pile
!?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & "
C:DataI73D50.TIF"
le c:data... se trouve à 200 pos après le nom du viewer!
Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci
à +
"3stone" <3stone_@_skynet_be> wrote in message
news:OdE9hnBNGHA.3832@tk2msftngp13.phx.gbl...
Salut,
"Bruno Frisque"
| C'est assez incompréhensible :
| Shell (ViewerPath & " C:DataI73D50.TIF")
| Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF"
| et le résultat est : Shell : C:Program FilesImaging
| ProfessionalKodakimg.exe
| Càd pas de nom de fichier, même au debug !??
|
| Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;)
entoure le tout par un chr(34) de chaque coté, pour voir...
Salut, Trouvé la raison .. mais pas la solution .... Le code de Lebans établit ceci : Const cMAX_PATH = 260 lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne 260! Comment enlever les espaces de queue ?? si on fait Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF" Cà marche très bien !! mais tous les viewers ne feront pas 50 positions pile !?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & " C:DataI73D50.TIF" le c:data... se trouve à 200 pos après le nom du viewer! Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci à +
"3stone" wrote in message news:
Salut,
"Bruno Frisque" | C'est assez incompréhensible : | Shell (ViewerPath & " C:DataI73D50.TIF") | Debug.Print "Shell : " & ViewerPath & " C:DataI73D50.TIF" | et le résultat est : Shell : C:Program FilesImaging | ProfessionalKodakimg.exe | Càd pas de nom de fichier, même au debug !?? | | Mais quelle pourrait être la raison ?
Peut-être les espaces... mais pas sûr (du tout ;) entoure le tout par un chr(34) de chaque coté, pour voir...
Utilises la fonction Trim() Tu mets Trim(Viewer.path) & " C:DataI73D50.TIF"
Salut, Trouvé la raison .. mais pas la solution .... Le code de Lebans établit ceci : Const cMAX_PATH = 260 lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne 260! Comment enlever les espaces de queue ?? si on fait Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF" Cà marche très bien !! mais tous les viewers ne feront pas 50 positions pile !?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & " C:DataI73D50.TIF" le c:data... se trouve à 200 pos après le nom du viewer! Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci à +
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Utilises la fonction Trim()
Tu mets Trim(Viewer.path) & " C:DataI73D50.TIF"
Salut,
Trouvé la raison .. mais pas la solution ....
Le code de Lebans établit ceci :
Const cMAX_PATH = 260
lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut
viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne 260!
Comment enlever les espaces de queue ??
si on fait
Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF"
Cà marche très bien !! mais tous les viewers ne feront pas 50 positions pile
!?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & "
C:DataI73D50.TIF"
le c:data... se trouve à 200 pos après le nom du viewer!
Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci
à +
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Utilises la fonction Trim() Tu mets Trim(Viewer.path) & " C:DataI73D50.TIF"
Salut, Trouvé la raison .. mais pas la solution .... Le code de Lebans établit ceci : Const cMAX_PATH = 260 lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne 260! Comment enlever les espaces de queue ?? si on fait Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF" Cà marche très bien !! mais tous les viewers ne feront pas 50 positions pile !?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & " C:DataI73D50.TIF" le c:data... se trouve à 200 pos après le nom du viewer! Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci à +
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ? Debug.Print ViewerPath & MyImage qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe C:DataI73D50.TIF Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
"Eric" wrote in message news:
Bonjour,
Utilises la fonction Trim() Tu mets Trim(Viewer.path) & " C:DataI73D50.TIF"
Salut, Trouvé la raison .. mais pas la solution .... Le code de Lebans établit ceci : Const cMAX_PATH = 260 lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne 260!
Comment enlever les espaces de queue ?? si on fait Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF" Cà marche très bien !! mais tous les viewers ne feront pas 50 positions pile
!?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & " C:DataI73D50.TIF" le c:data... se trouve à 200 pos après le nom du viewer! Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci à +
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ?
Debug.Print ViewerPath & MyImage
qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe
C:DataI73D50.TIF
Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
"Eric" <f_framZZ@hotmail.com> wrote in message
news:ehIjX2JNGHA.2624@TK2MSFTNGP12.phx.gbl...
Bonjour,
Utilises la fonction Trim()
Tu mets Trim(Viewer.path) & " C:DataI73D50.TIF"
Salut,
Trouvé la raison .. mais pas la solution ....
Le code de Lebans établit ceci :
Const cMAX_PATH = 260
lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut
viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne
260!
Comment enlever les espaces de queue ??
si on fait
Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF"
Cà marche très bien !! mais tous les viewers ne feront pas 50 positions
pile
!?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & "
C:DataI73D50.TIF"
le c:data... se trouve à 200 pos après le nom du viewer!
Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci
à +
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ? Debug.Print ViewerPath & MyImage qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe C:DataI73D50.TIF Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
"Eric" wrote in message news:
Bonjour,
Utilises la fonction Trim() Tu mets Trim(Viewer.path) & " C:DataI73D50.TIF"
Salut, Trouvé la raison .. mais pas la solution .... Le code de Lebans établit ceci : Const cMAX_PATH = 260 lpResult = Space(cMAX_PATH) '>ce qui donne 260 positions pour le defaut viewer !
Dans mon form : Debug.Print "len ViewerPath :" & Len(ViewerPath) donne 260!
Comment enlever les espaces de queue ?? si on fait Debug.Print "Shell " & Mid(ViewerPath, 1, 50) & " C:DataI73D50.TIF" Cà marche très bien !! mais tous les viewers ne feront pas 50 positions pile
!?
Si on fait : Debug.Print "Shell " & Mid(ViewerPath, 1) & " C:DataI73D50.TIF" le c:data... se trouve à 200 pos après le nom du viewer! Comment enlever les espaces inutiles après le NomProgr.exe ??
(chr(34) ne change rien apparamment)
Encore grand merci à +
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
re,
Non ce n'est pas bien formaté car tu as viré l'espace entre le viewerpath et le chemin du fichier MyImage = "C:DataI73D50.TIF" pas d'espace au début ViewerPath = Trim(ViewerPath) donc plus d'espace à la fin (ni au début) donc : Shell ViewerPath & Chr(32) & MyImage où CHR(32) représente un espace
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ? Debug.Print ViewerPath & MyImage qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe C:DataI73D50.TIF Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Non ce n'est pas bien formaté car tu as viré l'espace entre le
viewerpath et le chemin du fichier
MyImage = "C:DataI73D50.TIF" pas d'espace au début
ViewerPath = Trim(ViewerPath) donc plus d'espace à la fin (ni au début)
donc :
Shell ViewerPath & Chr(32) & MyImage
où CHR(32) représente un espace
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ?
Debug.Print ViewerPath & MyImage
qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe
C:DataI73D50.TIF
Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Non ce n'est pas bien formaté car tu as viré l'espace entre le viewerpath et le chemin du fichier MyImage = "C:DataI73D50.TIF" pas d'espace au début ViewerPath = Trim(ViewerPath) donc plus d'espace à la fin (ni au début) donc : Shell ViewerPath & Chr(32) & MyImage où CHR(32) représente un espace
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ? Debug.Print ViewerPath & MyImage qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe C:DataI73D50.TIF Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
.../... Shell(ViewerPath & Chr(32) & MyImage,1)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
.../...
Shell(ViewerPath & Chr(32) & MyImage,1)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bruno Frisque
Merci.
Marche toujours pas, le pb est dans ViewerPath ... ViewerPath = Trim(ViewerPath) Debug.Print ViewerPath & "." '>> donne 1 space de trop 'C:Program FilesImaging ProfessionalKodakimg.exe .
Il y a un espace de trop derrière. C'est mal trimé ????? Ou pas "trimable" ??? encore merci
"Eric" wrote in message news:
re,
Non ce n'est pas bien formaté car tu as viré l'espace entre le viewerpath et le chemin du fichier MyImage = "C:DataI73D50.TIF" pas d'espace au début ViewerPath = Trim(ViewerPath) donc plus d'espace à la fin (ni au début) donc : Shell ViewerPath & Chr(32) & MyImage où CHR(32) représente un espace
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ? Debug.Print ViewerPath & MyImage qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe C:DataI73D50.TIF Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci.
Marche toujours pas, le pb est dans ViewerPath ...
ViewerPath = Trim(ViewerPath)
Debug.Print ViewerPath & "." '>> donne 1 space de trop
'C:Program FilesImaging ProfessionalKodakimg.exe .
Il y a un espace de trop derrière. C'est mal trimé ?????
Ou pas "trimable" ???
encore merci
"Eric" <f_framZZ@hotmail.com> wrote in message
news:ed2swuKNGHA.3432@tk2msftngp13.phx.gbl...
re,
Non ce n'est pas bien formaté car tu as viré l'espace entre le
viewerpath et le chemin du fichier
MyImage = "C:DataI73D50.TIF" pas d'espace au début
ViewerPath = Trim(ViewerPath) donc plus d'espace à la fin (ni au début)
donc :
Shell ViewerPath & Chr(32) & MyImage
où CHR(32) représente un espace
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ?
Debug.Print ViewerPath & MyImage
qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe
C:DataI73D50.TIF
Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Marche toujours pas, le pb est dans ViewerPath ... ViewerPath = Trim(ViewerPath) Debug.Print ViewerPath & "." '>> donne 1 space de trop 'C:Program FilesImaging ProfessionalKodakimg.exe .
Il y a un espace de trop derrière. C'est mal trimé ????? Ou pas "trimable" ??? encore merci
"Eric" wrote in message news:
re,
Non ce n'est pas bien formaté car tu as viré l'espace entre le viewerpath et le chemin du fichier MyImage = "C:DataI73D50.TIF" pas d'espace au début ViewerPath = Trim(ViewerPath) donc plus d'espace à la fin (ni au début) donc : Shell ViewerPath & Chr(32) & MyImage où CHR(32) représente un espace
Shell (ViewerPath & MyImage) '< ouvre mais pas le fichier ? Debug.Print ViewerPath & MyImage qui donne bien :C:Program FilesImaging ProfessionalKodakimg.exe C:DataI73D50.TIF Le Shell est donc bien formaté avec space entre les 2 ?
Où est l'erreur dans ce maudit Shell ??????
encore merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
3stone
Salut,
"Bruno Frisque" | Marche toujours pas, le pb est dans ViewerPath ... | ViewerPath = Trim(ViewerPath) | Debug.Print ViewerPath & "." '>> donne 1 space de trop | 'C:Program FilesImaging ProfessionalKodakimg.exe .
je relis tes derniers post... et tu as commencé à parler de ViewerPath...
"Bruno Frisque"
| Marche toujours pas, le pb est dans ViewerPath ...
| ViewerPath = Trim(ViewerPath)
| Debug.Print ViewerPath & "." '>> donne 1 space de trop
| 'C:Program FilesImaging ProfessionalKodakimg.exe .
je relis tes derniers post... et tu as commencé à parler de ViewerPath...
"Bruno Frisque" | Marche toujours pas, le pb est dans ViewerPath ... | ViewerPath = Trim(ViewerPath) | Debug.Print ViewerPath & "." '>> donne 1 space de trop | 'C:Program FilesImaging ProfessionalKodakimg.exe .
je relis tes derniers post... et tu as commencé à parler de ViewerPath...
Merci réponse, Le ViewerPath est construit par l'API de Lebans. Il est de 260 positions, c'est çà le problème. Même avec Trim il donne 1 espace de trop. La preuve ? ViewerPath = Trim(ViewerPath) Debug.Print ViewerPath & "." '>> donne 1 space de trop 'C:Program FilesImaging ProfessionalKodakimg.exe . < 1 espace avant le point ....
Les 2 codes suivants Shell (ViewerPath & Chr(32) & MyImage) Shell (ViewerPath & Chr(34) & MyImage & Chr(34)) ne changent rien, il y a toujours ce parasite après ViewerPath..... ce qui empêche Shell d'ouvrir son fichier.
Code de Lebans (sFindEXE): Const cMAX_PATH = 260 lpResult = Space(cMAX_PATH) If lngRet > 32 Then fFindEXE = lpResult ViewerPath = lpResult '< ViewerPath renvoyé au Form = 260 pos
Encore merci pour les réponses à +
"3stone" wrote in message news:
Salut,
"Bruno Frisque" | Marche toujours pas, le pb est dans ViewerPath ... | ViewerPath = Trim(ViewerPath) | Debug.Print ViewerPath & "." '>> donne 1 space de trop | 'C:Program FilesImaging ProfessionalKodakimg.exe .
je relis tes derniers post... et tu as commencé à parler de ViewerPath...
Merci réponse,
Le ViewerPath est construit par l'API de Lebans.
Il est de 260 positions, c'est çà le problème.
Même avec Trim il donne 1 espace de trop. La preuve ?
ViewerPath = Trim(ViewerPath)
Debug.Print ViewerPath & "." '>> donne 1 space de trop
'C:Program FilesImaging ProfessionalKodakimg.exe . < 1 espace avant le
point ....
Les 2 codes suivants
Shell (ViewerPath & Chr(32) & MyImage)
Shell (ViewerPath & Chr(34) & MyImage & Chr(34))
ne changent rien, il y a toujours ce parasite après ViewerPath..... ce qui
empêche Shell d'ouvrir son fichier.
Code de Lebans (sFindEXE):
Const cMAX_PATH = 260
lpResult = Space(cMAX_PATH)
If lngRet > 32 Then
fFindEXE = lpResult
ViewerPath = lpResult '< ViewerPath renvoyé au Form = 260 pos
Encore merci pour les réponses
à +
"3stone" <3stone_@_skynet_be> wrote in message
news:udCj8xNNGHA.2012@TK2MSFTNGP14.phx.gbl...
Salut,
"Bruno Frisque"
| Marche toujours pas, le pb est dans ViewerPath ...
| ViewerPath = Trim(ViewerPath)
| Debug.Print ViewerPath & "." '>> donne 1 space de trop
| 'C:Program FilesImaging ProfessionalKodakimg.exe .
je relis tes derniers post... et tu as commencé à parler de ViewerPath...
Merci réponse, Le ViewerPath est construit par l'API de Lebans. Il est de 260 positions, c'est çà le problème. Même avec Trim il donne 1 espace de trop. La preuve ? ViewerPath = Trim(ViewerPath) Debug.Print ViewerPath & "." '>> donne 1 space de trop 'C:Program FilesImaging ProfessionalKodakimg.exe . < 1 espace avant le point ....
Les 2 codes suivants Shell (ViewerPath & Chr(32) & MyImage) Shell (ViewerPath & Chr(34) & MyImage & Chr(34)) ne changent rien, il y a toujours ce parasite après ViewerPath..... ce qui empêche Shell d'ouvrir son fichier.
Code de Lebans (sFindEXE): Const cMAX_PATH = 260 lpResult = Space(cMAX_PATH) If lngRet > 32 Then fFindEXE = lpResult ViewerPath = lpResult '< ViewerPath renvoyé au Form = 260 pos
Encore merci pour les réponses à +
"3stone" wrote in message news:
Salut,
"Bruno Frisque" | Marche toujours pas, le pb est dans ViewerPath ... | ViewerPath = Trim(ViewerPath) | Debug.Print ViewerPath & "." '>> donne 1 space de trop | 'C:Program FilesImaging ProfessionalKodakimg.exe .
je relis tes derniers post... et tu as commencé à parler de ViewerPath...
