Tous les billets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ImportData()

        'Affichage
    Application.ScreenUpdating = False
    
        'Definition variables
    Dim Db As DAO.Database
    Dim i, j As Integer, DernLigne As Integer
    Dim myGroup As String, MyDate As String
    Dim mySCN As String, myValue As Double
    Dim myCurr As String, req As String
    
        'Definition de la base
    Set Db = DAO.OpenDatabase(Worksheets("param").Range("Database"),

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
     ThisWorkbook.FollowHyperlink Address:="E:\VBAProjectCACIB\test.htm", NewWindow:=True
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    'fonction qui trouve la ligne du debut et fin selon critere dans feuille delta
Function getP_Ligne(ByVal criteria As Variant, ByVal xlsheet As Worksheet)
        'definition des variables
    Dim i As Long
    Dim NbL: Dim res(2)
        'colone des currency
    Const col = 4
    With xlsheet
        NbL = .UsedRange.Rows.Count
        'recherche la premiere ligne
        For i = 1 To NbL
            If .Cells(1, col).Offset(i

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub GraphPnL(ByVal xlsheet As Worksheet)
        'definitions variables
    Dim LastCell As Long
    Dim MyRange As Range, MyRange2 As Range
    Dim MyRange3 As Range, MyRange4 As Range
    Dim MyRange5 As Range
        'Mise à Jour du graphique
    With xlsheet
            'definition des ranges
        LastCell = .Range("A9").End(xlDown).Row
        Set MyRange = .Range("A10:A" & LastCell)

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    'integre les adresses de mon email
Sub creationDB()
    Dim Db As DAO.database
    Dim rcset As DAO.recordset
    Dim objNamespace As NameSpace
        'espace email object
    Set objNamespace = GetNamespace("Mapi")
        'connection a l'email
    Set MyList = objNamespace.GetDefaultFolder(10)
    Set AllContacts = MyList.Items
        'database
    Set Db = Engine.OpenDatabase("E:\CarnetAdresse.accdb",

...