salut à tous!

bon voila, j'ai le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Private Sub Command1_Click()

    Dim test As String
    Dim SourceFile As String
    Dim DestinationFile As String
    Dim xls As Excel.Workbook  ' déclaration d'une variable objet de type classeur Excel
  
    
    
    Dim var As String
    
    
    SourceFile = LitDansFichierIni("Directory", "Source", ".\config.ini", 100)
    DestinationFile = LitDansFichierIni("Directory", "Destination", ".\config.ini", 100)

Set xls = GetObject(SourceFile) 'instanciation de l'objet (qui devient ici le fichier excel indiqué)

' export de données
    With xls
        .Worksheets(1).Range("B6").Value = "1"
        .Worksheets(1).Range("B18").Value = "2"
        .Worksheets(1).Range("A18").Value = "3"
    End With

    ' worksheets(1) correspond à la feuille 1 du fichier Excel
    ' pour spécifier le nom d'une feuille mettre à la place sheets("nom de la feuille")

    ' import de données
    
    var = xls.Worksheets(1).Range("C2").Value

  Set xls = Nothing

End Sub
C'est un code issu de la FAQ et qui permet d'exporter ou d'importer des données d'un classeur excel.

Pour qu'il fonctionne il faut ajouter en tant que référence "Microsoft Excel 10.0 ...".

Ceci dit, j'ai un soucis avec ce code, puisque lorsque la méthode est appelée, j'ai un message d'erreur qui s'affiche :"Nom de fichier ou de classe non trouvé pendant une opération automation" et ca fait planter le code a la ligne en rouge.

je précise qu'au tout début, le code fonctionnait parfaitement et qu'en l'espace de 2 min ou je n'ai pas souvenir d'avoir touché à quoi que ce soit, le code ne fonctionnait plus

si vous pouviez m'aider ca serait sympa

merci