Discussion :

[phal2ip]

Bonsoir à tous
Voilà j'ai un petit souci, je fais un programme sur Excel dans lequel existe un certain nombre d'onglet.
Je voudrais que lors du choix de l'utilisateur, il crée un nouveau fichier (ex01.xls par exemple) et qu'il y copie le 1er onglet de mon fichier puis qu'il referme ce fichier. Puis il ouvre un 2ème fichier (ex02.xls) et qu'il y copie le 2ème onglet puis le referme et ainsi de suite pour le nombre d'onglet.
Voici le code que j'ai fait mais lors du filecopie il me mets constemment un message d'erruer "fichier déjà ouvert" :

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
For i = 1 To 30
        ligne = i + 6
        Sheets("onglet").Visible = True
        Nom = Sheets("onglet").Range("A" & ligne).Value
        If Nom = "" Then
            Exit For
        End If
        Sheets(Nom).Select
        Cells.Find(What:="Le Directeur d'Etablissement,", After:=ActiveCell, _
            LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
        Column = Selection.Column
        Row = Selection.Row
        Row = Row + 1
        Cells(Row, Column) = Direct.Value
    Cells.Select
    Selection.Copy
    Dim SourceFiles, DestFiles
    SourceFiles = "C:\Documents and Settings\710915v\Bureau\Programmes\A faire\ex01.xls"
    DestFiles = astreint & "\AS01.xls"
    Open DestFiles For Output As #i
    FileCopy SourceFiles, DestFiles
    Application.CutCopyMode = False
    Next i

J'espère avoir été assez explicite
Merci pour votre aide

[JackOuYA]

bonsoir ;

oups, ton code fait peur, il va falloir que tu lise plusieurs tuto ...

tu nous à mélanger des copie d'onglet avec des copie de fichiers des ouvertures de fichiers , des copie de sélection par le presse papier ...


tiens pour commencer :

.. il crée un nouveau fichier (ex01.xls par exemple) et qu'il y copie le 1er onglet de mon fichier puis qu'il referme ce fichier...

Code :

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

1
2
3
4
5
6
Sub Macro1()
ThisWorkbook.Sheets(1).Copy
ActiveWorkbook.SaveAs "Ex01"
ActiveWorkbook.Close
 
End Sub

[phal2ip]

Oui désolé je sais cela fait un peu peur mais pour etre plus explicite, j'ai mis la liste de noms de tous les onglets dans l'onglet "onglet"¨
Puis je sélectionne le 1er onglet que je voudrais copier dans un nouveau fichier ex01.xls et ainsi de suite avec les autres onglet...
Est ce un peu plus clair???