Convertir code VBA vers WebDev
Bonjour à tous,
Je suis débutant en terme de développement sous WebDev, j'ai quelques notions de VBA. J'aimerai que quelqu'un puisse m'aider à convertir un code VBA en language WebDev.
Voici le code VBA en question:
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
| Private Function CreationDossier(sDossier) As Long 'Fonction pour créer Dossier de Sauvergarde
Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function
Sub UserF10() 'Affiche la fenêtre de sauvergarde
If MsgBox("Etes-vous certain de vouloir sauvegarder ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
Sauvegarde 'Si bouton Oui est préssé alors on appelle la fct sauvergarde
End If
End Sub
Sub Sauvegarde()
On Error GoTo CreerDossier 'Si il y a une erreur alors directement à la ligne CreerDossier
Dim sDossier As String
sDossier = "C:\Documents and Settings\TON PROFIL\Mes documents\Enregistrer\" & Format(Date, "yyyy") & "\" & Format(Date, "mmmm")
Fichier = "LE NOM DE TON FICHIER" & Format(Date, "dd-mm-yyyy")
CreerDossier:
If Err.Number = 1004 Then 'Si dossier pas créer
CreationDossier sDossier 'On le créer en appelant la fct "CreationDossier"
End If
Application.DisplayAlerts = False
ThisWorkbook.SaveAs sDossier & "\" & Fichier & ".xls " 'Sauvergarde du dossier
Application.DisplayAlerts = True
MsgBox ("Votre fichier a bien été enregistré") 'Fenêtre d'information
Exit Sub
End Sub |
Et voici le code que j'utilise sous Webdev :
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
//Permet de récupérer le numéro de la ligne sélectionnée dans la (TABLE_REQ_Filtre_Article)
nIndice est un entier
nIndice = TableSelect(TABLE_REQ_Liste_Item)
//Choix_Item est égal à la valeur de l'ITEM de la ligne sélectionnée
Choix_Item est une chaîne
Choix_Item = TABLE_REQ_Liste_Item[nIndice][1]
//Choix_Désignation est égal à la valeur de l'ITEM de la ligne sélectionnée
Choix_Désignation est une chaîne
Choix_Désignation = TABLE_REQ_Liste_Item[nIndice][2]
//Choix_Famille est égal à la valeur de l'ITEM de la ligne sélectionnée
Choix_Famille est une chaîne
Choix_Famille = TABLE_REQ_Liste_Item[nIndice][3]
//Choix_Cci est égal à la valeur de l'ITEM de la ligne sélectionnée
Choix_Cci est une chaîne
Choix_Cci = TABLE_REQ_Liste_Item[nIndice][4]
//On déclare l'objet xl qui permet de piloter Excel
xl est un objet Automation dynamique
xl = allouer un objet Automation "Excel.Application"
//On rend visible l'application Excel
xl>>visible = True
//Désactive l'affichage écran
xl>>ScreenUpdating = False
//Annule toutes les alertes Excel
xl>>DisplayAlerts = False
//On ouvre le classeur "Matrice.xlsx"
xl>>workbooks>>open("C:\Mes Sites\Portails NRC\PORTAILS_NRC_WEB\DATA\Matrice.xlsx")
//On sélectionne la feuille "Exportation"
xl>>Sheets("Exportation")>>Select()
// Modification de la feuille
i est un entier = 4 //Ligne 4 correspondant à l'insertion des données de la Table
xl>>range("B"+i)>>Value = Choix_Item
xl>>range("C"+i)>>Value = Choix_Désignation
xl>>range("D"+i)>>Value = Choix_Famille
xl>>range("E"+i)>>Value = Choix_Cci
xl>>range("F"+i)>>Value = SAI_Dépenses_d_indus
xl>>range("G"+i)>>Value = SAI_Coût_générique
xl>>range("H"+i)>>Value = SAI_Coût_estimé
j est une chaîne = "C" //Colonne correspondant à l'insertion des données Tx horaires,Coef,HIU,Jalons,Coûts NRC Jalons
xl>>Cells(8, j)>>Value = SAI_Taux_Horaire
xl>>Cells(10, j)>>Value = SAI_Coef_Apprent
xl>>Cells(12, j)>>Value = SAI_HIU
xl>>Cells(16, j)>>Value = SAI_Jalon_RCS2
xl>>Cells(17, j)>>Value = SAI_Jalon_RCS3
xl>>Cells(18, j)>>Value = SAI_Jalon_RCS4
xl>>Cells(19, j)>>Value = SAI_Jalon_RCS5
xl>>Cells(20, j)>>Value = SAI_Jalon_FETT
xl>>Cells(21, j)>>Value = SAI_Jalon_LOT1
xl>>Cells(23, j)>>Value = SAI_Coût_NRC_RCS2
xl>>Cells(24, j)>>Value = SAI_Coût_NRC_RCS3
xl>>Cells(25, j)>>Value = SAI_Coût_NRC_RCS4
xl>>Cells(26, j)>>Value = SAI_Coût_NRC_RCS5
xl>>Cells(27, j)>>Value = SAI_Coût_NRC_FETT
xl>>Cells(28, j)>>Value = SAI_Coût_NRC_LOT1
k est une chaîne = "G" //Colonne correspondant à l'insertion des données Coûts NRC Total et Total heures Jalons
xl>>Cells(16, k)>>Value = SAI_Coût_NRC_Total
xl>>Cells(18, k)>>Value = SAI_Total_Heures_Jalons
//Restaure l'affichage des alertes
xl>>DisplayAlerts = True
//Active l'affichage écran
xl>>ScreenUpdating = True |
Comme vous avez pu le comprendre le code VBA me permet d'enregistrer un fichier sous un répertoire, et mon code WebDev permet de manipuler un fichier xlsx ("Matrice.xlsx"). J'aimerai qu'à la fin de mon code WebDev s’exécute le code VBA pour proposer à l'utilisateur d'enregistrer son fichier.
Merci d'avance pour votre aide.
