[Resolu]basename sous vbe

basename sous vbe [Resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 06-12-2005 à 11:30:07    

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
Reply

Marsh Posté le 06-12-2005 à 11:30:07   

Reply

Marsh Posté le 06-12-2005 à 15:45:29    

mais Heeellllllpppp
 :??:

Reply

Marsh Posté le 06-12-2005 à 16:37:00    

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 ;-)
Reply

Marsh Posté le 06-12-2005 à 17:24:55    

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 !
 
 

Reply

Marsh Posté le 06-12-2005 à 17:40:22    

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 ;-)
Reply

Marsh Posté le 06-12-2005 à 17:47:53    

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

Reply

Marsh Posté le 06-12-2005 à 17:58:34    

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 ;-)
Reply

Marsh Posté le 07-12-2005 à 15:22:08    

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

Reply

Marsh Posté le 07-12-2005 à 15:41:13    

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.
 
;)

Reply

Marsh Posté le 07-12-2005 à 15:43:57    

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

Reply

Marsh Posté le 07-12-2005 à 15:43:57   

Reply

Marsh Posté le 07-12-2005 à 16:17:33    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed