Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ouverture des fichiers avec cellules liées

Ouverture des fichiers avec cellules liées

5 réponses
Avatar
Gaspareau
Bonjour vous tous,

Est-ce possible qu'à l'ouverture de certains fichiers qui comprennent des
cellules
liées à d'autres fichier, au lieu de me demander si je veux mettre à jour,
Excel saute cette question et le fasse automatiquement et qu'en plus il
ouvre tous les fichiers concernés ??

C'est surtout la partie ouverture des fichiers qui m'intéresse.

Merci beaucoup

Bonne journée
--
Gaspareau
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Ricky
Bonjour *Gaspareau* (et tous les lecteurs)

Avec qque chose du genre :
Dans ThisWorkBook

Private Sub Workbook_Open()
Open "monfichier" For Random As FreeFile
End Sub


| Bonjour vous tous,
|
| Est-ce possible qu'à l'ouverture de certains fichiers qui comprennent
| des cellules
| liées à d'autres fichier, au lieu de me demander si je veux mettre à
| jour, Excel saute cette question et le fasse automatiquement et qu'en
| plus il ouvre tous les fichiers concernés ??
|
| C'est surtout la partie ouverture des fichiers qui m'intéresse.
|
| Merci beaucoup
|
| Bonne journée

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Avatar
Gaspareau
Merci beaucoup,

En fait en voudrais savoir s'il est possible qu'une macro ouvre
automatiquement tous les fichiers dont une cellule liée relève.

Je ne veux pas avoir à les lister mais qu'ils s'ouvrent automatiquement.

Exemple:

Dans un fichierA.xls j'ai
en A1='[fichier1.xls]Feuil1'!$G$14
en B1='[fichier2.xls]Feuil1'!$G$14
En C1='[fichier3.xls]Feuil1'!$G$14

Je voudrais qu'en ouvrant fichierA.xls, sans questionnement, Excel ouvre
automatiquement tous les
fichiers liés soit, dans mon exemple, fichier1.xls, fichier2.xls et
fichier3.xls

C'est plus clair ??


"Ricky" a écrit dans le message de
news:
Bonjour *Gaspareau* (et tous les lecteurs)

Avec qque chose du genre :
Dans ThisWorkBook

Private Sub Workbook_Open()
Open "monfichier" For Random As FreeFile
End Sub


| Bonjour vous tous,
|
| Est-ce possible qu'à l'ouverture de certains fichiers qui comprennent
| des cellules
| liées à d'autres fichier, au lieu de me demander si je veux mettre à
| jour, Excel saute cette question et le fasse automatiquement et qu'en
| plus il ouvre tous les fichiers concernés ??
|
| C'est surtout la partie ouverture des fichiers qui m'intéresse.
|
| Merci beaucoup
|
| Bonne journée

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net



Avatar
bebert
le plus simple, c'est d'ouvrir tous les fichiers concernés
et d'enregistrer un environnement

en ouvrant le fichier d'environnement, tous les fichiers concernés s'ouvrent
en même temps...

"Gaspareau" a écrit dans le message de
news:eaSA%
Merci beaucoup,

En fait en voudrais savoir s'il est possible qu'une macro ouvre
automatiquement tous les fichiers dont une cellule liée relève.

Je ne veux pas avoir à les lister mais qu'ils s'ouvrent automatiquement.

Exemple:

Dans un fichierA.xls j'ai
en A1='[fichier1.xls]Feuil1'!$G$14
en B1='[fichier2.xls]Feuil1'!$G$14
En C1='[fichier3.xls]Feuil1'!$G$14

Je voudrais qu'en ouvrant fichierA.xls, sans questionnement, Excel ouvre
automatiquement tous les
fichiers liés soit, dans mon exemple, fichier1.xls, fichier2.xls et
fichier3.xls

C'est plus clair ??


"Ricky" a écrit dans le message de
news:
Bonjour *Gaspareau* (et tous les lecteurs)

Avec qque chose du genre :
Dans ThisWorkBook

Private Sub Workbook_Open()
Open "monfichier" For Random As FreeFile
End Sub


| Bonjour vous tous,
|
| Est-ce possible qu'à l'ouverture de certains fichiers qui comprennent
| des cellules
| liées à d'autres fichier, au lieu de me demander si je veux mettre à
| jour, Excel saute cette question et le fasse automatiquement et qu'en
| plus il ouvre tous les fichiers concernés ??
|
| C'est surtout la partie ouverture des fichiers qui m'intéresse.
|
| Merci beaucoup
|
| Bonne journée

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net







