Workbook.open et la macro s'arrête

Version imprimable

Bonjour à tous,

J'ai un fichier excel avec une feuille. Chaque ligne de la feuille contient un nom dans la colonne A et une ville dans la colonne B.

Il faut que je crée autant de fichiers excel que de ligne dans la feuille (je simplifie mon problème).

Chaque fichier contiendra la ligne qui correspond.

Pour cela, je fais :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 For i = 2 To NbLigne + 1 Dim valeur As String valeur = tableRole.Range("A" & i).Value ActiveWorkbook.SaveAs Filename:= _ ActiveWorkbook.Path & "\" & valeur & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Dim objWorkbookCible As Workbook objWorkbookCible = Application.Workbooks.Open(ActiveWorkbook.Path & "\" & valeur & ".xls") Next
Le SaveAs me permet de faire une copie du fichier courant. Ensuite, je veux ouvrir la copie pour faire un traitement dessus.

Mais lorsque le Application.Workbooks.Open s'exécute, le fichier s'ouvre à l'écran et le fichier courant n'existe plus.
En fait, le fichier sur lequel s'exécute la macro n'existe plus (il se ferme tout seul) et est remplacé par le fichier que j'ouvre dans le code.
Le script VBA ne continue plus de s'exécuter...

Qu'ai-je fait de mal ?

Merci d'avance.

15/07/2007, 07h04
cboncbon

et tablerole c'est quoi?
15/07/2007, 07h24
alsimbad

ce que tu fais de mal déja, c'est que si tu fais un saveas ton ancien fichier se ferme, et ne reste ouvert que la copie. pourquoi veux tu la réouvrir? par contre en fermant ton ancienfichier, je pense que tu stoppe la macro, puisqu'elle est dans l'ancien fichier.
tu dois donc laisser ouvert ancienfichier, travailler dessus, et faire un saveas seulement a la fin du travail

Merci alsimbad,

C'était bien la cause de mon problème. Lorsque j'enregistre sous, je deviens la copie du fichier.
J'ai donc contourné ce problème avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
        Source = ActiveWorkbook.Path & "\Fiche Type.xls"
        Destination = ActiveWorkbook.Path & "\" & valeur & ".xls"
 
        Dim xlobj As Object
        Set xlobj = CreateObject("Scripting.FileSystemObject")
 
        If xlobj.FileExists(Destination) Then
            xlobj.DeleteFile Destination
        End If
 
        xlobj.CopyFile Source, Destination, True

Un grand merci !
Bonne fin de WE ensoleillé !