[VBA-E] Masquer l'ouverture des fichiers

**alsimbad** · 13/02/2007, 06h15

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

Code :

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

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 :

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

.....\fichier cible.xls

et je voudrais parvenir a

Code :

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

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

**cwain** · 13/02/2007, 08h53

Hello,

Tu peux essayer ça :

Code :

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

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

**ouskel'n'or** · 13/02/2007, 09h17

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+

**alsimbad** · 13/02/2007, 16h55

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

Code :

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

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 :

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

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 :

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

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

**cwain** · 13/02/2007, 17h06

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 :

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

dim Truc as String

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

Code :

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

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

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

**alsimbad** · 13/02/2007, 17h21

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

**SfJ5Rpw8** · 13/02/2007, 21h13

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 :

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

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

**alsimbad** · 13/02/2007, 22h42

Bravo bbil

Code :

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

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

**ouskel'n'or** · 13/02/2007, 22h59

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

Je n'ai même pas essayé alors que je l'utilise systématiquement. J'ai cru à un phénomène particulier

Maintenant je me souviens soudainement pourquoi je réclamais le code les autres fois

Tu peux mettre résolu, phénomène !
C'était quoi "ton" sujet de discussion que je le remette

**alsimbad** · 14/02/2007, 05h53

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

Code :

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

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.

**SfJ5Rpw8** · 14/02/2007, 07h53

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 :

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