Creer un fichier dans un dossier avec des variables d'un autre fichier

Version imprimable

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:

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

Salut, qqs utilitaires ?

Code:

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

16/10/2017, 09h32
Marago

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