Conversion live DKK/EUR, comment faire?
l
Bonjour à tous,
Je cherche à convertir en live de la couronne danoise en euros. Comment faire?
Voici mon code:
Sub Fill_in_form()
Dim starting_date_internship As String
Dim interval_type As String
Dim ending_date_internship As Date
Dim number_of_months_to_add As Integer
Dim objectives_and_missions_internship As String
Dim registered_company_name As String
Dim commercial_company_name As String
Dim VATno_number_company As Variant
Dim contact_number_company As Variant
Dim department_internship As String
Dim first_name_supervisor As String
Dim last_name_supervisor As String
Dim Gender_OptionButton1 As OptionButton
Dim gender_supervisor As String
Dim job_title_supervisor As String
Dim email_adress_supervisor As String
Dim professional_phone_number_supervisor As Variant
Dim frequency_of_pay As String
Do
starting_date_internship = InputBox("2/35: Enter starting date internship [DD/MM/YYYY]")
If Not IsDate(starting_date_internship) Then MsgBox "Enter a valid format for starting date internship DD/MM/YYYY"
Loop While Not IsDate(starting_date_internship)
Range("B2") = starting_date_internship
interval_type = "m"
number_of_months_to_add = InputBox("3/35: Enter number of months for the internship")
Range("B3") = number_of_months_to_add
ending_date_internship = DateAdd(interval_type, number_of_months_to_add, starting_date_internship)
Range("B4") = ending_date_internship
objectives_and_missions_internship = InputBox("5/35: Enter objectives and missions during internship")
Range("B5") = objectives_and_missions_internship
registered_company_name = InputBox("8/35: Enter registered trade name of the company")
Range("B8") = registered_company_name
commercial_company_name = InputBox("9/35: Enter commercial name of the company")
Range("B9") = commercial_company_name
Do
VATno_number_company = InputBox("10/35: Please enter the VATno number of the company [Format 8 digits: DK99999999]")
If Not Len(VATno_number_company) = 10 Then MsgBox VATno_number_company & " is not a 10 digit number"
Loop Until Len(VATno_number_company) = 10
Range("B10") = VATno_number_company
contact_number_company = InputBox("15/35: Enter contact number of the company[+ 45 xx xx xx xx]")
Range("B15") = contact_number_company
department_internship = InputBox("17/35: Enter department of internship")
Range("B18") = title_internship_supervisor
title_internship_supervisor = InputBox("18/35: Enter title of supervisor [Mr. or Mrs.]")
Range("B19") = first_name_supervisor
first_name_supervisor = InputBox("19/35: Enter first name of supervisor")
Range("B19") = first_name_supervisor
last_name_supervisor = InputBox("20/35: Enter last name name of supervisor")
Range("B20") = last_name_supervisor
If title_internship_supervisor = "Mr." Then gender_supervisor = "M" Else gender_supervisor = "F"
Range("B21") = gender_supervisor
job_title_supervisor = InputBox("22/35: Enter job title of supervisor")
Range("B22") = job_title_supervisor
email_adress_supervisor = InputBox("23/35: Enter email adress of supervisor")
Range("B23") = email_adress_supervisor
professional_phone_number_supervisor = InputBox("24/35: Enter professionnal phone number of supervisor [+ 45 xx xx xx xx]")
Range("B24") = professional_phone_number_supervisor
frequency_of_pay = InputBox("25/35: Enter frequency of pay in local currency [daily, monthly or one-off payment]")
Range("B25") = frequency_of_pay
amount_of_pay_in_local_currency = InputBox("26/35: Enter amount of pay in local currency")
Select Case frequency_of_pay
Case "daily"
amount_of_pay_in_local_currency = amount_of_pay_in_local_currency * 5 * 24
Case "monthly"
amount_of_pay_in_local_currency = amount_of_pay_in_local_currency * 24
Case Else
'Otherwise amount_of_pay_in_local_currency = amount_of_pay_in_local_currency
End Select
Range("B26") = amount_of_pay_in_local_currency & "DKK"
End Sub
Bonjour Lulu
Je ne vois pas dans ce code une transformation
Par live qu'entendez vous?
Prise d'information sur le net?
ou saisie par l'opérateur?
merci
l
Je cherche une conversion live en fonction du taux de change de la bourse.