LoadPicture, début de l'adresse différent à négliger !
2 réponses
jeremietardy
Bonjour le forum en cette nouvelle semaine !!!!
Voilà, j'ai un fichier situé à une adresse X:\XXX\XXX\XXX.xls. Dans ce
fichier je viens faire des
Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
Image1.Picture = LoadPicture("X:\XXX\XXX\Photos\....jpg")
End If
End Sub
L'idée est que les photos se trouveront toujours dans le dossier nommé
"Photos" à la même adresse que le fichier excel.
Comment faire pour que mon dans mon LoadPicture, je ne soit pas obligé
de rentrer l'adresse complète mais que je lui dise simplement que
c'est ds le dossier photos qui se trouve à la même adresse que le
fichier ?
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
Thierry Euzenot
Tu peux faire 2 variantes : Image1.Picture = LoadPicture(ThisWorkbook.Path & "Photos....jpg")
ou Chemin = "X:XXXXXX" Image1.Picture = LoadPicture(Chemin & "Photos....jpg")
:o)
"Lapou" a écrit dans le message de news:
Bonjour le forum en cette nouvelle semaine !!!!
Voilà, j'ai un fichier situé à une adresse X:XXXXXXXXX.xls. Dans ce fichier je viens faire des
Private Sub ComboBox1_Change() If ComboBox1 = "" Then Image1.Picture = LoadPicture("X:XXXXXXPhotos....jpg") End If End Sub
L'idée est que les photos se trouveront toujours dans le dossier nommé "Photos" à la même adresse que le fichier excel. Comment faire pour que mon dans mon LoadPicture, je ne soit pas obligé de rentrer l'adresse complète mais que je lui dise simplement que c'est ds le dossier photos qui se trouve à la même adresse que le fichier ?
J'espère avoir été assez précis.
Merci pour votre précieuse aide
Tchao JT
Tu peux faire 2 variantes :
Image1.Picture = LoadPicture(ThisWorkbook.Path & "Photos....jpg")
ou
Chemin = "X:XXXXXX"
Image1.Picture = LoadPicture(Chemin & "Photos....jpg")
:o)
"Lapou" <jeremietardy@free.fr> a écrit dans le message de
news:cad454d.0411150242.ac07ec0@posting.google.com...
Bonjour le forum en cette nouvelle semaine !!!!
Voilà, j'ai un fichier situé à une adresse X:XXXXXXXXX.xls. Dans ce
fichier je viens faire des
Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
Image1.Picture = LoadPicture("X:XXXXXXPhotos....jpg")
End If
End Sub
L'idée est que les photos se trouveront toujours dans le dossier nommé
"Photos" à la même adresse que le fichier excel.
Comment faire pour que mon dans mon LoadPicture, je ne soit pas obligé
de rentrer l'adresse complète mais que je lui dise simplement que
c'est ds le dossier photos qui se trouve à la même adresse que le
fichier ?
Tu peux faire 2 variantes : Image1.Picture = LoadPicture(ThisWorkbook.Path & "Photos....jpg")
ou Chemin = "X:XXXXXX" Image1.Picture = LoadPicture(Chemin & "Photos....jpg")
:o)
"Lapou" a écrit dans le message de news:
Bonjour le forum en cette nouvelle semaine !!!!
Voilà, j'ai un fichier situé à une adresse X:XXXXXXXXX.xls. Dans ce fichier je viens faire des
Private Sub ComboBox1_Change() If ComboBox1 = "" Then Image1.Picture = LoadPicture("X:XXXXXXPhotos....jpg") End If End Sub
L'idée est que les photos se trouveront toujours dans le dossier nommé "Photos" à la même adresse que le fichier excel. Comment faire pour que mon dans mon LoadPicture, je ne soit pas obligé de rentrer l'adresse complète mais que je lui dise simplement que c'est ds le dossier photos qui se trouve à la même adresse que le fichier ?
J'espère avoir été assez précis.
Merci pour votre précieuse aide
Tchao JT
Philippe.R
Bonjour Lapou, ActiveWorkbook.Path donne le chemin (dossier/sous-dossier) du classeur actif Avec :
dim lArOuTe as string 'en début de procédure lArOuTe¬tiveWorkbook.Path & "Photos" 'permet d'utiliser une syntaxe du genre : Image1.Picture = LoadPicture(lArOuTe&"....jpg") -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Lapou" a écrit dans le message de news:
Bonjour le forum en cette nouvelle semaine !!!!
Voilà, j'ai un fichier situé à une adresse X:XXXXXXXXX.xls. Dans ce fichier je viens faire des
Private Sub ComboBox1_Change() If ComboBox1 = "" Then Image1.Picture = LoadPicture("X:XXXXXXPhotos....jpg") End If End Sub
L'idée est que les photos se trouveront toujours dans le dossier nommé "Photos" à la même adresse que le fichier excel. Comment faire pour que mon dans mon LoadPicture, je ne soit pas obligé de rentrer l'adresse complète mais que je lui dise simplement que c'est ds le dossier photos qui se trouve à la même adresse que le fichier ?
J'espère avoir été assez précis.
Merci pour votre précieuse aide
Tchao JT
Bonjour Lapou,
ActiveWorkbook.Path donne le chemin (dossier/sous-dossier) du classeur actif
Avec :
dim lArOuTe as string
'en début de procédure
lArOuTe¬tiveWorkbook.Path & "Photos"
'permet d'utiliser une syntaxe du genre :
Image1.Picture = LoadPicture(lArOuTe&"....jpg")
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Lapou" <jeremietardy@free.fr> a écrit dans le message de news:
cad454d.0411150242.ac07ec0@posting.google.com...
Bonjour le forum en cette nouvelle semaine !!!!
Voilà, j'ai un fichier situé à une adresse X:XXXXXXXXX.xls. Dans ce
fichier je viens faire des
Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
Image1.Picture = LoadPicture("X:XXXXXXPhotos....jpg")
End If
End Sub
L'idée est que les photos se trouveront toujours dans le dossier nommé
"Photos" à la même adresse que le fichier excel.
Comment faire pour que mon dans mon LoadPicture, je ne soit pas obligé
de rentrer l'adresse complète mais que je lui dise simplement que
c'est ds le dossier photos qui se trouve à la même adresse que le
fichier ?
Bonjour Lapou, ActiveWorkbook.Path donne le chemin (dossier/sous-dossier) du classeur actif Avec :
dim lArOuTe as string 'en début de procédure lArOuTe¬tiveWorkbook.Path & "Photos" 'permet d'utiliser une syntaxe du genre : Image1.Picture = LoadPicture(lArOuTe&"....jpg") -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Lapou" a écrit dans le message de news:
Bonjour le forum en cette nouvelle semaine !!!!
Voilà, j'ai un fichier situé à une adresse X:XXXXXXXXX.xls. Dans ce fichier je viens faire des
Private Sub ComboBox1_Change() If ComboBox1 = "" Then Image1.Picture = LoadPicture("X:XXXXXXPhotos....jpg") End If End Sub
L'idée est que les photos se trouveront toujours dans le dossier nommé "Photos" à la même adresse que le fichier excel. Comment faire pour que mon dans mon LoadPicture, je ne soit pas obligé de rentrer l'adresse complète mais que je lui dise simplement que c'est ds le dossier photos qui se trouve à la même adresse que le fichier ?
