[VBA]Mise à jour de lien par vba problème

**srame** · 12/04/2007, 07h11

Bonjour,

J'ai des liens sur 8000 classeurs (voir peut-être même plus) que je dois modifier.
Si je modifie directement dans Excel, pas de problème mais si je le fais par VBA, il ne veut tout simplement pas le faire.

Quelqu'un à-t-il une idée ?

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
100100: 'MODIFICATIONS DU RESULTAT DES LIENS
 
    For Each Cellu In Range("b8:u8")
        Cellu.Value = _
        "=SI(B6="";"";INDEX('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B:D;EQUIV(B7;'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!D:D;);EQUIV('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B2;'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B2:D2)))"
        '
    Next Cellu

**srame** · 12/04/2007, 07h53

Voilà, j'ai des améliorations, mais ça ne marche toujours pas.

Voici la ligne vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Cellu.Value = _
            "=si(R[-2]C="""","""",INDEX('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B:D,EQUIV(R[-1]C,'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!D:D,),EQUIV('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B2,'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B2:D2)))"

en fait, lorsque je lance la macro, celle ci me rajoute quelquesAPOSTROPHE.

Voici le résultat sur excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(B6="";"";INDEX('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B:D;EQUIV(B7;'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!D:D;);EQUIV('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!'B2';'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!'B2':'D2')))

**srame** · 12/04/2007, 10h12