Avatar
Hervé
Salut,
Essai ceci si cela te convient :

Sub Lier()
Dim Fe As Worksheet
Dim Plage As Range
Dim Cel As Range
Dim Col As Collection
Dim L As Long
Dim C As Integer
Dim Pos As Integer
Dim Adr As String

Set Col = New Collection

For Each Fe In Worksheets
'evite les feuilles vides
On Error Resume Next
'défini la plage
With Fe
L = .Cells.Find("*", .[A1], -4123, , 1, 2).Row
C = .Cells.Find("*", .[A1], -4123, , 2, 2).Column
Set Plage = .Range(.Cells(1, 1), .Cells(L, C))
End With
'si la feuille n'est pas vide, recherche
'dans les formules des cellules (contenants des formules)
'le crochet "[" signifiant une liaison externe
'puis, après quelques retouche du chemin, stocke
'celui-ci dans une collection afin d'avoir un
'exemplaire unique de ce chemin
If Err.Number = 0 Then
For Each Cel In Plage.SpecialCells(-4123)
If InStr(Cel.Formula, "[") <> 0 Then
Pos = InStr(Cel.Formula, "]") - 4
Adr = Replace(Cel.Formula, "[", "")
Adr = Replace(Adr, "]", "")
Col.Add Mid(Adr, 3, Pos), Mid(Adr, 3, Pos)
End If
Next Cel
End If
Next Fe
'ouvre les differents classeurs liés
For L = 1 To Col.Count
Workbooks.Open Col(L)
Next L

Set Cel = Nothing
Set Col = Nothing
Set Plage = Nothing
Set Fe = Nothing
End Sub

Hervé.

"Gaspareau" a écrit dans le message news:

Bonjour vous tous,

Est-ce possible qu'à l'ouverture de certains fichiers qui comprennent des
cellules
liées à d'autres fichier, au lieu de me demander si je veux mettre à jour,
Excel saute cette question et le fasse automatiquement et qu'en plus il
ouvre tous les fichiers concernés ??

C'est surtout la partie ouverture des fichiers qui m'intéresse.

Merci beaucoup

Bonne journée
--
Gaspareau




Avatar
RT
Bonjour

Ceci ne fait pas suite au fil existant

Mais, j'aimerai que tu m'explique cet "environnement"

Si je comprends cela voudrait dire que je pourrait ouvrir d'un clic toute
une serie de fichiers dans des applications diverses.
Un peu comme créer un fichier .bat du bon vieux temps de DOS
Aurait-tu la gentillesse d'être plus explicite

Merci

Rex


"bebert" wrote in message
news:411a78d7$0$29666$
le plus simple, c'est d'ouvrir tous les fichiers concernés
et d'enregistrer un environnement

en ouvrant le fichier d'environnement, tous les fichiers concernés
s'ouvrent

en même temps...

"Gaspareau" a écrit dans le message de
news:eaSA%
Merci beaucoup,

En fait en voudrais savoir s'il est possible qu'une macro ouvre
automatiquement tous les fichiers dont une cellule liée relève.

Je ne veux pas avoir à les lister mais qu'ils s'ouvrent automatiquement.

Exemple:

Dans un fichierA.xls j'ai
en A1='[fichier1.xls]Feuil1'!$G$14
en B1='[fichier2.xls]Feuil1'!$G$14
En C1='[fichier3.xls]Feuil1'!$G$14

Je voudrais qu'en ouvrant fichierA.xls, sans questionnement, Excel ouvre
automatiquement tous les
fichiers liés soit, dans mon exemple, fichier1.xls, fichier2.xls et
fichier3.xls

C'est plus clair ??


"Ricky" a écrit dans le message de
news:
Bonjour *Gaspareau* (et tous les lecteurs)

Avec qque chose du genre :
Dans ThisWorkBook

Private Sub Workbook_Open()
Open "monfichier" For Random As FreeFile
End Sub


| Bonjour vous tous,
|
| Est-ce possible qu'à l'ouverture de certains fichiers qui
comprennent



| des cellules
| liées à d'autres fichier, au lieu de me demander si je veux mettre à
| jour, Excel saute cette question et le fasse automatiquement et
qu'en



| plus il ouvre tous les fichiers concernés ??
|
| C'est surtout la partie ouverture des fichiers qui m'intéresse.
|
| Merci beaucoup
|
| Bonne journée

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net