Bonjour,

Je suis en train de transcrire un code VBA en VBS (langage jamais utilisé) et j'éprouve quelques difficultés.(Le code VBA fonctionnait sous Excel).
Voilà un bout de mon code, c'est à la dernière ligne que ça plante avec l'erreur: "Instruction attendue"

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
Function MEF_cadrage(Classeur_src, nom_feuille_src, Classeur_dest, pl_data, pc_data)
 
    Dim nom_feuille_dest
    Dim Feuille_src , Feuille_dest 
    Dim dl , dc , dl_data 
    Dim evolCA , evolVol , evolClient , evolArt 
    Dim mois , annee 
    Dim bool 
 
    MEF_cadrage = False
    Set Feuille_src = Classeur_src.Worksheets(nom_feuille_src)
    Set Feuille_dest = Classeur_dest.Worksheets(Classeur_dest.Worksheets.Count)
    nom_feuille_dest = Feuille_dest.Name
    bool = False
 
    'Cadrage des données de la feuille destination. Normalement 1 ligne d'entête et 12 + n° mois en cours lignes de données
    dl = indl_last_data(Feuille_dest, 1)
    dc = indc_last_data(Feuille_dest, 1)
    dl_data = indl_last_data(Feuille_dest, 3)
 
    'Contrôle du nombre de lignes de données
    If (dl_data < 2) Then
        MsgBox "Pas de données dans le fichier " & Classeur_dest.Name, vbExclamation
        Exit Function
    End If
    If (dl < dl_data) Then
        MsgBox "Structure du fichier incorrecte: " & Classeur_dest.Name, vbExclamation
        Exit Function
    End If
 
    'Récupération de la mise en forme de la feuille source et copie sur un onglet de la feuille destination
    Classeur_dest.Worksheets.Add After:=Classeur_dest.Worksheets(Classeur_dest.Worksheets.Count) 'PLANTE ICI
'etc.... etc...
Désolé de poster ça un peu brutalement mais là je bloque vraiment.

Merci d'avance.