D'un classeur a un autre

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

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

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

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

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