Eviter mise à jours dans lecture fichierS

Bonjour tout le monde !

je me tourne vers vous, je ne vois pas comment résoudre mon soucis...

enfait j'ai une macro qui me sort la liste des fichiers présents dans un dossier et le nom de l'onglet qu'il y a dedans dans la colonne d'a coté

le probleme c'est que chacun de mes fichiers quand on les ouvre il demande une mise à jour (normal c'est un fichier qui va de service en service dans mon entreprise) la réponse est toujours "ne pa metre à jour"

mon probleme c'est que cette macro declenche ces demandes et comme j'ai bien 400 fichiers... ca me fait 400 fenetre de mise à jour à cliquer sur "ne pa mettre à jourr"... ca fait bcp...

y'aurait pas moyen dans la macro de prédéfinir la reponse à cette question pour qu'elle n'apparaisse plus...

ou de faire un "ne pa mettre à jour à tous"... je sais pas si c'est possible

merci d'avance pour votre aide !!!

bonjour toto31, forum,

Essaie la propriété Application.AskToUpdateLinks. Intégrée à ta macro, ça pourrait donner ça :

Public Sub test_import_noms_dossiers()
Dim mem1 As Long, mem2 As Long, mem3 As Long, mem4 As Long
    'mémoriser/désactiver les options d'excel
    mem1 = Application.Calculation: Application.Calculation = xlCalculationManual
    mem2 = Application.EnableEvents: Application.EnableEvents = False
    mem3 = Application.ScreenUpdating: Application.ScreenUpdating = False
    mem4 = Application.DisplayAlerts: Application.DisplayAlerts = False
    mem5 = Application.AskToUpdateLinks: Application.AskToUpdateLinks = False

    'exécuter la macro
    On Error Resume Next
     test_import_noms_dossiers_int
    On Error GoTo 0

    'rétablir les options d'excel
    Application.Calculation = mem1
    Application.EnableEvents = mem2
    Application.ScreenUpdating = mem3
    Application.DisplayAlerts = mem4
    Application.AskToUpdateLinks = mem5

End Sub

PS : il y avait une petite faute à la ligne du rétablissement des options excel. Tu avais mis :

    Application.DisplayAlerts = False

au lieu de

    Application.DisplayAlerts = mem4

salut vba new !!!!

bouduuu vraiment trooop la classe ca marche du feu de dieu !!!!

ca va metre un peu de temps avec plus de 400 fichiers mais au moins t'as pes ces fenetres !!

troooo merci !!!!

Content que tu sois content

Si ton post est résolu, n'oublie pas de l'indiquer. Clique sur le petit V vert qui se trouve à côté de "citer" (je crois) dans un des messages du post.

voila c'est fait !

Bonjour

j'ai une petite question par rapport à la formule INDIRECT ...

j'utilise cette formule :

=INDIRECT("'"&GAUCHE(A6;6)&"["&DROITE(A6;6)&"]"&B6&"'!BVM")

A6 = G:\SE\99.xls

B6 = onglet1

BVM c'est le nom d'une cellule qui va lire

mon probleme c'est que ca ne marche pas si je change le chemin par ca :

I:\DIM-DCT-66530\66532\DT ....

et si mes fichiers je les nommes 061 ou 06C1 ca ne marche plus non plus ...

quelqu'un aurait une idée ?

merci d'avance et bonne journée