Discussion :

[c.piette]

Bonjour à tous,

J'ai codé une macro me permettant de balayer un fichier Excel, précédemment chargé par l'utilisateur via le formulaire mis à sa disposition...

Pour une fichier "sans liaison", l'extraction des données se fait sans aucun problème. Le hick est pour les fichiers contenant des liaisons: mon code est comme bloqué...

Même manuellement je n'arrive pas à supprimer ces liaisons... Donc en gros, existerait-il un moyen simple et automatique d'outrepasser ces liens/liaisons ?

- Du style un code : (j'invente)

Code :

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

Workbook("MonFichier").sheets(1).ClearAllBond

- Ou alors un espèce de copier-coller "spécial" ne conservant pas ces liens ...

Enfin, en résumé: help !

Merci d'avance

[joe.levrai]

Bonjour,

et si tu tentes une ouverture sans mise à jour des liens, ou en forçant la mise à jour des liens ?

regarde la liste des argument de la méthode Open, tu as une argument dédié

[c.piette]

Bonjour Joe,


De fait, en théorie c'est bel et bien ce que je cherchais ... Pourquoi en théorie ? Parce qu'en pratique on dirait que l'argument n'agit pas ... Je m'explique:

J'ai bien mis:

Code :

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

Set Cls = Workbooks.Open(TextBoxFichierFormation.Text, 2)

Où l'argument 2 correspond à "Les liens ne sont jamais mis à jour dans ce classeur au moment de l'ouverture."
ps: j'ai aussi testé l'argument "3" : "Les liens sont toujours mis à jour dans ce classeur au moment de l'ouverture."

Cependant, j'ai toujours le même message d'erreur/d'alerte, me disant qu'il existe dans ce fichier des liens qui ne peuvent être mis à jour. C'est le même message qu'avant.

Ce message me dit que si je clique sur "Continuer", les liaisons seront laissées tel quelles ... Et de fait, comme avant, le code tourne si je clique sur continuer, le code tourne normalement.

Mais je n'arrive pas à me débarrasser de ce message d'alerte qui, esthétiquement parlant, n'est pas tip-top tip-top.

Donc je ne comprends pas pourquoi ce message d'alerte continue de s'afficher alors que c'est justement ce que l'argument "2" est censé régler ... Donc quid ?


Merci à toi

[joe.levrai]

et un

Code :

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

Application.DisplayAlerts = False

juste avant l'ouverture du fichier

en remettant à True après traitement



tu as ce message car y'a peut être des liaisons corrompues ou relatives à un fichier inaccessible

[c.piette]

Re,

De fait, c'était ça le problème. Ta solution fonctionne au poil !

Merci beaucoup