salut à tous!
bon voila, j'ai le code suivant:
C'est un code issu de la FAQ et qui permet d'exporter ou d'importer des données d'un classeur excel.
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
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
Partager