Bonjour à tous !
Dans ma macro EXCEL, j'ai un nom dans une variable "Référence".
Je souhaite aller chercher dans un dossier précis une image ayant le même
nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille
active. Par contre, si Excel ne trouve pas cette image dans le dossier, que
la macro se continue.
merci de votre aide !
Arnaud
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
Jean Philippe U
Bonjour à tous ! Dans ma macro EXCEL, j'ai un nom dans une variable "Référence". Je souhaite aller chercher dans un dossier précis une image ayant le m ême nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille active. Par contre, si Excel ne trouve pas cette image dans le dossier, que la macro se continue. merci de votre aide ! Arnaud
On Error Resume Next ActiveSheet.Pictures.Insert("R:GESTIONDessins articles" & NomImage).Select If Err <> 0 Then ActiveSheet.Pictures.Insert("R:GESTIONDessins articlesmanq.tif").Select On Error GoTo 0 En esperant t'aider A+
Bonjour à tous !
Dans ma macro EXCEL, j'ai un nom dans une variable "Référence".
Je souhaite aller chercher dans un dossier précis une image ayant le m ême
nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille
active. Par contre, si Excel ne trouve pas cette image dans le dossier, que
la macro se continue.
merci de votre aide !
Arnaud
On Error Resume Next
ActiveSheet.Pictures.Insert("R:GESTIONDessins articles" &
NomImage).Select
If Err <> 0 Then ActiveSheet.Pictures.Insert("R:GESTIONDessins
articlesmanq.tif").Select
On Error GoTo 0
En esperant t'aider
A+
Bonjour à tous ! Dans ma macro EXCEL, j'ai un nom dans une variable "Référence". Je souhaite aller chercher dans un dossier précis une image ayant le m ême nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille active. Par contre, si Excel ne trouve pas cette image dans le dossier, que la macro se continue. merci de votre aide ! Arnaud
On Error Resume Next ActiveSheet.Pictures.Insert("R:GESTIONDessins articles" & NomImage).Select If Err <> 0 Then ActiveSheet.Pictures.Insert("R:GESTIONDessins articlesmanq.tif").Select On Error GoTo 0 En esperant t'aider A+
Daniel
Bonjour. Sub test() Dim Référence As String Référence = "image.jpeg" On Error Resume Next ActiveSheet.Pictures.Insert "C:temp" & Référence On Error GoTo 0 Cordialement. Daniel "arnaud" a écrit dans le message de news:
Bonjour à tous ! Dans ma macro EXCEL, j'ai un nom dans une variable "Référence". Je souhaite aller chercher dans un dossier précis une image ayant le même nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille active. Par contre, si Excel ne trouve pas cette image dans le dossier, que la macro se continue. merci de votre aide ! Arnaud
Bonjour.
Sub test()
Dim Référence As String
Référence = "image.jpeg"
On Error Resume Next
ActiveSheet.Pictures.Insert "C:temp" & Référence
On Error GoTo 0
Cordialement.
Daniel
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
O8xg7dj4GHA.1244@TK2MSFTNGP03.phx.gbl...
Bonjour à tous !
Dans ma macro EXCEL, j'ai un nom dans une variable "Référence".
Je souhaite aller chercher dans un dossier précis une image ayant le même
nom que référence avec .jpeg comme extension, puis l'inserer dans ma
feuille
active. Par contre, si Excel ne trouve pas cette image dans le dossier,
que
la macro se continue.
merci de votre aide !
Arnaud
Bonjour. Sub test() Dim Référence As String Référence = "image.jpeg" On Error Resume Next ActiveSheet.Pictures.Insert "C:temp" & Référence On Error GoTo 0 Cordialement. Daniel "arnaud" a écrit dans le message de news:
Bonjour à tous ! Dans ma macro EXCEL, j'ai un nom dans une variable "Référence". Je souhaite aller chercher dans un dossier précis une image ayant le même nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille active. Par contre, si Excel ne trouve pas cette image dans le dossier, que la macro se continue. merci de votre aide ! Arnaud
michdenis
Tu fais un test sur la présence du fichier désiré avant de l'insérer
Référence = Nom de ton fichier image If Dir("c:MonDossier" & Référence) <> "" Then ' Ligne de commande insérant ton image dans ton classeur ' sinon rien ne se produit End If
"arnaud" a écrit dans le message de news:
Bonjour à tous ! Dans ma macro EXCEL, j'ai un nom dans une variable "Référence". Je souhaite aller chercher dans un dossier précis une image ayant le même nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille active. Par contre, si Excel ne trouve pas cette image dans le dossier, que la macro se continue. merci de votre aide ! Arnaud
Tu fais un test sur la présence du fichier désiré avant de l'insérer
Référence = Nom de ton fichier image
If Dir("c:MonDossier" & Référence) <> "" Then
' Ligne de commande insérant ton image dans ton classeur
' sinon rien ne se produit
End If
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
O8xg7dj4GHA.1244@TK2MSFTNGP03.phx.gbl...
Bonjour à tous !
Dans ma macro EXCEL, j'ai un nom dans une variable "Référence".
Je souhaite aller chercher dans un dossier précis une image ayant le même
nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille
active. Par contre, si Excel ne trouve pas cette image dans le dossier, que
la macro se continue.
merci de votre aide !
Arnaud
Tu fais un test sur la présence du fichier désiré avant de l'insérer
Référence = Nom de ton fichier image If Dir("c:MonDossier" & Référence) <> "" Then ' Ligne de commande insérant ton image dans ton classeur ' sinon rien ne se produit End If
"arnaud" a écrit dans le message de news:
Bonjour à tous ! Dans ma macro EXCEL, j'ai un nom dans une variable "Référence". Je souhaite aller chercher dans un dossier précis une image ayant le même nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille active. Par contre, si Excel ne trouve pas cette image dans le dossier, que la macro se continue. merci de votre aide ! Arnaud
arnaud
Merci à tous ! ça marche super !! Arnaud
"Daniel" a écrit dans le message de news: #
Bonjour. Sub test() Dim Référence As String Référence = "image.jpeg" On Error Resume Next ActiveSheet.Pictures.Insert "C:temp" & Référence On Error GoTo 0 Cordialement. Daniel "arnaud" a écrit dans le message de news:
Bonjour à tous ! Dans ma macro EXCEL, j'ai un nom dans une variable "Référence". Je souhaite aller chercher dans un dossier précis une image ayant le même
nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille active. Par contre, si Excel ne trouve pas cette image dans le dossier, que la macro se continue. merci de votre aide ! Arnaud
Merci à tous !
ça marche super !!
Arnaud
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
#nH6qJk4GHA.1848@TK2MSFTNGP06.phx.gbl...
Bonjour.
Sub test()
Dim Référence As String
Référence = "image.jpeg"
On Error Resume Next
ActiveSheet.Pictures.Insert "C:temp" & Référence
On Error GoTo 0
Cordialement.
Daniel
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
O8xg7dj4GHA.1244@TK2MSFTNGP03.phx.gbl...
Bonjour à tous !
Dans ma macro EXCEL, j'ai un nom dans une variable "Référence".
Je souhaite aller chercher dans un dossier précis une image ayant le
même
nom que référence avec .jpeg comme extension, puis l'inserer dans ma
feuille
active. Par contre, si Excel ne trouve pas cette image dans le dossier,
que
la macro se continue.
merci de votre aide !
Arnaud
Bonjour. Sub test() Dim Référence As String Référence = "image.jpeg" On Error Resume Next ActiveSheet.Pictures.Insert "C:temp" & Référence On Error GoTo 0 Cordialement. Daniel "arnaud" a écrit dans le message de news:
Bonjour à tous ! Dans ma macro EXCEL, j'ai un nom dans une variable "Référence". Je souhaite aller chercher dans un dossier précis une image ayant le même
nom que référence avec .jpeg comme extension, puis l'inserer dans ma feuille active. Par contre, si Excel ne trouve pas cette image dans le dossier, que la macro se continue. merci de votre aide ! Arnaud
