[XL-2003] Verification vba de Linksource

[djoumusic]

Bonjour,
voici mon code pour pouvoir, par macro, affecter un fichier different pour mettre a jour mon fichier actuel !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub DETAILCHEMIN()
 
Dim ancienlien As String
Dim newlien As String
Dim fichier As FileDialog
 
 Set fichier = Application.FileDialog(msoFileDialogFilePicker)
fichier.Show
 MsgBox fichier.SelectedItems(1)
Range("a22").Select
    ActiveCell.FormulaR1C1 = fichier.SelectedItems(1)
 
    ancienlien = "" & Range("a23").Value & ""
    newlien = "" & Range("a22").Value & ""
   If Range("a23") = "" Then
      Range("a22").Copy Range("a23")
 
ElseIf ancienlien <> newlien Then
     ActiveWorkbook.ChangeLink ancienlien, newlien, Type:=xlExcelLinks
    Else
    Exit Sub
End If
    Range("a22").Copy Range("a23")
    End Sub

actuellement, je renseigne le chemin a utiliser en cell A22,
j'en fait une copie sur A23
et lorsque A22 est different de A23 alors le procesus de mise ajour ce fait..

ceci fonctionne tres bien...
sauf que lorsque je deplace le dossier dans lequel se trouve mon fichier,
si mon fichier etait dans "mes documents" et que je le deplace sur le bureau
par exemple,
comme le code du changement de liaison on utilise la fonction qui dit
de remplacer l'ancien lien par le nouveau, seulement,
l'ancien lien n'est plus valide, puisque mon dossier est sur le bureau alors qu'il etait dans "mes document" du coup, la procedure ne va pas au bout...
il faaudrait je pense un code qui fasse un "update" des lien sans prendre en compte l'ancien lien..
je ne sais pas comment faire...
de plus je n'aurais donc plus a comparer si les liens sont differents ou pas,
j'aurais juste a dire de faire une mise a jour des liens sur un nouveau chemin..
avez vous une idée de la structure a utiliser...??

Mille Merci !

[Qwazerty]

Salut
Je n'ai pas tout compris a ton explication de lien, mais dans ton code 2/3 truc m'interpelle
Tu ne test pas le retour fait par FileDialog

Code :

1
2
Range("a22").Select
    ActiveCell.FormulaR1C1 = fichier.SelectedItems(1)

mieux vaut faire

Code :

Range("a22").FormulaR1C1 = fichier.SelectedItems(1)

Code :

ancienlien = "" & Range("a23").Value & ""

les guillemet au début et a la fin ne rajouter rien au début et a la fin, si tu veut rajouter des " autour de ton text il faut faire ainsi

Code :

ancienlien = """" & Range("a23").Value & """"

a++
Qwaz