Transcription d'un code vba Excel vers vbs
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:
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.
