Microsoft 365 32 ou 64 bits

[eric72]

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:

#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

 

[eric72]

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]

j'ai retiré plein de fonctions

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

 

[eric72]

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

Si dans le module Pdf_Navette

 

[Cousinhub]

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

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]

hello

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

 

[eric72]

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]

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

 

[eric72]

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]

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

Exact

 

[Phil69970]

Re

@Cousinhub

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

Puis ceci

et enfin

 

[vgendron]

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

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]

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

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]

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]

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]

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