Microsoft 365 32 ou 64 bits

eric72 · 14 Juin 2024

Bonjour à tous,
J'ai un fichier avec des userform et du code vba, mon PC et ma version Excel sont en 64 bits, est-il possible que sur un PC avec une version Excel 32 bits, et ce malgré ce code:

VB:

#If VBA7 Then
Private Declare PtrSafe Function DavGetUNCFromHTTPPath Lib "Netapi32.dll" (ByVal Url As LongPtr, ByVal UncPath As LongPtr, lpSize As Long) As Long
#Else
Private Declare Function DavGetUNCFromHTTPPath Lib "Netapi32.dll" (ByVal Url As Long, ByVal UncPath As Long, lpSize As Long) As Long
#End If

il y ait des bugs aléatoires sur le 32 bits et pas sur le 64 bits? Cela a-t-il un rapport ou pas du tout.
J'essaie d'explorer toutes les pistes pour éliminer les éventuelles raisons.
Ce code règle-t-il le problème de version entièrement?
Merci beaucoup pour votre retour
Eric

vgendron · 14 Juin 2024

eric72 à dit:
Pas d'autre remarques sur le code?
Merci beaucoup pour le coup de main

oh si.. il y a à dire.. :-D
macro Actu: tu calcules une zone dans la feuille1...(=feuille Menu).. ne serait ce pas plutot la feuille "Données"??
et pourquoi forcer le calcul?? ton mode de calcul du classeur n'est pas en automatique?

coté purement esthétique.. l'indentation n'est pas très "rigoureuse", ce qui bien souvent permet de détecter des erreurs de syntaxe (le fameux guilemet pas à sa place par exemple)

macro "vidernavette":
plutot que vider les cellules une par une, tu peux utiliser une range.clearcontents

eric72 · 14 Juin 2024

Voilà mon fichier anonymisé au maximum, je vous vois déjà devenir tout rouge à la lecture de mon code.
N'essayez pas d'exécuter le code, j'ai retiré plein de fonctions pour que vous puissiez juste regarder le code!!!
Ne m'engueulez pas surtout, je suis là pour progresser

jurassic pork · 14 Juin 2024

eric72 à dit:
j'ai retiré plein de fonctions

oops je ne vois pas d'utilisation de la fonction DavGetUNCFromHTTPPath dans le code de ton classeur

eric72 · 14 Juin 2024

jurassic pork à dit:
oops je ne vois pas d'utilisation de la fonction DavGetUNCFromHTTPPath dans le code de ton classeur

Si dans le module Pdf_Navette

Cousinhub · 14 Juin 2024

