Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Masquer message "Téléchargement"

YGBerard

XLDnaute Nouveau
Bonjour à tous
J'ai une macro qui ouvre des fichiers dans un repertoire pour en extraire des informations.
J'ai reussi à ne pas avoir à l'ecran le fichier qui s'ouvre.
Par conte, j'ai toujours le message : "Telechargement de ..... en cours" qui apparait.
Comment faire pour ne plus le voir ?
 

patricktoulon

XLDnaute Barbatruc
Bonjour
Attends 2 minutes que j'astique ma boule de cristal
non sérieux comment veux tu que l'on t'aide si tu donne pas plus de detail
le répertoire il est ou?
le type de fichier c'est quoi?
le code que tu utilise il est ou ?
etc..etc...
 

YGBerard

XLDnaute Nouveau
Bonjour
Je travail en VPN dans le repertoire de ma boite
Le fichier est un fichier EXCEL
Et j'utilise du VBA

Voici une partie du code

Fichier = Dir(Repertoire & "*.xls*") 'Mémorisation du type de fichier à lire (EXCEL)
While Not Fichier = "" 'Comptabilise le nombre de fichiers à traiter
Nb_fic = Nb_fic + 1

info.Show 0
info.Txt_info.Caption = "Comptage des fichiers à traiter " & ": " & Nb_fic

Set Source = Workbooks.Open(Repertoire & Fichier) 'Ouverture et memorisation du fichier à analyser
Call Conforme 'Verification du formatage du fichier
Source.Close False 'Fermeture du fichier source

Fichier = Dir
Wend
 

YGBerard

XLDnaute Nouveau
Fichier = Dir(Repertoire & "*.xls*") 'Mémorisation du type de fichier à lire (EXCEL)
While Not Fichier = "" 'Comptabilise le nombre de fichiers à traiter
Nb_fic = Nb_fic + 1

info.Show 0
info.Txt_info.Caption = "Comptage des fichiers à traiter " & ": " & Nb_fic

Set Source = Workbooks.Open(Repertoire & Fichier) 'Ouverture et memorisation du fichier à analyser
Call Conforme 'Verification du formatage du fichier
Source.Close False 'Fermeture du fichier source

Fichier = Dir
Wend
 

patricktoulon

XLDnaute Barbatruc
a oui mais non!!!!!
on ne modifie pas un fichier dans une boucle dire
réfléchi un peu
tu ouvre ton fichier dans la boucle dir , tu le modifie, et tu le ferme il n'a donc plus la meme place dans le disque dur selon l'ordre de l'attribut lastmodified
c'est pas comme sela que l'on fait
on boucle dir et stock les chemin dans un tableau ou un array et apres seulement !!!!! on boucle sur le tableau(array) pour modifier les fichiers
tu m’étonne que ton acces vba disque souffre le martyr et te met un message d'attente de téléchargement pour peu que ton resau avance comme une tortue ben ....t'es chocolat
voila
 

patricktoulon

XLDnaute Barbatruc
fait comme je te dis et tu l'aura déjà moins souvent après il n'y a rien qui puisse accélérer ton réseau a part le webmaster de ta boite
le message que tu a est un message windows et n'a donc rien a voir avec VBA
 

Discussions similaires

Réponses
23
Affichages
783
Réponses
4
Affichages
523
Réponses
11
Affichages
440
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…