Discussion :

[Acido]

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 :

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

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 :

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
 
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 ?



Salutations

[Belga16]

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

Au lieu de :

Code :

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

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

Il vaut mieux écrire :

Code :

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

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

[Acido]

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)

Toutefois je n'arrive pa à faire fonctionner ma fonction
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 :

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
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

[Belga16]

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

[Acido]

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

[Belga16]

J'a remplacé partout

Code :

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

Workbooks("_HISTO.xlsm")

par

Code :

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

Workbooks(ThisWorkbook.Name)

et ça a fonctionné

[Pierre Fauconnier]

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.

[Acido]

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.


Merci