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 = ?....?"

[Menhir]

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.

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/

[waramere]

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

Code :

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

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 :

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

    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...

[Menhir]

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

Moi non plus.

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.

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.

[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.