Bonjour,
[N'apporte rien (du moins, je le pense)]
@Phil69970

Phil69970 à dit:
Donc si ton fichier fonctionne sur 64 bits c'est qu'il n'y a pas de listview
Et si ton code fonctionne sur 32 bits et qu'il y a une listview alors il ne fonctionnera pas sur 64 bits (en tout cas la partie listview)

Je viens de te lire (il est vrai que je fais de moins en moins de VBA, surtout les USF), mais ton affirmation m'a interpellée.
Donc, dans le doute, j'essaie...
Windows 11 64 bits
Excel 2021 64 bits
J'ai fait vraiment au plus simple (chargement d'une listview à partir d'un TS - aucun traitement supplémentaire)
Et je n'ai aucun souci...
Peut-être une autre subtilité?
Ou d'autres restrictions?

PS, toutes mes excuses eric pour mon incrust'

vgendron · 14 Juin 2024

hello

il faudrait que tu dises à minima à quelle ligne de code ca plante "aléatoirement"

eric72 · 14 Juin 2024

Cousinhub à dit:
Bonjour,
[N'apporte rien (du moins, je le pense)]
@Phil69970

Je viens de te lire (il est vrai que je fais de moins en moins de VBA, surtout les USF), mais ton affirmation m'a interpellée.
Donc, dans le doute, j'essaie...
Windows 11 64 bits
Excel 2021 64 bits
J'ai fait vraiment au plus simple (chargement d'une listview à partir d'un TS - aucun traitement supplémentaire)
Et je n'ai aucun souci...
Peut-être une autre subtilité?
Ou d'autres restrictions?

PS, toutes mes excuses eric pour mon incrust'

Bonjour Cousinhub
Pas de souci pour l'incrust, plus on est de fous plus on rit.
Le problème vient du reste de mon code alors!!!

vgendron · 14 Juin 2024

DAns le module de classe 1, il y a un "end function" en trop

eric72 · 14 Juin 2024

vgendron à dit:
hello

il faudrait que tu dises à minima à quelle ligne de code ca plante "aléatoirement"

Bonjour vgendron,
Malheureusement je ne peux pas car quand les utilisateurs le font devant moi cela ne plante pas, c'est aléatoire!!!

eric72 · 14 Juin 2024

vgendron à dit:
DAns le module de classe 1, il y a un "end function" en trop

Exact

Phil69970 · 14 Juin 2024

Re

@Cousinhub

Sur excel 2010 64 bits J'ai ceci avec ton fichier

Puis ceci

et enfin

vgendron · 14 Juin 2024

j'ai pas pu m'empecher de corriger ta macro actu qui utilise des select, alors que tu commences par with sheets..

VB:

Sub actu()
Dim c As Range
    With Sheets("Données") 'évite justement d'avoir à selectionner la feuille
        .Visible = xlSheetVisible
        .Range("AB2").FormulaR1C1 = "=@TEXTBEFORE(TEXTAFTER(R[3]C,""_"",2),""."")"
        .Range("AB3").FormulaR1C1 = "=MID(R[2]C,13,1) & ""."" &@TEXTAFTER(R[-1]C,"" "")"
        .Range("AB4").FormulaR1C1 = "=TEXTBEFORE(R[-1]C,""."") & """" & MID(R[-1]C,3,1)"
        .Range("AB5").Formula2R1C1 = "=MID(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""))+1,FIND(""]"",CELL(""nomfichier""))-FIND(""["",CELL(""nomfichier""))-1)"
        .Range("AB6").FormulaR1C1 = "=TEXTAFTER(R[-4]C,"" "")"
        '.Range("AB7").Select
        .Visible = xlSheetVeryHidden
    End With

Feuil1.Range("ab2:ab6").Calculate
End Sub

pour le coté aléatoire: perso, je traduis ca par:
un coup, le code trouve les infos dont il a besoin, un coup non
entre les deux, quelque chose a sans doute été effacé, réinitialisé...

eric72 · 14 Juin 2024

vgendron à dit:
j'ai pas pu m'empecher de corriger ta macro actu qui utilise des select, alors que tu commences par with sheets..

VB:

Sub actu() Dim c As Range With Sheets("Données") 'évite justement d'avoir à selectionner la feuille .Visible = xlSheetVisible .Range("AB2").FormulaR1C1 = "=@TEXTBEFORE(TEXTAFTER(R[3]C,""_"",2),""."")" .Range("AB3").FormulaR1C1 = "=MID(R[2]C,13,1) & ""."" &@TEXTAFTER(R[-1]C,"" "")" .Range("AB4").FormulaR1C1 = "=TEXTBEFORE(R[-1]C,""."") & """" & MID(R[-1]C,3,1)" .Range("AB5").Formula2R1C1 = "=MID(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""))+1,FIND(""]"",CELL(""nomfichier""))-FIND(""["",CELL(""nomfichier""))-1)" .Range("AB6").FormulaR1C1 = "=TEXTAFTER(R[-4]C,"" "")" '.Range("AB7").Select .Visible = xlSheetVeryHidden End With Feuil1.Range("ab2:ab6").Calculate End Sub

pour le coté aléatoire: perso, je traduis ca par:
un coup, le code trouve les infos dont il a besoin, un coup non
entre les deux, quelque chose a sans doute été effacé, réinitialisé...

En effet, sauf que je ne parviens pas à le reproduire!!! quel casse tête

vgendron · 14 Juin 2024

puisque le bug ne se produit pas chez toi, uniquement chez tes collègues, il faut leur demander un impression d'écran quand ils ont le bug (après avoir cliqué sur "Debuggage" lorsqu'ils ont le message d'erreur)

eric72 · 14 Juin 2024

vgendron à dit:
puisque le bug ne se produit pas chez toi, uniquement chez tes collègues, il faut leur demander un impression d'écran quand ils ont le bug (après avoir cliqué sur "Debuggage" lorsqu'ils ont le message d'erreur)

Cousinhub · 14 Juin 2024

@Phil69970
Hi,
[Promis, dernière incrust']
Comme quoi, tout ce qui sort de Redmond n'est pas forcément homogène...

Microsoft 365 32 ou 64 bits

eric72

XLDnaute Accro

vgendron

eric72

XLDnaute Accro

Pièces jointes

jurassic pork

XLDnaute Occasionnel

eric72

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

eric72

XLDnaute Accro

vgendron

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

eric72

XLDnaute Accro

vgendron

XLDnaute Barbatruc

eric72

XLDnaute Accro

Cousinhub

XLDnaute Barbatruc

Discussions similaires