Je recherche depuis pas mal de temps une solution a mon probleme suit
a un changement de version d´Excel 97 vers Excel 2002.
J´utilise 5 fichiers ayant de nombreux liens entre eux. Les fichier
réactualisés régulièrement , je les transmets a d´autres personne
externes a mon réseau en les zippant tous ensemble.
Auparavant, mes interlocuteurs recevaient mon Zip, faisaient un
extraction vers un de leur dossier des 5 fichiers et a l´ouverture d
ceux ci la reactualisation des liens se passait sans probleme.
Aujourd´hui, en employant la meme méthode, la reactualisation ne peu
pas se faire car le chemin dans les liens correspond toujours au chemi
défini dans mon systeme.
Je ne sais pas comment procéder pour que le nom de chemin comple
(défini chez moi) n´apparaisse plus dans les fichiers que j´envoye pou
que mes interlocuteurs puissent réactualiser les données de leur cot
sans avoir a modifier les sources pour chacun des tableaux Excel recu
(ce sont pas des betes donc pas doués pour faire la manip...)
Merci pour vos idées et solutions
A bientot
Fred en Allemagn
--
Fredenallemagn
-----------------------------------------------------------------------
Fredenallemagne's Profile: http://www.msusenet.com/member.php?userid=66
View this thread: http://www.msusenet.com/t-186958035
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
MichDenis
Bonjour Fredenallemagne,
Essaie ceci.
Tu dois copier ces procédures dans chacun de tes classeurs.
Pour que cela fonctionne, les 5 classeurs doivent être mis dans le même répertoire chez ton destinataire.
Évidemment, ceci n'est pas testé !!!
'Copie ces 2 procédures dans le ThisWorkbook de ton classeur '--------------------------------------- Private Sub Workbook_Open()
Dim LesLiens, Lien As Variant Dim Nouveau As String
On Error Resume Next With ThisWorkbook LesLiens = .LinkSources(xlExcelLinks) For Each Lien In LesLiens Nouveau = .Path & "" & ExtractFile(Lien) .ChangeLink Lien, Nouveau, xlExcelLinks .UpdateLink Nouveau Next End With
End Sub
'--------------------------------------- Function ExtractFile(File As Variant) Dim Nb As Integer, C As Integer Nb = Len(File) For C = Nb To 1 Step -1 If Mid(File, C, 1) <> "" Then ExtractFile = Mid(File, C, 1) & ExtractFile Else Exit Function End If Next End Function '---------------------------------------
Salutations!
"Fredenallemagne" a écrit dans le message de news:
Bonjour a tous,
Je recherche depuis pas mal de temps une solution a mon probleme suite a un changement de version d´Excel 97 vers Excel 2002.
J´utilise 5 fichiers ayant de nombreux liens entre eux. Les fichiers réactualisés régulièrement , je les transmets a d´autres personnes externes a mon réseau en les zippant tous ensemble.
Auparavant, mes interlocuteurs recevaient mon Zip, faisaient une extraction vers un de leur dossier des 5 fichiers et a l´ouverture de ceux ci la reactualisation des liens se passait sans probleme.
Aujourd´hui, en employant la meme méthode, la reactualisation ne peut pas se faire car le chemin dans les liens correspond toujours au chemin défini dans mon systeme.
Je ne sais pas comment procéder pour que le nom de chemin complet (défini chez moi) n´apparaisse plus dans les fichiers que j´envoye pour que mes interlocuteurs puissent réactualiser les données de leur coté sans avoir a modifier les sources pour chacun des tableaux Excel recus (ce sont pas des betes donc pas doués pour faire la manip...)
Merci pour vos idées et solutions
A bientot
Fred en Allemagne
-- Fredenallemagne ------------------------------------------------------------------------ Fredenallemagne's Profile: http://www.msusenet.com/member.php?useridf4 View this thread: http://www.msusenet.com/t-1869580354
Bonjour Fredenallemagne,
Essaie ceci.
Tu dois copier ces procédures dans chacun de tes classeurs.
Pour que cela fonctionne, les 5 classeurs doivent être mis dans le même répertoire chez ton destinataire.
Évidemment, ceci n'est pas testé !!!
'Copie ces 2 procédures dans le ThisWorkbook de ton classeur
'---------------------------------------
Private Sub Workbook_Open()
Dim LesLiens, Lien As Variant
Dim Nouveau As String
On Error Resume Next
With ThisWorkbook
LesLiens = .LinkSources(xlExcelLinks)
For Each Lien In LesLiens
Nouveau = .Path & "" & ExtractFile(Lien)
.ChangeLink Lien, Nouveau, xlExcelLinks
.UpdateLink Nouveau
Next
End With
End Sub
'---------------------------------------
Function ExtractFile(File As Variant)
Dim Nb As Integer, C As Integer
Nb = Len(File)
For C = Nb To 1 Step -1
If Mid(File, C, 1) <> "" Then
ExtractFile = Mid(File, C, 1) & ExtractFile
Else
Exit Function
End If
Next
End Function
'---------------------------------------
Salutations!
"Fredenallemagne" <Fredenallemagne.1nvtgc@no-mx.msusenet.com> a écrit dans le message de news:
Fredenallemagne.1nvtgc@no-mx.msusenet.com...
Bonjour a tous,
Je recherche depuis pas mal de temps une solution a mon probleme suite
a un changement de version d´Excel 97 vers Excel 2002.
J´utilise 5 fichiers ayant de nombreux liens entre eux. Les fichiers
réactualisés régulièrement , je les transmets a d´autres personnes
externes a mon réseau en les zippant tous ensemble.
Auparavant, mes interlocuteurs recevaient mon Zip, faisaient une
extraction vers un de leur dossier des 5 fichiers et a l´ouverture de
ceux ci la reactualisation des liens se passait sans probleme.
Aujourd´hui, en employant la meme méthode, la reactualisation ne peut
pas se faire car le chemin dans les liens correspond toujours au chemin
défini dans mon systeme.
Je ne sais pas comment procéder pour que le nom de chemin complet
(défini chez moi) n´apparaisse plus dans les fichiers que j´envoye pour
que mes interlocuteurs puissent réactualiser les données de leur coté
sans avoir a modifier les sources pour chacun des tableaux Excel recus
(ce sont pas des betes donc pas doués pour faire la manip...)
Merci pour vos idées et solutions
A bientot
Fred en Allemagne
--
Fredenallemagne
------------------------------------------------------------------------
Fredenallemagne's Profile: http://www.msusenet.com/member.php?useridf4
View this thread: http://www.msusenet.com/t-1869580354
Tu dois copier ces procédures dans chacun de tes classeurs.
Pour que cela fonctionne, les 5 classeurs doivent être mis dans le même répertoire chez ton destinataire.
Évidemment, ceci n'est pas testé !!!
'Copie ces 2 procédures dans le ThisWorkbook de ton classeur '--------------------------------------- Private Sub Workbook_Open()
Dim LesLiens, Lien As Variant Dim Nouveau As String
On Error Resume Next With ThisWorkbook LesLiens = .LinkSources(xlExcelLinks) For Each Lien In LesLiens Nouveau = .Path & "" & ExtractFile(Lien) .ChangeLink Lien, Nouveau, xlExcelLinks .UpdateLink Nouveau Next End With
End Sub
'--------------------------------------- Function ExtractFile(File As Variant) Dim Nb As Integer, C As Integer Nb = Len(File) For C = Nb To 1 Step -1 If Mid(File, C, 1) <> "" Then ExtractFile = Mid(File, C, 1) & ExtractFile Else Exit Function End If Next End Function '---------------------------------------
Salutations!
"Fredenallemagne" a écrit dans le message de news:
Bonjour a tous,
Je recherche depuis pas mal de temps une solution a mon probleme suite a un changement de version d´Excel 97 vers Excel 2002.
J´utilise 5 fichiers ayant de nombreux liens entre eux. Les fichiers réactualisés régulièrement , je les transmets a d´autres personnes externes a mon réseau en les zippant tous ensemble.
Auparavant, mes interlocuteurs recevaient mon Zip, faisaient une extraction vers un de leur dossier des 5 fichiers et a l´ouverture de ceux ci la reactualisation des liens se passait sans probleme.
Aujourd´hui, en employant la meme méthode, la reactualisation ne peut pas se faire car le chemin dans les liens correspond toujours au chemin défini dans mon systeme.
Je ne sais pas comment procéder pour que le nom de chemin complet (défini chez moi) n´apparaisse plus dans les fichiers que j´envoye pour que mes interlocuteurs puissent réactualiser les données de leur coté sans avoir a modifier les sources pour chacun des tableaux Excel recus (ce sont pas des betes donc pas doués pour faire la manip...)
Merci pour vos idées et solutions
A bientot
Fred en Allemagne
-- Fredenallemagne ------------------------------------------------------------------------ Fredenallemagne's Profile: http://www.msusenet.com/member.php?useridf4 View this thread: http://www.msusenet.com/t-1869580354
Fredenallemagne
Bonjour,
Merci pour la solution proposée ! Je vais essayer ca.
J´ai essayé autre chose qui a l´air de fonctionner aussi, sans s lancer dans les macros et fonctions évoluées ... Dans les options j´a supprimé les références aux dossiers de travail standar (Standartarbeitsordner en allemand ..) et celui de dessous avec.
J´ai testé avec un seul de mes correspondants et ca a l´air de bie marcher. Apres avoir dézippé les fichiers, mon collegue n´a plu rencontré de pb de lien
A bientot
Fred en allemangn
-- Fredenallemagn ----------------------------------------------------------------------- Fredenallemagne's Profile: http://www.msusenet.com/member.php?useridf View this thread: http://www.msusenet.com/t-186958035
Bonjour,
Merci pour la solution proposée ! Je vais essayer ca.
J´ai essayé autre chose qui a l´air de fonctionner aussi, sans s
lancer dans les macros et fonctions évoluées ... Dans les options j´a
supprimé les références aux dossiers de travail standar
(Standartarbeitsordner en allemand ..) et celui de dessous avec.
J´ai testé avec un seul de mes correspondants et ca a l´air de bie
marcher. Apres avoir dézippé les fichiers, mon collegue n´a plu
rencontré de pb de lien
A bientot
Fred en allemangn
--
Fredenallemagn
-----------------------------------------------------------------------
Fredenallemagne's Profile: http://www.msusenet.com/member.php?useridf
View this thread: http://www.msusenet.com/t-186958035
Merci pour la solution proposée ! Je vais essayer ca.
J´ai essayé autre chose qui a l´air de fonctionner aussi, sans s lancer dans les macros et fonctions évoluées ... Dans les options j´a supprimé les références aux dossiers de travail standar (Standartarbeitsordner en allemand ..) et celui de dessous avec.
J´ai testé avec un seul de mes correspondants et ca a l´air de bie marcher. Apres avoir dézippé les fichiers, mon collegue n´a plu rencontré de pb de lien
A bientot
Fred en allemangn
-- Fredenallemagn ----------------------------------------------------------------------- Fredenallemagne's Profile: http://www.msusenet.com/member.php?useridf View this thread: http://www.msusenet.com/t-186958035
