Probleme / For sans Next

Version imprimable

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:

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 !! :)

19/07/2018, 11h26
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?
19/07/2018, 11h27
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
19/07/2018, 11h37
Menhir

Citation:

Envoyé par Igloobel

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

+1 :ccool:
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

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:

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:

For CopCounter = 1 To 12

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

19/07/2018, 14h51
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.

Citation:

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
19/07/2018, 15h02
waramere
Code:

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 = ?....?"
19/07/2018, 15h28
Menhir

Citation:

Envoyé par waramere

Dans ce cas présent, ai-je bien renseigné ma variable i ?

Je te le répète, tu ne peux pas l'avoir bien renseignée puisque tu ne l'as PAS DU TOUT renseignée.

Citation:

Ou devrais-je rajouter une ligne comme :
"i = ?....?"

Certainement.

J'ai l'impression que tu confonds compteur et bornes dans ton instruction For To.
Tu devrais lire ça : http://silkyroad.developpez.com/vba/boucles/

Oui mais je comprend pas pourquoi je devrais changé "12" par "i"
Code:

1 2 3 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 & ".xls")
Je veux juste que ma fonction, ouvre le fichier qui porte le nom d'une de mes valeurs dans ma colonne "F" et ainsi de suite.

Code:

mensu_wk = Workbooks.Open("F:\Partages\Commun_DRH\Taux de recouvrement\Année 2018\" & mensu & ".xls")[/

Mais je sais pas pourquoi cette ligne ne fonctionne pas. Je veux juste que la macro prennent en compte le fichier qu'il y a dans le dossier peut importe le nombre. Qu'il y en ai 12 ou 4 ou 3...

19/07/2018, 16h30
Menhir

Citation:

Envoyé par waramere

Oui mais je comprend pas pourquoi je devrais changé "12" par "i"

Moi non plus.

Citation:

Mais je sais pas pourquoi cette ligne ne fonctionne pas.

Déjà, il faudrait que tu expliques un peu ce qui se passe parce que "ne fonctionne pas", c'est plutôt vague comme description de dysfonctionnement.

Ensuite, dans VBE, mets un point d'arrêt sur la ligne mensu = ... et regarde la valeur de cette variable dans la fenêtre des variables locales.
Bref, du travail de débugage classique.

Citation:

Je veux juste que la macro prennent en compte le fichier qu'il y a dans le dossier peut importe le nombre. Qu'il y en ai 12 ou 4 ou 3...

Pour faire ça, effectivement, il va falloir faire une borne supérieure variable pour ton For To.
Mais il faut que ce soit une variable calculée. Tu ne peux pas mettre simplement une variable vide en espérant que VBA détermine sa valeur seul.
20/07/2018, 00h08
clementmarcotte

Ben, c'est vrai, tu as 2 For et un Next.

Commence par bien implanter l'indentation de ton code, pour avoir les débuts de blocs à égalité avec les fins de blocs imbriqués en retrait dans le bloc qui les contient. Quand tu auras trouvé l'endroit où il faut un next, tu pourras l'ajouter.