[VBA-E] Masquer l'ouverture des fichiers

Bonjour tout le monde
j'ouvre plusieur fichiers dans un repertoire et j'analyse la valeur d'une case

Code:

---

1 2 3 4 5 6 7 8 9 10

stFichier = Application.GetOpenFilename With Application.FileSearch .NewSearch .LookIn = chemin(stFichier) .Execute On Error Resume Next For Each f In .FoundFiles Workbooks.Open f Select Case activeworkbooks.Sheets(1).Range("g9") .... et la suite.

---

ça marche très bien mais je n'aime pas voir les fichier s'ouvrir (screenupdating ne suffit pas à masquer ce mouvement). et je ne sais pas comment arriver a sortir le nom de fichier qui peut etre completement aléatoire. en fait, j'ouvre tout les fichiers excels présents dans le repertoire, parce que justement, je ne connais pas le nom du fichier.
j'ai f qui est le chemin complet et qui se termine par

Code:

---

.....\fichier cible.xls

---

et je voudrais parvenir a

Code:

---

1 2	Select Case Workbooks("fichier cible.xls").Sheets(1).Range("g9") ou select case workbooks("fichier cible").Sheets(1).Range("g9")

---

, mais j'ai rien vu qui puisse extraire juste le nom du fichier. alors peut etre avec les fonction de traitement de chaine de caractere, mais je gere pas trop.
je voudrai réussir a lire dans le fichier fermé, ou au moins , qu'il reste en arriereplan. j'ai cherché sur le forum et les faq,notement celle qui traite de transformer excel en mini base de donnée, mais à ce que j'en ai compris, elle suppose d'installer des bibliotheques, or mon projet va aller sur d'autres bécanes, donc je veux utiliser excel standard.
voila

Hello,

Tu peux essayer ça :

Code:

---

