Débutant : problème de fonction if then else

**javier76** · 07/12/2017, 19h54

Bonjour,

Désolé de vous dérangez mais je bloque sur la formule IF, je veux lui faire comprendre que quand elle selectionne le fichier xlsm en cours d'éxecution elle doit passer au prochain fichier

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
 
Do While myFile <> ""
    Cells(c, 1) = myFile
    myFile = Dir()
    Cells(c, 5) = aa
    Cells(c, 6) = bonbon
    Worksheets("Feuil1").Range("B" & c).FormulaLocal = "=STXT(A" & c & ";1;9)"
    Worksheets("Feuil1").Range("c" & c).FormulaLocal = "=STXT(A" & c & ";10;20)"
 
    bonbon = myFile
 
If TypeName(bonbon) = ThisWorkbook.Name Then
GoTo boz
 
Else
    Worksheets("Feuil1").Range("d" & c).FormulaLocal = "='" & ThisWorkbook.Path & "\" & bonbon & "'!total"
 
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=myPath & "\" & myFile
    ActiveWorkbook.Sheets("Feuil1").Range("A1") = ThisWorkbook.Sheets("Feuil1").Range("A1")
 
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End If
 
boz:
 
    c = c + 1
 
Loop

Pardon si je ne suis pas clair mais je débute ... et si il faut je peux poster le code en entier si c'est plus clair. Et j'imagine que le code n'est vraiment pas parfait!

Merci par avance

**unparia** · 07/12/2017, 23h10

Bonjour
Je me refuse expressément quant à moi à t'aider tant que tu n'auras pas corrigé les termes "la fonction If", que je ne peux accepter en dépit de la meilleure volonté du monde.
Une fonction est une procédure qui reçoit (éventuellement) des paramètres, exécute des instructions et retourne une valeur ou un objet. If ne retourne rien et n'est même pas une procédure (routine).
Tu me trouveras peut-être intolérant. L'acquisition de ces notions est primordiale.