Discussion :

[Nono Sto]

Chères amies, chers amis du forum

Je souhaites créer une macro ou lors de la boucle de traitement je dois faire un enregistrer sous avec un nouveau titre pour le fichiers pour l'instant rien de compliquer.

Cepandant c'est un traitement en boucle et je voudrais savoir comment revenir sur le fichiers XL d'origine pour genérer d'autre fichier qui devront etre enregistr" sous...Sachant que lors du traitement je supprime , je traite, etc..

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
for i = 0 to 5
 
traitement sur fichier 1
enregistrer sous "Fichier 2"
retour fichier 1
 
Next i

Merci

[mercatog]

Regarde SaveCopyAs

[Nono Sto]

Merci beaucoup

J'ai regardé sur internet, et cela a l'air parfaitement collé a ma demande. Je fais des essais avant de mettre en résolu.

[mercatog]

L'habitude de regarder tout sur Internet alors qu'un simple F1 (aide gratuit de vba) donne directement l'explication de la méthode. Mais bon

[Nono Sto]

Merci

J'ai code ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub CreateNewFolder(ByVal TmpName As String)
 
Dim strDrive As String
 
Sheets("Control").Select
gvSTRPathSave = Sheets("Control").Range("B4").Value & "\"
 
    If Dir(gvSTRPathSave & TmpName & "_" & Format(Date, "dd_mm_yyyy"), vbDirectory) = "" Then
        strDrive = Left(gvSTRPathSave, 1)
        ChDrive strDrive
        ChDir gvSTRPathSave
        MkDir "Export" & "_" & Format(Date, "dd_mm_yyyy")
    End If
 
ActiveWorkbook.SaveCopyAs gvSTRPathSave & TmpName & "_" & Format(Date, "dd_mm_yyyy") & "\" & TmpName & "_" & Format(Date, "dd_mm_yyyy") & ".xlsm"
 
End Sub

Cela enregistre une copie du fichier dont le nom comporte celui du destinataire, l'argument de la routine, et la date de création, le tous dans un folder spécifié.

Cependant il y a un problème, en effet si je reprend mon schema de départ:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
for i = 0 to 5
 
traitement sur fichier 1
enregistrer sous "Fichier 2"
retour fichier 1
 
Next i

Mon fichier original est resté sur la fin du traitement il n'est pas revenu sur sa position initial avant traitement, et c'est bien ennuyeux car le traitement induit la destruction de cellule.

[Philippe Tulliez]

Bonjour,
Il est difficile de te donner une réponse si tu n'affiches pas le code que tu utilises. L'algorithme peut être correct mais l'utilisation des objets erroné.
Lorsque tu effectues un SaveAs sur le classeur actif, c'est le classeur sauvé qui devient actif. L'autre doit être soit rechargé soit il faut utiliser l'objet Classeur (ThisWorkbook par exemple)
[EDIT]
Je vois que tu utilises la méthode SaveCopyAs proposée par Mercatog donc contrairement à ce que j'ai écrit le classeur source doit rester ouvert.