Microsoft 365 Liaisons rompue

Dranreb

XLDnaute Barbatruc

• 16 Janvier 2021

• #16

Vous n'avez jamais dit, ici, que c'étaient les formules mises par cette procédure, qui est d'ailleurs de moi, et qui sort de cette discussion.
Là, bien sûr il devrait être possible de vérifier au passage par un Dir si le fichier existe, et de mettre une formule bidon dans le cas contraire.
Mais en dehors de ça ce que vous demandez n'est pas possible. Pourquoi ne pas détruire les formules comme le suggère les autres intervenants, puisque vous avec cette procédure pour les reconstituer ?

 

Dernière édition: 16 Janvier 2021

Vote positif 0 Vote négatif

B

Bob 31

XLDnaute Occasionnel

• 16 Janvier 2021

• #17

Vous avez raison la solution doit être de passer par un Dir si le fichier existe, et de mettre une formule bidon dans le cas contraire dans la macro.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Janvier 2021

• #18

Alors essayez comme ça :

VB:

Sub MettreFormules()
'   Const Année = "2021"
   Dim Année As String, L&, NomPré
   Année = Cells(1, "X").Value ' À VÉRIFIER (je n'avais vu qu'après que l'année était dans une cellule)
   L = 2
   Do: NomPré = Cells(L, "B").Value: If VarType(NomPré) <> vbString Then Exit Do
      If Dir("\\SrvAldo\drh\" & NomPré & "\" & NomPré & " " & Année & ".xlsx") = "" Then
         Cells(L, "C").Resize(12, 30).Value = CVErr(xlErrRef)
      Else
         Cells(L, "C").Resize(12, 30).FormulaR1C1 = "='\\SrvAldo\drh\" & NomPré _
            & "\[" & NomPré & " " & Année & ".xlsx]ANNUEL'!R[" & 2 - L & "]C"
         End If
      L = L + 12
      Loop
   End Sub

 

Vote positif 0 Vote négatif

B

Bob 31

XLDnaute Occasionnel

• 16 Janvier 2021

• #19

Ca fonctionne, je ne sais pas si on peut automatiser la mise à jour de vérification des formules sur le classeur de destination, il faut que je revienne à chaque fois que j'ouvre ce classeur aller sur développeur macro puis exécuter "formulaire"

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Janvier 2021

• #20

On peut certes exécuter à l'ouverture et/ou avant fermeture du classeur un code qui vérifie l'état des liaisons.
Ce sont des procédures de prise en charge d'évènement à mettre dans le module ThisWorkbook. Leurs modèles s'implantent à l'aide des listes déroulantes qui surmontent la fenêtre de code.

 

Vote positif 0 Vote négatif

B

Bob 31

XLDnaute Occasionnel

• 16 Janvier 2021

• #21

Si je comprend je dois indiquer dans le module ThisWorkbook :
Workbook

 

Vote positif 0 Vote négatif

B

Bob 31

XLDnaute Occasionnel

• 16 Janvier 2021

• #22

Si je comprend je dois indiquer dans le module ThisWorkbook :
Workbook open
et mettre la formule "formulaire"

 

Vote positif 0 Vote négatif

Solution

Dranreb

XLDnaute Barbatruc

• 16 Janvier 2021

• #23

Oui, dans la liste de gauche. Dans celle de droite Open, BeforeClose … Oui, dedans: MettreFormules, pourquoi pas.

 

Vote positif 0 Vote négatif

B

Bob 31

XLDnaute Occasionnel

• 16 Janvier 2021

• #24

Super
merci

 

Vote positif 0 Vote négatif