Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
779 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Resolu]basename sous vbe

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Resolu]basename sous vbe

n°1259884
yoshienfor​ce
Posté le 06-12-2005 à 11:30:07  profilanswer
 

Salut a tous ...
 
j'ai une petite question sous vbe en fait je dois faire l'equivalent d'un basename (unix) sur la chaine suivante dans un champ :
Q:\Pilotage\Activités\test_BAI.XLS
 
en gros je veux recuperer test_BAI.XLS ....  
 
Merci de votre aide


Message édité par yoshienforce le 08-12-2005 à 12:06:09
mood
Publicité
Posté le 06-12-2005 à 11:30:07  profilanswer
 

n°1260179
yoshienfor​ce
Posté le 06-12-2005 à 15:45:29  profilanswer
 

mais Heeellllllpppp
 :??:

n°1260242
watashi
La démotivation : JAMAIS !
Posté le 06-12-2005 à 16:37:00  profilanswer
 

C'est quel visual basic editor ?  
Comment récupères tu le Q\...\test-bai.xls ?
Un peu plus d'informations seraient les bienvenues...


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1260315
yoshienfor​ce
Posté le 06-12-2005 à 17:24:55  profilanswer
 

c de l'excel ....
En fait je recupere une usine a gaz et mon objectif et de rajouter une macro.
le champ avec q:\...\test_bai.xls est remplie a la main.  
 
q:\...\test_bai.xls est utilise a pas mal d'endroit dans les macros deja existante -> je peux pas y toucher.
 
moi j'ai besoins de recuperer test_bai.xls pour y inserer un onglet !!!
 
voila !
 
 

Message cité 1 fois
n°1260326
watashi
La démotivation : JAMAIS !
Posté le 06-12-2005 à 17:40:22  profilanswer
 

yoshienforce a écrit :

moi j'ai besoins de recuperer test_bai.xls pour y inserer un onglet !!!

Bon en gros soit ton classeur est déjà ouvert soit il faut que tu l'ouvre pour y placer l'onglet donc, tu peux le retrouver comme ça

Code :
  1. Workbooks.Open Filename:= _
  2.         "Q:\...\test_bai.xls"
  3.     MsgBox ActiveWorkbook.Name

Bon courage


Message édité par watashi le 06-12-2005 à 17:41:42

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1260334
yoshienfor​ce
Posté le 06-12-2005 à 17:47:53  profilanswer
 

Bin le probleme c pas tellement de l'ouvrir c de l'active une fois ouvert !!!
 
Ma macro fait ca en boucle sur une liste de fichier ouvert au prealable
 

Code :
  1. Workbooks.Open (oList.Cells(i, 2).Value)
  2.     Sheets("GParam" ).Select
  3.     ActiveWindow.SelectedSheets.Delete
  4.     Windows("test_TOUS.xls" ).Activate
  5.     Sheets("GParam" ).Select
  6.     Sheets("GParam" ).Copy After:=Workbooks("test_BAI.xls" ).Sheets(3)
  7.     Windows("test_TOUS.xls" ).Activate


 
mon probleme c que je sais pas transformer en variable test_BAI.xls a partir de q:\....\test_BAI.xls

Message cité 1 fois
n°1260346
watashi
La démotivation : JAMAIS !
Posté le 06-12-2005 à 17:58:34  profilanswer
 

yoshienforce a écrit :

Bin le probleme c pas tellement de l'ouvrir c de l'active une fois ouvert !!!
 
Ma macro fait ca en boucle sur une liste de fichier ouvert au prealable
 

Code :
  1. Workbooks.Open (oList.Cells(i, 2).Value)
  2.     Sheets("GParam" ).Select
  3.     ActiveWindow.SelectedSheets.Delete
  4.     Windows("test_TOUS.xls" ).Activate
  5.     Sheets("GParam" ).Select
  6.     Sheets("GParam" ).Copy After:=Workbooks("test_BAI.xls" ).Sheets(3)
  7.     Windows("test_TOUS.xls" ).Activate


 
mon probleme c que je sais pas transformer en variable test_BAI.xls a partir de q:\....\test_BAI.xls

Ben voilà qui explique un peu mieux ton soucis :)
 
test_bai tu l'as ouvert quand ? ici?

Code :
  1. Workbooks.Open (oList.Cells(i, 2).Value)

si c'est bien le cas tu places juste en dessous :

Code :
  1. NomFichier = Activeworkbook.name

Ensuite ta copie de feuille se modifier en :

Code :
  1. Sheets("GParam" ).Copy After:=Workbooks(NomFichier).Sheets(3)


 
Si c'est pas la que tu l'ouvres alors trouves l'endroit où tu ouvre ce fichier pour le faire, car quand tu ouvre un fichier c'est lui qui est actif... :)


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1261021
yoshienfor​ce
Posté le 07-12-2005 à 15:22:08  profilanswer
 

Bien joue
Merci
 
Je rajoute une derniere question. En fait quand je selection ma feuille dans mon document cela ne fonctionne pas si cette derniere est masque.  
 
Comment puis je faire ?
 
Merci encore

n°1261068
watashi
La démotivation : JAMAIS !
Posté le 07-12-2005 à 15:41:13  profilanswer
 

tu ajoutes juste avant ta sélection :
workbooks(X).sheets(X).visible =true
puis la même chose en false quand tu as terminé et que tu souhaite la remasquer.
 
;)

n°1261072
yoshienfor​ce
Posté le 07-12-2005 à 15:43:57  profilanswer
 

merci
t un ange ....  :ange:  
 
 
Bonne fin de journee
 :jap:  

mood
Publicité
Posté le 07-12-2005 à 15:43:57  profilanswer
 

n°1261114
watashi
La démotivation : JAMAIS !
Posté le 07-12-2005 à 16:17:33  profilanswer
 

de même :)
 
edite juste ton premier post pour mettre un résolu dans le titre :) Ca pourra en aider dautres :)
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Resolu]basename sous vbe

 

Sujets relatifs
[C] Problemes rand() [résolu][Resolu] Ajouter source ODBC
[PHP][Résolu] Problème de suppression...Problème avec split et tableau [résolu]
[Résolu] Redéfinition de l'operateur << pour ofstream[Résolu]Ajouter des lignes a un tableau par génération interne
[Résolu] Numéro d'erreur de listing de répertoire ?Xml / ISO et python qui veut pas des caractères non ascii [Résolu]
[résolu] Problème d'affichage dans email envoyé via un formulaire.[Résolu!] Besoin de cours en C++ sur Marseille
Plus de sujets relatifs à : [Resolu]basename sous vbe

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.035 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR