Discussion :

[Sierra]

Bonjour,

Après avoir recherché des solutions dans ce forum à propos du message d'erreur de la DLL pas chargé dans XL-2013, je crois avoir compris la raison. J'ai travaillé mon code sur une version XL-2016 après l'avoir mis en place sur une version XL-2013 et je crois que le message apparait depuis mon retour à la version XL-2013.

Quelle est la solution alors ? Partir sur un fichier vierge en recopiant mon code et les feuilles existantes dedans (ça va faire du boulot ) ?

Merci pour vos lumières

[Jean-Philippe André]

Salut,

j'imagine que tu parles des versions Office de tes fichiers qui planteraient

La solution qui est preconisee ici est de passer tous les elements en Object et de t'affranchir des librairies.

ftp://ftp-developpez.com/heureuxoli/...ba06/vba06.pdf

[patricktoulon]

Bonjour
il te faut passer en late binding( declaration tardives)

exemple
early binding

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
set IE as new internet 
'ou bien encore directement 
dim IE as new internet

et late binding

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim IE as object
set ie=createobject("internetexplorer.application")

pourquoi/parce que

visiblement createobject("blablablabla") prend la librairie dispo dans le system dans le quel le code est exécuté sans se soucier la version de celle ci

faut il bien sur avoir la librairie désignée dans son system

c'est assez récurrent ce genre d'erreur inexplicable avec excel 2016 tu n'est pas le premier et sans doute pas le dernier

[Sierra]

C'est la référence à Early Binding et Late Binding je suppose. Je vais lire ça plus attentivement.

Nos messages se sont croisés.
Si je comprends bien qu'une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Wbk as Workbook
Set Wbk = Workbooks.Open(Fichier)

devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Wbk as Object
Set Wbk = CreateObject("Excel.Application")
Wbk.Open(Fichier)

Je me perds un peu du coup à le traduire...

[Sierra]

Merci pour votre aide.
Je me suis documenté au sujet des deux notions et me suis aperçu les avoir côtoyées dans le passé sans m'apercevoir de leur portée. Et je les avais donc oubliées par la suite.

Je vais donc essayer de réécrire la partie du code qui coince pour l'instant. Comme le code travaille avec des objets dans la même application, j'ai vu que la référence à l'application est implicite. Du coup, j'hésite sur la façon d'initialiser mes objets pour ouvrir un classeur Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Wbk as Excel.Application
Set Wbk = CreateObject("Excel.Workbook")
Wbk.open(Fichier)

Est-ce qu'on peut me confirmer que c'est correct ?

[Jean-Philippe André]

Salut,

Pas exactement, tu ne dois utiliser que des variables de type Object pour celles qui ne seront pas disponibles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim xlApp As Object
Dim Wbk as Object
Set xlApp = CreateObject("Excel.Application")
Set Wbk = Xlapp.Workbooks.open(Fichier)

[Sierra]

Merci, c'est plus clair maintenant.