Discussion :

[Marago]

Bonjour à tous,
Je débute j'ai tout un tas de questions, je me suis promené ici et là , mais soyez indulgeant...
je ne dois pas etre loin de la solution sur le point en titre mais c'est pas encore ça.

je veux copier juste un ou 2 onglet de mon fichier sur un nouveau classeur que je dois créer et dans un dossier que je crée aussi ...

Bon désolé je mets le code commme ça (je vois pas ou chercher la boite pour le mettre
J'ai préalablement crééer mon dossier (ça, ça fonctionne ;-)
bon maintenant le fichier:

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
Sub creer_fiche()
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
       Dim dossier As String, fiche As String
dossier = Cells(2, 2)
fiche = Cells(2, 3)
    ActiveWorkbook.SaveAs Filename:= _
        "\\toto\titi_DossierElec\" & dossier& "\" & fiche& ."xlsm", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

[kiki29]

Salut, qqs utilitaires ?

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
28
 
Option Explicit
 
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, _
                                              ByVal pszPath As String, _
                                              ByVal lngsec As Long) As Long
 
Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function
 
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const sCaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(sCaracInterdits)
        If InStr(sChaine, Mid$(sCaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function

[Marago]

bonjour,
Pourquoi mettre "private" devant toute ces fonctions?
merci