Bonjour tout le monde !
J'ai besoin de vos lumières car depuis peu mon code ne fonctionne plus ...
J'ai un petit formulaire qui me permet de sélectionner un fichier excel et d'importer les données d'une feuille selon des règles de gestion précises.
Jusqu'à présent cela fonctionnait parfaitement et je viens de remarquer que mon code ne compile plus !
En fait, en regardant il s'avère que dans le gestionnaire de compléments, ou j'avais sélectionné les compléments office et excel, et bien ma liste est vide ...
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 Public Function OUVRIR_FENETRE_FICHIER() Dim fDialog As Office.FileDialog Dim varFile As Variant Dim dbs As Object Dim prp As Object Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .AllowMultiSelect = False .Title = "Sélection fichier à importer" .Filters.Clear .Filters.Add "All Files", "*.*" ' Show the dialog box. If the .Show method returns True, the ' user picked at least one file. If the .Show method returns ' False, the user clicked Cancel. If .Show = True Then For Each varFile In .SelectedItems 'Formulaire!FichierSélectionné = varFile OUVRIR_FENETRE_FICHIER = varFile Next End If End With End Function
Je sais pas si cela vient d'une mise à jour ou autre, mais du coup, tous les composants externes que je tente d'utiliser ne sont pas reconnus.
J'ai tenté une réparation de l'installation de office2013 mais cela n'a rien changé.
Est-ce que quelqu'un saurait pourquoi je n'ai plus acces aux compléments et comment réparer cela ??
Je suis bloquée et du coup je ne peux plus faire fonctionner mon appli ... snif
Merci d'avance pour vos lumières.
Gaëlle
Partager