Discussion :

[waramere]

Bonjour, amis développeurs.

Je rencontre aujourd'hui un problème dans mon code.

En effet, une erreur survient quand je lance ma maccro : "For sans next"

Quelqu'un pourrait-il m'éclairer ?

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
49
50
51
52
53
Sub kkdu74()
 
Dim wkb As Workbook
 
Dim CopCounter As Integer
CopCounter = 12
Dim kkCounter As Integer
kkCounter = 28
 
 
    For CopCounter = 1 To 12
    mensu = ThisWorkbook.Sheets(3).Range("F" & CopCounter).Value
    mensu_wk = Workbooks.Open("F:\Partages\Commun_DRH\Taux de recouvrement\Année 2018\" & mensu)
 
    For kkCounter = 1 To 28
    pole = ThisWorkbook.Sheets(3).Range("G" & kkCounter).Value
 
    DirFile = ("F:\Partages\Commun_DRH\Taux de recouvrement\Evolution\2018\" & pole)
    If Dir(DirFile) = "" Then
    Set wkb = Workbooks.Add
    ActiveWorkbook.SaveAs Filename = pole & ".xls"
    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
         .Interior.Color = RGB(174, 240, 194)
         With .Font
             .Size = 12
             .name = "Arial"
             .Bold = False
         End With
     End With
     Else
     Workbooks.Open ("F:\Partages\Commun_DRH\Taux de recouvrement\Evolution\2018\" & pole)
     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
         .Interior.Color = RGB(174, 240, 194)
         With .Font
             .Size = 12
             .name = "Arial"
             .Bold = False
         End With
      End With
 
        End If
 
    Next
 
End Sub

Merci beaucoup !!

[pijaku]

Bonjour,

Lignes 11 et 15 tu inities deux boucles For ...
Ligne 51 tu en fermes une par l'instruction Next.
Quid de la seconde?
Quand décides tu de la fermer?

[Igloobel]

Bonjour,

Ben oui tu as 2 For et un seul Next donc c'est normal

indente ton code un peu mieux et tu verras ou tu dois mettre ton second Next

[Menhir]

indente ton code un peu mieux et tu verras ou tu dois mettre ton second Next

+1
Je rajouterai qu'il est conseillé (même si ce n'est pas obligatoire) d'indiquer dans le Next le nom de la variable compteur du For To, histoire, justement, de ne pas s'y perdre.
Lire ça : https://msdn.microsoft.com/fr-fr/VBA...next-statement

[waramere]

Que suis-je bête ....
Je pensais que 1 "Next" pouvais s'appliquer à deux "For".
Merci de votre réponse.

De plus, j'aimerai savoir si je dois déclarer une variable pour cette ligne de code avec le "For" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Dim wkb As Workbook
Dim CopCounter As Integer
  CopCounter = 12
Dim kkCounter As Integer
  kkCounter = 28
Dim mensu As String
Dim mensu_wk As Workbook
 
 
 For CopCounter = 1 To i + 1
    mensu = ThisWorkbook.Sheets(3).Range("F" & CopCounter).Value
    mensu_wk = Workbooks.Open("F:\Partages\Commun_DRH\Taux de recouvrement\Année 2018\" & mensu & ".xls")

Voilà ma question : J'aimerai que cette partie de mon code, si c'est possible, ouvre le fichier qui à pour nom "mensu" SSI il existe. J'ai commencé avec un

Code :

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

For CopCounter = 1 To 12

Les fichiers seront bien crée au fur et à mesure.

[Menhir]

Je ne comprends pas pourquoi tu renseignes CopCounter alors que tu n'utilises pas sa valeur avant qu'elle soit modifiée par le For To.

Par contre, tu ne déclares pas la variable i et tu ne la renseignes pas non plus.
Donc ton For To risque de ne pas fonctionner comme tu le souhaites.

Voilà ma question : J'aimerai que cette partie de mon code, si c'est possible, ouvre le fichier qui à pour nom "mensu" SSI il existe.

Tu peux vérifier l'existence d'un fichier avec la fonction Dir().
https://msdn.microsoft.com/fr-fr/VBA...s/dir-function

[waramere]

Code :

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

1
2
3
4
5
Dim i As Integer
 
 
 
  For CopCounter = 1 To i + 1

Dans ce cas présent, ai-je bien renseigné ma variable i ?
Ou devrais-je rajouter une ligne comme :
"i = ?....?"