Ben voilà, mon problème d'apostrophe est bon, il suffit de mettre les lien en r1c1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=si(R[-2]C="""","""",INDEX('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!r1c2:r10000c4,EQUIV(R[-1]C,'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!r1c4:r10000c4,),EQUIV('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!r2c2,'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!r2c2:r2c4)))"

Mais maintenant, la case m'affiche "#nom?". le lien ne se fait pas.
Si je rentre dans la cellule, que je fais simplement ENTER, ça marche.

Comment faire cela en VBA.

Si j'enregistre une macro pour faire cela, j'ai une erreur a l'enregistrement de la macro "IMPOSSIBLE D'ENREGISTRER"

**Daranc** · 12/04/2007, 17h03

Bonjour
as tu regardé du coté de formula=
ou peut être :bbblllaaabla +chr$(13)
Daranc

**srame** · 12/04/2007, 17h23

Envoyé par Daranc

Bonjour
as tu regardé du coté de formula=
ou peut être :bbblllaaabla +chr$(13)
Daranc

Hello,

Que je mette VALUE ou FORMULA, j'ai toujours le même problèmes.
Par contre, j'ai pas essayé avec le +chr$(13)

J'ai essayé avec "Application.SendKeys "maformule" + "{enter}"

Mais là, ça marche une fois et après, ça gicle à tous les coups sur la ligne A7, je comprend pas pourquoi.

Bon, la je suis en vacance jusqu'à mardi, donc je verrai ça mardi prochain

Merci

**lvr** · 12/04/2007, 17h37

Petite question: qu'est-ce que tu appelles un "lien" ? Un lien cliquable ?
Si c'est le cas, voici comment je fais, sinon sorry pour le bourdonnement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Function Put_Link_Single(rge As Range, lien as String) As Boolean
    Dim ad As String
 
    Put_Link_Single = False
 
    ' Vérifie que le lien existe
    If (FileSystObj Is Nothing) Then Set FileSystObj = CreateObject("Scripting.FileSystemObject")
 
    On Error GoTo NoFileError
    FileSystObj.GetFile (lien)
 
    On Error GoTo PutLinkError
    ' Crée le lien
    rge.Worksheet.Hyperlinks.Add _
            Anchor:=rge, _
            Address:=lien
    Put_Link_Single = True
    Exit Function
 
PutLinkError:
    Exit Function
 
NoFileError:
        MsgBox "Lien invalide", vbExclamation, MsgTitle
End Function

**srame** · 17/04/2007, 07h17

Envoyé par lvr

Petite question: qu'est-ce que tu appelles un "lien" ? Un lien cliquable ?

Non, c'est juste un lien de mise à jour automatique.
J'ai une base de donné d'outils dans un classeur excel, et, sur 8000 autres classeurs lorsque je rentre les N°, ça me met automatiquement toute les descriptions.

**Daranc** · 17/04/2007, 08h11

Tu veux dire une liaison ?
tes 8000 classeurs sont liés à un classeur référent . Normalement la mise à jour de ces classeurs se fait lors de leur ouverture
" le classeur que vous avez ouvert comporte des liaisons avec un autre classeur
voulez vous mettre à jour ces liaisons"
quel est le probleme
Daranc

**srame** · 17/04/2007, 08h30

Oui, une liaison, et justement, le classeur ne se met pas à jour,

J'ai désespèrement le message "#nom?" qui reste dans ma cellule.

Le simple fait de faire [F2] et [enter] me valide le lien, mais je n'arrive pas à le faire par vba

**lvr** · 17/04/2007, 13h22

Tu peux décrire ce que tu fais entre le [F2] et le [enter] ?
Quelle était la formule de ta cellule avant le [F2] et quelle est-elle après le [enter] ?

**srame** · 17/04/2007, 13h59

Envoyé par lvr

Tu peux décrire ce que tu fais entre le [F2] et le [enter] ?
Quelle était la formule de ta cellule avant le [F2] et quelle est-elle après le [enter] ?

Je ne fais rien entre le [F2] et le [enter], [F2]=dblclick dans la case pour la modifier

Avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(B6="";"";INDEX('[Base outils Fred.xls]TOTAL'!$B$1:$D$10000;EQUIV(B7;'[Base outils Fred.xls]TOTAL'!$D$1:$D$10000;);EQUIV('[Base outils Fred.xls]TOTAL'!$B$2;'[Base outils Fred.xls]TOTAL'!$B$2:$D$2)))

après F2 et enter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(B6="";"";INDEX('[Base outils Fred.xls]TOTAL'!$B$1:$D$10000;EQUIV(B7;'[Base outils Fred.xls]TOTAL'!$D$1:$D$10000;);EQUIV('[Base outils Fred.xls]TOTAL'!$B$2;'[Base outils Fred.xls]TOTAL'!$B$2:$D$2)))

c'est rigoureusement identique.

**srame** · 17/04/2007, 14h02

en fait, ça marche MAIS.....seulement si il n'y a plus rien dérière la fin de ma macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
100090: 'MODIFICATIONS DES LIENS DE PAGE
 
'  =SI(OU((GAUCHE(B6;3)="OUT");(GAUCHE(B6;3)="PRO");(GAUCHE(B6;3)="MEC"));(TEXTE(B6;"0000"));("OUT"&TEXTE(B6;"0000")))
    Range("B7").Select
    For Each cell In Range("b7:u7")
        cell.Value = _
            "=IF(OR((LEFT(R[-1]C,3)=""OUT""),(LEFT(R[-1]C,3)=""PRO""),(LEFT(R[-1]C,3)=""MEC"")),(TEXT(R[-1]C,""0000"")),(""OUT""&TEXT(R[-1]C,""0000"")))"
    Next cell
 
100100: 'MODIFICATIONS DU RESULTAT DES LIENS
 
'=SI(B6="";"";INDEX('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B:D;EQUIV(B7;'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!D:D;);EQUIV('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B2;'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!B2:D2)))
    Range("c8").Activate
    For Each cellu In Range("b8:U8")
        cellu.FormulaR1C1 = _
            "=si(R[-2]C="""","""",INDEX('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!r1c2:r10000c4,EQUIV(R[-1]C,'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!r1c4:r10000c4,),EQUIV('O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!r2c2,'O:\o\pd\pre\[Base outils Fred.xls]TOTAL'!r2c2:r2c4)))"
    Next cellu
 
100110: 'VALIDATION DES LIENS
 
    Range("B8").Activate
    For Each cell In Range("B8:U8")
            Application.SendKeys ("{F2}"), False
            Application.SendKeys ("{TAB}"), False
    Next cell
 
100120:

si après la ligne 100120 je fais quoi que ce soit, ça ne marche plus

**srame** · 17/04/2007, 14h05

Il faudrait peut-être que je trouve un moyen de forcer l'execution de ma macro dans l'ordre définie. Et que, tant qu'elle n'a pas finie l'opération en cours elle ne passe pas au suivant.

**srame** · 18/04/2007, 07h41

Je peux bien faire la fin de ma macro en tout dernier, mais il me faut de toute façon verrouiller mes cellules après. Donc le problème reste de toute façon

**Daranc** · 18/04/2007, 09h53

Et si tu ajoutais en fin de macro:
Calculate
Daranc

**srame** · 18/04/2007, 10h30

Envoyé par Daranc

Et si tu ajoutais en fin de macro:
Calculate

Marche pas

Je désespère là.

**srame** · 18/04/2007, 13h13

En fait, il faudrait que je puisse stopper la macro tant que la partie ci-dessous n'est pas terminé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Range("B8").Activate
        For Each valide In Range("B8:U8")
            Application.SendKeys ("{F2}"), True
            Application.SendKeys ("{TAB}"), True
        Next valide

Et là ça serait bon, mais j'ai beau chercher sur tous l'internet, je ne trouve rien sur la question.

Parce que si je met ne serais-ce que un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("g9").select

n'importe ou après ma partie de code du ci-dessus, et bien cette partie part depuis le G9

**srame** · 18/04/2007, 14h03

C'est bon, j'ai enfin réeussi. En fait, c'est complêtement con et débille.
Excel est en français, mais vba en anglais. Si bien qu'excel met du temps à traduire et ne fais pas la mise à jour de la liaison.

Ben voilà, il m'a suffit de remplacer mes "SI" en "IF" et "EQUIV" en "MATCH"

et plus besoin du "applications.sendkeys" non plus

Merci à tous ceux qui ont perdu de temps sur mon problème.

**lvr** · 20/04/2007, 13h08

Bien joué !

Faudrait se lister tous ces problèmes de multilangues dans Excel !
Des formules écrites pour un Excel en français ne fonctionne pas toujours avec des Excel en anglais ! C'est quand même con

**Daranc** · 20/04/2007, 15h54

Ivr attention au parolement correct on ne dir plus "con" on dit:une mauvaise integration logique .. finalement t'as raison c'est con
Daranc

[VBA]Mise à jour de lien par vba problème

VBA

Discussions similaires

Partager

Partager