Discussion :

[Little-Freud]

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

[SfJ5Rpw8]

as tu vérifié le contenu de la variable SourceFile ?

[Little-Freud]

C'est une variable qui contient le chemin d'acces à mon fichier excel...c'est tiré d'un fichier .ini

mais pourtant je n'ai pas du tout touché à cette variable et j'ai toujours effectué mes tests avec

[SfJ5Rpw8]

c'est bien ce que j'avais compris ... mais actuellement ta variable contient-elle le bon nom de fichier ?? le fichier .ini n'as pas été modifié?

[Little-Freud]

pourtant oui...mon .ini contient bien le bon chemin d'accès avec le bon nom de fichier xls...c'est bizarre quand même...

ce qui est bizarre, c'est que ca avait marché une fois, et des que j'avais relancé Microsoft Visual Basic, ca avait planté apres.

[SfJ5Rpw8]

excuse moi d'insister, mais as-tu vérifier le contenu de la variable ?

[Little-Freud]

je viens de le refaire, et a ma surprise la plus grande, le contenu etait "100", soit la valeur par défaut. Donc voila la cause de mon pb

merci d'avoir tant insister, car je pensais que ca fonctionnait tjs aussi bien qu'avant le contenu de cette variable.

J'ai pourtant pas changer de dossiers etc..et ca a planté d'un coup, c'est quand même étrange non?