1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| ' Ouverture du fichier par l'utilisateur '''''''''''''''''''''''''''''
Dim strFichier As String
ChDrive ("C:")
strFichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If (strFichier <> "") Then
If (strFichier <> "Faux") Then
MsgBox strFichier
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Affectation des feuilles et des fichiers ''''''''''''''''''''''''''''
Dim appXl As Excel.Application
Set appXl = CreateObject("Excel.Application")
Set wb = appXl.Workbooks.Open(strFichier)
appXl.Visible = False
Set twb = Workbooks("PROGRAMME USVALUE.xls")
Set w3b = wb.Worksheets("3b Stocks")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' |
Partager