Erreur VBA version anglaise

Bonjour,
Nous venons de passer en version 365 et certains ordinateurs ont OFFICE en Anglais.
Dans ce cas là, certaines macros ne fonctionnent plus sur ces ordis, alors qu'elles fonctionnent très bien sur OFFICE en français.
J'ai notamment une erreur lorsque je veux selectionner une feuille ou un fichier avec ce code:

Code:

---

1 2	Workbooks("_HISTO.xlsm").Activate Sheets("Datas").Activate

---

J'ai essayé plusieurs chose mais rien ne fonctionne.

Nous avons aussi enregistré un macro avec Excel, et il n'arrive pas à relire le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Macro3() ' ' Macro3 Macro ' Range("J2658").Select ActiveCell.FormulaR1C1 = "" Range("J2648").Select ActiveCell.FormulaR1C1 = "9849849" Range("J2649").Select Sheets("Datas").Select Range("E1:G11").Select Selection.Copy Range("K23").Select ActiveSheet.Paste Sheets("ETUDES").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "10101" Range("J2650").Select ActiveCell.FormulaR1C1 = "1010" Range("H2650").Select End Sub

---

Voici l'erreur qu'il me retourne:

Run-time error '-2147319784 (800280 18)':

Method 'Select' of object 'Range' failed

Pouvez-vous m'aider à comprendre SVP ?

8-)

Salutations

les instructions "Activate" et "Select" sont éviter le plus possible.

Au lieu de :

Code:

---

1 2	Workbooks("_HISTO.xlsm").Activate Sheets("Datas").Activate

---

Il vaut mieux écrire :

Code:

---

1 2 3 4

With Workbooks("_HISTO.xlsm").Sheets("Datas") 'mettez vos instructions ici 'tel que: .Range("C23") = xyz, ou .Cells(23,3) = xyz, ou .[C23]=xyz, par exemple End With

---

Merci Belga16 pour ta réponse.
Mais ça n'explique toujour pas pourquoi Excel n'arrive pas à relire un code qu'il génère lui-même dans Office365(EN) :calim2:

Toutefois je n'arrive pa à faire fonctionner ma fonction :weird:
J'utilise un Fonction pour charger les Listbox ou Combo dans une userform et ça me plante si j'utilise With Sheets() si la feuille n'est pas activée alors qu'avec le sheets().activate, ça fonctionne.

Voici mon code:

Code:

---

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

Function Chargmt(Feuille_ As String, Ligne_ As String, Colonne_ As String, _ Valdeb As String, Valfin As String, List_box_ As Control) As String   'Fonction de chargement des Combobox ou listbox 'avec recherche de valeur de debut "Valdeb" et de fin "Valfin"     With Sheets(Feuille_) Kas0 = Colonne_ + CStr(Ligne_)   Do Until Range(Kas0).Text = Valdeb Ligne_ = Ligne_ + 1 Kas0 = Colonne_ + CStr(Ligne_) Loop   Do Until Range(Kas0).Text = Valfin Ligne_ = Ligne_ + 1 Kas0 = Colonne_ + CStr(Ligne_) If Range(Kas0).Text = Valfin Then Exit Do List_box_.AddItem Range(Kas0).Text   Loop End With   End Function

---

Vous pouvez toujours poster copie anonymisée de votre fichier pour y voir de plus près !

Citation:

---

Envoyé par Belga16

Vous pouvez toujours poster copie anonymisée de votre fichier pour y voir de plus près !

---

Bonjour, voici un exemplaire d'un fichier.

J'ai constaté que selon les version Excel installées, les macros fonctionnent ou ne fonctionnent pas. Exemple
- Version 16.0.14326.20900: Ne fonctionne pas sur les 2 PC recencés
- Version 16.0.14326.20782 et 16.0.14326.20908: Fonctionnent

N'y a t-il pas un bug de sécurité qui bloquerait la lecture de la macro?

Merci

J'a remplacé partout

Code:

---

Workbooks("_HISTO.xlsm")

---

par

Code:

---

Workbooks(ThisWorkbook.Name)

---

et ça a fonctionné

Salut.

Ton code fonctionnera sans soucis sur des versions linguistiques différentes d'Excel. Changer _histo.xlsm par ThisWorkbook n'est certainement pas à l'origine du succès de la macro. Chez moi, avec _histo.xlsm, ça fonctionne très bien aussi.

Ton numéro d'erreur est très bizarre car ce n'est pas numéro d'erreur généré par Excel selon moi, et en tout cas pas lors d'une mauvaise sélection de feuille ou de plage.

Il faudrait que tu dises sur quelle ligne tu as l'erreur. Vérifie si tu n'as pas une macro complémentaire cochée sur le nouvel ordi (style la macro de conversion eurotools, par exemple, qui est plus que vérolée et qui pose problème. Si elle est cochée, décoche-la.

Vérifie aussi si tu as d'autres projets VBA ouverts en même temps.


En tout état de cause et de première analyse, ton code peut sans soucis passer du FR au EN et vice-versa.

Bonjour,
J'ai testé en passant ma version en Anglais et ça fonctionne.
J'ai vraiment l'impression qu'il y a des version d'excel qui ne fonctionne pas, ou qui sont incompatible avec la politique de sécurité de l'entreprise. :cry:


Merci