Truc = Right(TonString, Len(TonString) - InStrRev(TonString, "\"))

---

où :
-Truc est ton résultat
- Right : extrait la partie droite d'une chaine de caractère (tu spécifies la position)
- Len : longueur de la chaîne
- InstrRev : renvoie la position d'un caractère (ici "\") dans une chaine de caractères
- TonString : attention je ne suppose pas que tu portes un string c'est juste ta chaîne de caractères
:mouarf: :mouarf: :mouarf: :mouarf3: :mouarf2: :aie: :aie: :aie:

Citation:

---

j'ouvre plusieur fichiers dans un repertoire et j'analyse la valeur d'une case...
...ça marche très bien mais je n'aime pas voir les fichier s'ouvrir (screenupdating ne suffit pas à masquer ce mouvement)

---

SilkyRoad a décrit une méthode intéressante qui permet de travailler sur des fichiers fermés.
A+

merci cWain, ça marche bien ton truc. j'ai rajouté une couche pour obtenir le nom sans l'extention

Code:

---

1 2	truc = Right(f, Len(f) - InStrRev(f, "\")) fichier = Left(truc, Len(truc) - 4) ' extraction du nom du fichier

---

malheureusement ça ne suffit pas a faire marcher mon usine
que j'ecrive

Code:

---

1 2 3 4 5

u = Workbooks fichier.Sheets(1).Range("g9") ou u = Workbooks truc.Sheets(1).Range("g9")   ou u = Workbooks ("fichier").Sheets(1).Range("g9") ou u = Workbooks ("truc").Sheets(1).Range("g9")

---

j'obtien toujour, l'indice n'apartiens pas à la selection.
pour ouskel, j'ai essayé ce qui est marqué sur la faq, ça ne donne rien non plus

Code:

---

1 2 3

' msgbox C:\Documents and Settings\mimi\dossier\excel\[ClasseurBase.xls]Feuil1'!$A$1   ' boulaouane ='[clients.xls]feuil1'!$B$62

---

et là pour le coup, ça ne passe meme pas le stade de l'écriture, le compilateur n'autorise pas

Juste un petit commentaire vite fait (pas trop le tps là, désolé), j'ai vu que tu mettais "truc" entre guillemets, or Truc, si tu le définis

Code:

---

dim Truc as String

---

, tu ne l'appelle plus à l'aide de guillemets, mais juste comme ça

Code:

---

u = Workbooks (Truc).Sheets(1).Range("g9")

---

Correction : dans ton cas c'est plutôt Fichier je crois

oui, tu as raison, mais si je ne l'avais pas marqué, en fait j'avais bie essayé sans guillemet aussi. mais ça marche pas. meme sur une commande simple
genre workbooks(truc).open
je plane

Pour ouvrir ton fichier, tu dois indiquer le chemin.
Mais avec le chemin, tu ouvres le fichier et donc, cela n'empêchera pas son "apparition". Je croyais que c'était ce que tu voulais éviter ;)
Tu précises ton pb ?
A+

oui, c'est bien ce que j'aimerai éviter, mais j'ai un probleme de syntaxe. je voudrais juste lire dans le fichier, mais je n'y arrive pas. et comme j'y arrive pas, j'ai essayé avec open, maniere de vérifier si c'est l'action qui est impossible ou la syntaxe qui est mauvaise. et donc voila, j'en suis au même point. ça passe pas.
ça devrait quand même pas être impossible, j'arrive sur un repertoire ou j'ai placé des ficchiers excel, je regarde dans chaque fichier le contenu de la cellule g9. je bloque

Tu as regardé à l'URL que je t'ai mise là ? Ou plus directement, ici ? :mouarf:
A+

PS - Chapitre "III-A. OLE DB Microsoft Jet"

mon cher ouskel
j'ai regardé ce tutoriel a me crever les yeux chaque fois que tu m'en as reparlé, j'ai bien senti comme un message subliminal et insistant de ta part :D mais je n'y ais trouvé que ça succeptible de m'etre utile

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Avant de vous lancer dans l'exploration du modèle ADO, n'oubliez pas qu'Excel possède 2 outils afin de lire dans un classeur fermé:   Les formules de liaison:   ='C:\Documents and Settings\mimi\dossier\excel\[ClasseurBase.xls]Feuil1'!$A$1   'Faire une RECHERCHE Verticale dans un classeur fermé: 'Rechercher "DVP" dans la colonne A du classeur fermé et afficher la donnée correspondante de la colonne B. =RECHERCHEV("DVP";'C:\Documents and Settings\mimi\dossier\excel\[ClasseurBase.xls]Feuil1'!$A:$B;2;FAUX)     Les macros Excel4: Vba 'Lecture de la cellule A1 dans la Feuil1 du classeur fermé MsgBox ExecuteExcel4Macro("'C:\Documents and Settings\mimi\dossier\excel\[ClasseurBase.xls]Feuil1'!R1C1")

---

et dans le deux cas, j'ai essayé de traduire par un certe pauvre mais qui néamoins sur
msgbox 'C:cheminfichier\[nomfichier]Feuil1'!$A$1
qui ne passe pas
et par un
msgbox MsgBox ExecuteExcel4Macro("'C:\Documents and Settings\mimi\dossier\excel\[ClasseurBase.xls]Feuil1'!R1C1") qui ne passe pas davantage, et comme, je n'ai pas le niveau pour interpreter le reste de ce qu'il dit avec les objet automaton ou ole a qui je n'ai pas eu l'honneur d'etre présenté et auquels je ne comprend rien, je nage
j'ai meme été voir là
http://www.developpez.com/vbasic/tut...tutoriel24.php
et je nage toujours
pour info, moi rien connaitre de l'informatique a part excel et son vba que j'ai appris seul, et je n'ai pas les bases de programation qu'il me faudrait. donc, une bonne partie du langage doit etre décodé AVANT de chercher a comprendre c'est quoi qu'il dit. je veux pas me faire passer pour plus bete que ce que je suis, parce que je trouve que je gaze quand meme pas mal, mais quand je demande une solution, c'est généralement que je plante et sur la connaissance du sujet et sur la maniere d'utiliser la solution. j'essaie de comprendre, mais je suis quand meme souvent dépassé
ouf:mrgreen:
bref, moi pas compris:P

Ok ! Moi bien comprendre toi ! Moi regarde si trouver truc intéresser toi dans forum VBA.
Pfff !
... Mais j'aimerais bien que Silky passe par là, il connaît ça par coeur.
De mon côté, je ne l'ai utilisé qu'une fois pour une bricole, il y a longtemps, et puis je ne suis pas sûr, et c'était peut-être autre chose, bref, là, tout de suite, je suis aussi ignare que toi. :pleure:
Tu n'as pas une question plus facile ? :mouarf:
A+

NB - Je change le sujet de ta discussion afin d'attirer l'attention de Michel (SilkyRoad) ;)

Si tu travailles depuis un userform, tu peux utiliser une technique suggérée par AlainTech

Code:

---

1 2	Application.Visible = False UserForm1.Show vbModal

---

Il conseille aussi de remettre

Code:

---

Application.Visible = True

---

avant de fermer l'userform ;)
A+

bon, on a faim, on s'enerve, on s'enerve, maintenant, j'ai mangé, tout vas bien , désolé pour le coup de gueule.
la formule ou tu m'envoie la c'est la meme que celle de la faq

Code:

---

='D:\MesDocuments\Mondossier\[Monclasseur.xls]Feuil1'!B12

---

et je crois que c'est la l'apostrophe qu coince(entre autre)
quand a l'application.visible, j'y avais pas pensé mais ça pourrais faire l'affaire. en fait, je bosse depuis un bouton dans un fichier, mais je lance une action qui lit trois fichier, et qui en fonction des calculs crée un 4eme fichier, et referme tout excel, avec un fichier résultat créé. pas bien méchant, je fait pas décoler ariane. le résultat est là, pas de soucis, mais par contre esthetiquement, c'est moche comme poux. et comme, je ne fais rien dans les fichier a par en extraire les infos, si je peux rester sur ma magnifique page d'accueil, c'est mieux. aller, bonne soirée, je vais me dégourdir l'esprit devant les experts. (hum)

Citation:

---

Envoyé par alsimbad

...
ça marche très bien mais je n'aime pas voir les fichier s'ouvrir (screenupdating ne suffit pas à masquer ce mouvement). ...

---

je comprends pas la ... moi cela se passe trés bien avec "screenupdating.."

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() Dim wk As Workbook Dim i As Integer Application.ScreenUpdating = False Set wk = Workbooks.Open(Filename:=".....\fichier cible.xls", ReadOnly:=True) i = wk.Sheets("Feuil1").Range("G9") wk.Close False Set wk = Nothing Application.ScreenUpdating = True MsgBox i   End Sub

---

8O

Bravo bbil

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim stFichier stFichier = Application.GetOpenFilename With Application.FileSearch .NewSearch .LookIn = cheminbalance(stFichier) .Execute On Error Resume Next For Each f In .FoundFiles Dim wk As Workbook Dim i As Integer Application.ScreenUpdating = False Set wk = Workbooks.Open(Filename:=f, ReadOnly:=True) 'i = wk.Sheets("PAP CLTS").Range("G9") marche pas ' i = wk.Sheets(1).Range("G9") marche pas ' i = wk.Worksheets("PAP CLTS").Range("G9") marche pas, mais c'est curieux vu la ligne suivante qui fonctionne MsgBox wk.Worksheets("PAP CLTS").Range("G9") wk.Close False Set wk = Nothing Application.ScreenUpdating = True MsgBox i

---

ça marche mais j'ai du essayer deux ou trois nuances avant de trouver celle qui marche. je vais developper sur l'ensemble du fichier, et je vous tiendrais au courant. je sais pas exactement a quoi ça tient, effectivement, le fichier s'ouvre et n'est pas visible. pour etre efficace, je dois voir si l'ensemble de la macro reste invisible, mais au cas ou, c'est super.merci les gars, avec celle la, je suis proche du but. bonne nuit a tous

Citation:

---

Envoyé par alsimbad

ça marche très bien mais je n'aime pas voir les fichier s'ouvrir (screenupdating ne suffit pas à masquer ce mouvement).

---

Y'a pas de doute, tu te moques :evilred: Je n'ai même pas essayé alors que je l'utilise systématiquement. J'ai cru à un phénomène particulier :marteau:
Maintenant je me souviens soudainement pourquoi je réclamais le code les autres fois :furieux: :sm: :zekill: :scarymov: :traine: :furax:
Tu peux mettre résolu, phénomène !
C'était quoi "ton" sujet de discussion que je le remette :mouarf:

j'utilisais ça. avoue que la nuance est faible.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim stFichier stFichier = Application.GetOpenFilename With Application.FileSearch .NewSearch .LookIn = cheminbalance(stFichier) .Execute On Error Resume Next ScreenUpdating = False For Each f In .FoundFiles Workbooks.Open f Select Case ActiveWorkbook.Sheets(1).Range("g9")

---

mais tel que c'est ci dessus, c'est absoluement pas efficace. et je ne sais pas pourquoi. alors peut etre que c'est lié à la suite da ma macro, ou a sa position par rapport a la boucle qui ouvre les trois fichiers, j'en saurais plus quan j'aurais developé le sujet.

ben tu t'est "bouffé" le Application ... devant screenupdapting... je suppose aussi que l'option explicit n'est pas activé sur ton projet ... et donc VB.. te crée une variable ScreenUpdapting ... qui n'as rien avoir ( à par le nom et le type ) à la propriété ScreenUpdapting de l'objet Application ...

pour éviter de telle erreurs ...(nom de variables, portées des varibles..) rajoute

Code:

---

1 2	Option Explicit

---

en haut de tes modules et VB.. te signalera s'il y as lieu l'erreur au moment de la "compilation"...

;)

arggghhh
la honte sur moi. je viens a vous repentant et le front bas. je fais mes excuses les plus humbles a ceusse qui ont cherché a m'aider, et en particulier a ouskel. je m'en suis rendu compte ce matin, et j'esperais que je serais le premier à le dire ici, qu'au moins je corrige ma faute par le fait de m'en etre rendu compte tout seul, mais non, je devrai donc boire le calice jusqu'a la lie.
Pardon les gars, je suis désolé
;) ça va c'est assez ?:D