Modification lien OLE Object

Question

Salut!
Je voudrais par l'intermédiaire de mon appli modifier un lien objet d'une feuille Excel mais impossible d'y parvenir.
Voici le code:
Set xlBook = xlApp.Workbooks.Open(xlFileName, False, False, , "")
    
    Alllinks = xlBook.LinkSources(xlOLELinks)
    borne = UBound(Alllinks)
  
    For i = 1 To borne
 
     pos1 = InStr(Alllinks(i), "|")
     pos2 = InStr(Alllinks(i), "!")

     xlBook.LinkSources(xlOLELinks)(i)   = "C:\WINDOWS\SYSTEM\OOBE\IMAGES\BGAMEX.JPG"

     Next

   xlBook.Close savechanges:=True
   Set xlBook = Nothing

Le pb c que le lien ne change pas et je voudrais savoir comment faire(il existe ChangeLink mais ça marche pas non plus)
Répondez moi vite

Badclown · Answer

Tu a essayer de faire une macro  directement dans excel de ce que tu veux faire et regarder le code vb après?

yoarf · Answer

Je ne dois pas modifier le fichier excel, je dois tous faire par l'intermédiaire de l'appli vb !!!

Y.C

Badclown · Answer

Non tu na pas bien compris: Tu enregistre une macro de ton action et tu fait un copier coller sous vb et tu rajoute ton objet excel:
xlapp.test1
xlapp.test2
...

yoarf · Answer

Désolé mais tu pourrais pas m'expliquer qu'est ce qui cloche dans mon code:
Qd je fais xlBook.LinkSources(xlOLELinks)(i) = (Left(xlBook.LinkSources(xlOLELinks)(i), pos1)) & (resultxls.Fields(0).Value) & (Right(xlBook.LinkSources(xlOLELinks)(i), 2))

il en veut pas , pourquoi ?
Pourtant je fais une Msg box de xlBook.LinkSources et de (Left(xlBook.LinkSources(xlOLELinks)(i), pos1)) & (resultxls.Fields(0).Value) & (Right(xlBook.LinkSources(xlOLELinks)(i), 2))(xlOLELinks)(i) et il me retourne une valeur.
Mais il ne veut pas modifier la valeur par l'autre!!!!
Pourquoi???
Y.C

Badclown · Answer

D'après ce que j'ai compris en lisant l'aide il faudrait faire comme ca :


objLink = xlBook.LinkSources(xlOLELinks)
objLink(i) = (Left(objLink(i), pos1)) & (resultxls.Fields(0).Value) & (Right(objLink(i), 2))


Ca devrait t'aider surment !

yoarf · Answer

Et objLink je le déclare en String ???
Y.C

yoarf · Answer

Il me dis qu'un tableau est attendu, dois je le déclaré en tableau ?
Y.C

Badclown · Answer

Absolument aucune idee, mais il bloque sur quel ligne?

Badclown · Answer

Enleve la premiere et la dernier parentense deja

yoarf · Answer

Y.C

yoarf · Answer

Le pb c'est qu'il ne bloque nul part. Lorque je fais du pas à pas sur la ligne en question il ne reste même pas une seconde sur cette ligne. En effet si il faisait le changement il y aurais quelques secondes d'execution.
Je déclare objLink de cette façon:
Dim objLink As Object
Puis après la ligne de code je met:MsgBox Err.Description pour voir si il y a d erreurs et il affiche:
Variable Objet ou variable bloc with non definie

??????

Y.C

yoarf · Answer

Maintenant je met: Dim objLink As Variant
 objLink = xlBook.LinkSources(xlOLELinks)
 objLink(i) = Left(objLink(i), pos1) & resultxls.Fields(0).Value & Right(objLink(i), 2)
 MsgBox Err.Description

Ds le message d'erreur il ne met plus rien, mais toujours aucun changement au niveau du lien.
Réponds vite si tu sais qqch

Y.C

Badclown · Answer

Essaye ca:


Dim objLink As Object
set objLink = xlBook.LinkSources(xlOLELinks)

 ou peut être

Dim objLink As Linkformat


Sinons je voi vraiment pas

Badclown · Answer

Et ca:
Left(objLink(i), pos1) & resultxls.Fields(0).Value & Right(objLink(i), 2)
 t'es sur que c'est absolument juste? ca pourrais peut être venir de ca.

Modification lien OLE Object

14 réponses

Discussions similaires