Discussion :

[sebastien-16600]

Bonjour,
voilà mon probleme :
Je gere avec mon fichier excel une base de donnée, j'ai crée un formulaire avec un userform pour designer des personnels pour certaines missions.
Une fois selectionné dans mon formulaire, je rentre le mois et la semaine de la mission, et ensuite les informations des personnes designées sont enscrite dans une feuille formaté du meme classeur.
Je voudrais créer un classeur qui s'enregistrerais en portant le nom du mois et la semaine de la missions et ensuite d'y recopier cette feuille pour pouvoir la remettre vierge dans la classeur de depart.
J'ai parcourus les forums et j'arrive a créer le dit classseur mais ma feuille, elle, se copie dans un troisieme classeur qui porte le nom de "classeur n°xxxx".
Je ne comprends pas pourquoi.
Le classeur avec le bon nom s'enregistre bien dans l'emplacement designé dans mes lignes de codes par contre il s'enregistre avec les 2 premieres lignes du code que vous donnes dans les cases A1 et B1.
Je vous mets mon codes a partir du moment ou je selectionne la feuille a copié.

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
20
21
22
23
24
25
26
27
 'Copie de la feuille
 
 
    Sheets("ODB TSIA").Select
    Sheets("ODB TSIA").Copy
 
  End With
 
    'Creation Classeur ODB TSIA correspondant
 
     Dim fso, Chemin, NomFichier, FichierExiste
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    Chemin = "e:\test\" 'A toi de définir le chemin où l'enregistrer
    NomFichier = TxtMois.Value & TxtSemaine.Value
    NomFichier = NomFichier & "_" & Format(Now, "hh-mm")
    FichierExiste = IIf(fso.FileExists(NomFichier & ".xls"), True, False)
 
    If FichierExiste = True Then
        Application.Quit
    End If
 
    Workbooks.Add
    Range("A1").Select
    activeworkbooks.Paste
    ChDir Chemin
    ActiveWorkbook.SaveAs Filename:=Chemin & NomFichier, FileFormat:=xlNormal

Merci

[mercatog]

Essaies comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Dim Chemin As String, NomFichier As String
 
Chemin = "E:\test\"                                'A toi de définir le chemin où l'enregistrer
NomFichier = TxtMois.Value & TxtSemaine.Value
NomFichier = NomFichier & "_" & Format(Now, "hh-mm")
 
If Dir(Chemin & NomFichier & ".xls") = "" Then
    ThisWorkbook.Worksheets("ODB TSIA").Copy
    ActiveWorkbook.SaveAs Filename:=Chemin & NomFichier, FileFormat:=xlNormal
    ActiveWorkbook.Close
End If
End Sub

[sebastien-16600]

J'ai testé, ça marche super.

Encore merci

d'autres petits problemes liés a la programmation de mon code m'attendent (au vue de mon niveau) mais je cherche et je tatonne et si vraiment je m'enlisse je me permettrait de revenir vous demandez conseil...

bonne soirée!