D'un classeur a un autre

[Alyre]

Bonjour a touts et a toutes

je sais que pour vous les forumiens, mes questions vont être tres facile

1 = j'explique : dison que j'ai 2 classeur d'ouvert (classeur1.xls et classeur2.xls),

le classeur1 est le principal, je voudrais me transporter d'un classeur a l'autre sans transféré quoi que se sois

qu'elle serais la sub que je devrais écrire qui ferais cette action

2 = j'ai un sub pour ouvrir le deuxime classeur, mais je ne sais pas comment écrire la sub,
pour fermé le classeur2 sans fermé les 2 classeurs en même temps

Merci a l'avance

@+
alyre

 

[Alyre]

re Zon salut

voici : j'ai mis la procédure dans Classeur1.xls This Workbook


le Count se fait tres bien en ( I ).Name , je peux voir passé le classeur1 et classeur2


Sub Changer()
Dim I As Byte
For I = 1 To Workbooks.Count
If Workbooks(I).Name = "Classeur2.xls" Then Workbooks(I).Activate
Next I

Windows("Classeur2.xls").Activate ''''''' ici Erreur d'exécution 9

End Sub

Si je change Windows pour Workbooks , il n'y a pas d'erreur mais je demeur toujour dans le classeur 1

' Workbooks("Classeur2.xls").Activate

Bonne nuit
@+Alyre

 

[@+Thierry]

Bonjour Alyre,

Devant mon café je lis les évolutions de la nuit et je vois que ce n'a pas été vraiment positif pour ton projet.

Je me demande vraiment ce qui peut te bloquer comme ceci...

Essaie cette macro, NB cette macro va te créer un répertoire 000TestTemp Directement sous C:, ensuite elle va sauver dans "C:\Mes documents\" deux fichiers pour le test (tu devras détruire par la suite ce répertoire)


Sub MacroTest()

Workbooks.Add
Range("B5") = "Fichier Test 1"

MkDir "C:\000TestTemp"
ActiveWorkbook.SaveAs Filename:="C:\000TestTemp\0001Test.xls"

Workbooks.Add
Range("B5") = "Fichier Test 2"
ActiveWorkbook.SaveAs Filename:="C:\000TestTemp\0002Test.xls"

Windows("0001Test.xls").Activate


End Sub


Si tu te retrouve sur le classeur 0001Test.xls c'est que tout marche correctement sur ton PC, mais que dans ton projet tu as mal écrit quelque chose...

Sinon je ne vois pas d'où vient ce problème... Mais je pense que cette macro devrait fonctionner.

Bonne journée
@+Thierry

 

[Alyre]

Allo les Forumiens

Salut Thierry

j'ai fait ce que tu a dit, j'explique:

Jai copier, coller dans un nouveaux classeur excel, dans ThisWorkbook,
j'ai fait tourné la procédure, cette macro elle a bien Crée 2 nouveaux classeur
mais elle n'a pas passé la ligne Windows("0001Test.xls").Activate

toujours le même prb
Erreur d'exécution 9
l'indice n'appartien pas à la sélection

j'ai inclus une pièce jointe, copie de l'écran avec Paint et Zipé, en espérent que sa va fonctionner , pour que tu voie les nouveaux fichier ont été crée

Merci Thierry
@+Alyre

 

[Alyre]

re salut Thierry

est-ce que ça se peut ?
dans les références qu'il manque des options qui ne s'ont pas cocher

Merci encore

a+alyre

 

[@+Thierry]

bonjour Alyre et le Forum

heuh non, je ne pense pas, le message d'erreur ne serait pas celui là, si il s'agissait d'une référence manquante.

Et puis une instruction aussi simple ne fait pas appel à un objet inconnu puisque c'est "Windows" (lol)

Je ne m'explique pas...

essaie comme çà

Sub MacroTest()

Workbooks.Add
Range("B5") = "Fichier Test 1"

MkDir "C:\000TestTemp"
ActiveWorkbook.SaveAs Filename:="C:\000TestTemp\0001Test.xls"

Workbooks.Add
Range("B5") = "Fichier Test 2"
ActiveWorkbook.SaveAs Filename:="C:\000TestTemp\0002Test.xls"

Workbooks("0001Test.xls").Activate
End Sub

Bonne Journée (TGF)
@+Thierry