Discussion :

[waramere]

Bonjour tous le monde,

J'espère que vous avez bien fêter la victoire de la France ! (y)

J'ai presque finis ma maccro sur excel, cependant, il me manque une étape et je ne sais pas comment l'écrire en VBA.
Voici mon code :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Direction222()

    Dim wkb As Workbook
    Dim shCounter As Integer
    Dim name As String
    Dim val As Range
        
    For shCounter = 4 To ThisWorkbook.Sheets.Count  ' Feuille 4 à fin
        name = ThisWorkbook.Sheets(3).Range("E" & shCounter).Value  ' Prend les valeurs colonne E sheet 3
        ThisWorkbook.Worksheets(shCounter).Range("O1:Q28").Copy
        If name <> "" Then
            Set wkb = Workbooks.Add
            With Range("A1:C28") 'Début de l'instruction avec : WITH
            ActiveSheet.Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         .Borders.Value = 1
         With .Font
             .Size = 12
             .name = "Arial Black"
             .Bold = False
             .ColorIndex = 46
         End With
     End With
            Columns("A:A").EntireColumn.AutoFit
            wkb.SaveAs "F:\Partages\Commun_DRH\Taux de recouvrement\Evolution\2018\" & name & ".xls"
            Sheets.Add After:=Worksheets(Worksheets.Count), Count:=9
            Sheets(1).name = "31012018"
            Sheets(2).name = "28022018"
            Sheets(3).name = "31032018"
            Sheets(4).name = "30042018"
            Sheets(5).name = "31052018"
            Sheets(6).name = "30062018"
            Sheets(7).name = "31072018"
            Sheets(8).name = "31082018"
            Sheets(9).name = "30092018"
            Sheets(10).name = "31102018"
            Sheets(11).name = "30112018"
            Sheets(12).name = "31122018"
            wkb.Close savechanges:=True
        
     '''''   Else: Sheets(Count).name = Workbook("Base").Sheets(1)
     ''''   Workbook.Sheets(shCounter).Copy
     ''''   wkb
        
        End If
        
    Next

Le code que je souhaiterai écrire pour qu'il soit finit est

Code :

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

1
2
  Else ' Si le fichier est déjà créer, alors, ouvrir le fichier concerné dans "F:Partages/.../.." puis, si la sheet 1 du fichier excel
             ' "Base" est égal au nom d'une sheet du fichier créer alors ...

Merci pour votre aide !

Très cordialement

[Igloobel]

Bonjour,

Alors pour tester si ton fichier existe ou pas tu peux utiliser la fonction DIR (a ne pas confondre avec la commande du DOS) ou utiliser la méthode décrite ci-dessous

http://warin.developpez.com/access/fichiers/#LI-D-1

sinon Perso je suis pas Fan de mettre un nom de feuille identique à un nom de classeur on augmente, dans ce cas, le risque de plantage du fichier un jour ...

Ou alors c'est que j'ai pas tout compris

A+

[waramere]

J'essaie de placer dans mon code quelque chose comme ça, mais je n'y comprend pas grand chose...

Code :

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

1
2
3
4
5
6
    Else: wkb.Sheets(1).name = Workbook("base").Sheets(1).name
           Workbook("base").Worksheets(shCounter).Range("O1:Q28").Copy
          wkb.Select
          ActiveSheet = base.Sheets(1).name
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Il y a un problème au niveau de mon Workbook("base") et également ActiveSheet = base.Sheets(1).name