Qd je renomme le class excel, la macro ne fonctione plusRésolu

Question

Bonjour,
J'ai fait une macro qui permet d'ouvrir un fichier texte, copier son contenu et le copier dans une feuille du classeur appel&#233; TORS-ANA qui est actif et d'o&#249; je lance la macro.
LE probl&#232;me, si je veux renommer le classeur TORS-ANA, la macro ne fonctionnera plus car ds la macro est &#233;crit  le nom du classeur, voir ci-dessous :

   Workbooks.OpenText fileName:= _
        "C:\Program Files\ARMDW\TORSION\Samples\for excel	ors.TEG", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
        Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
        , 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1))
    Cells.Select
    Selection.Copy
    Windows("tors-ana.xls").Activate
    Sheets("TEG").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Windows("tors.TEG").Activate
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Close
'

Comment puis-je faire pour que m&#234;me si le nom du classeur change, la macro continue &#224; fonctionner
MErci pour votre aide

jrivet · Accepted Answer

Re,

Si ton excel est ouvert, je suppose qu il y a au moment de l'ex&#233;cution plusieurs Classeurs d'ouvert.

Celui qui contient la macro et celui que tu ouvre.

Donc peu etre que tu peux essayer WorkBooks(1).Activate ou WorkBooks(2).Activate tout comme lorsque tu veux acceder a une feuille tu peux faire soit Sheets("Feuill1").activate ou Sheets(1).Activate c est a dire l'activer soit par le nom soit par sa place (son index) dans la collection Sheets.

(je sais pas si c est tres explicite mais bon...)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Salut,

Au lieu de passer par le nom du classeur essaie de passer par son index: (pas tester) du style; Windows(1).Activate.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_kouki69 · Answer

Salut,
J'ai essay&#233; de remplacer  Windows("tors-ana.xls").Activate par ActiveWorkbook.activate mais &#231;a ne marche pas puisque le activeworkbook est le fichier texte!!
Qu'entends-tu par "passer par son index" ??


Merci


Georges

cs_kouki69 · Answer

Merci Julien,
Ca marche impec !!

jrivet · Answer

Mais ne rien.

En revanche n'oublie pas d'appuyer sur le reponse acceptee du ou des post qui ont pu t'aider (c est la meilleure facon de me remercier )

Si tu l'as fait pendant l'&#233;criture de ce message excuses moi 

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

kalobit · Answer

salut,

Une autre m&#233;thode est d'affecter ton fichier texte &#224; une variable

comme &#231;a, ta variable repr&#233;sente toujours ton fichier, m&#234;me si tu modifie ce dernier.

Ex dim WBKText as workbook

set WBKTexte = workbooks.opentext ( .....)

ensuite pour activer tu n'as plus qu'&#224; faire WBKTexte.activate

Voil&#224;, rien de plus simple

+++

Qd je renomme le class excel, la macro ne fonctione plus

6 réponses

Discussions similaires