Probleme Macro

[crazynawak]

Bonjour, voici mon petit probleme:
J'utilise dans un classeur excel une petite macro de remplissage automatique d'une feuille avec entre autre l'integration conditionnée d'une image relative a une valeur de cellule (avec la commande 'ActiveSheet.Pictures.Insert(Picture).Select'). Le nombre d'images insérables augmente quotidiennement et depuis quelques jours la commande 'ActiveSheet.Pictures.Insert(Picture).Select' génére une erreur dans ma macro (erreur d'execution '1004' impossible de lire la propriete insert de la classe pictures). Je me suis aperçu (je ne sais plus comment) que apparement excel incremente quelquechose a chaque insertion (du genre c'est la 123 ème insertion faite depuis la creation du fichier), est-ce ceci qui bloque ma macro et y a t'il le moyen de remettre ce compteur a zero ?.
Par avance merci.

 

[Pierrot93]

Re : Probleme Macro

Bonjour crazynawak ,

le numéro dont tu parles doit être le numéro de l'index de l'objet "Picture" dans ta feuille Excel.

Par contre je ne comprends pas bien ton code :

'ActiveSheet.Pictures.Insert(Picture).Select'

Tu inséres en sélectionnant !!! Cela me semble incohérent.

Ce même code marchait précédemment ??

Sont présentes tes 123 images sur ta feuilles ?

Plus de questions que de réponses, mais sans voir le fichier, pas facile.

Bonne journée
@+

 

[kromitou]

Re : Probleme Macro

Saluttttt......

Yopppppp heu... tu peux pas joindre ton fichier par hasard??
Car ce genre de fichier m'intéresse ..hihihi

S.T.P

 

[crazynawak]

Re : Probleme Macro

En fait je m'explique, j'ai une feuille excel de recherche de fiche (avec ecritures et 1 photo), je met mon numero de fiche dans une case et lance ma macro avec un bouton qui me rempli les cases voulues et insert la photo correspondante a mon numero de fiche (photos stockées dans le dossier de mon fichier). Mon niveau en vb n'est pas tres elevé donc pour mon programme je fais des macros par enregistrement et ensuite j'interprete et modifie le code generé par excel. pour cette application mon programme est de ce genre:
Sub RECHERCHE()

Range("A13:Z13").Select
Selection.ClearContents

image = Range("W9").Value
ext = Range("AE1").Value
Range("AA11").Value = image
Range("AA12").Value = ext
Range("AA13").Value = "=CONCATENATE(R[-4]C,R[-2]C,R[-1]C)"
Picture = Range("AA13").Value

ActiveSheet.Pictures.Delete

ligne = Range("W9").Value
ligne = ligne + 1
col = Sheets("BASE DE DONNEES").Cells(ligne, 6).Value

Range("D11").Value = Sheets("BASE DE DONNEES").Cells(ligne, 2).Value
Range("Q11").Value = Sheets("BASE DE DONNEES").Cells(ligne, 3).Value
Cells(13, col).Value = Sheets("BASE DE DONNEES").Cells(ligne, 5).Value

Range("X51").Value = Sheets("BASE DE DONNEES").Cells(ligne, 5).Value
Range("X52").Value = Sheets("BASE DE DONNEES").Cells(ligne, 5).Value

Range("B15").Value = Sheets("BASE DE DONNEES").Cells(ligne, 7).Value
Range("H15").Value = Sheets("BASE DE DONNEES").Cells(ligne, 8).Value
Range("B16").Value = Sheets("BASE DE DONNEES").Cells(ligne, 9).Value

Range("N30").Select

ActiveSheet.Pictures.Insert(Picture).Select

Range("W9").Select

End Sub

 

[crazynawak]

Re : Probleme Macro

Ne cherchez plus, j'ai trouvé, je me suis fait avoir comme un bleu, ce fichier me sert dans un cadre professionnel et il y a une semaine les serveurs ont étés remaniés et on changé de lettre u: vers p: ... et ma macro appelait un fichier sur u: 🙂 merci quand meme ...