Tester un fichier
Résolu
JCB40
Messages postés
3061
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3061 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3061 Date d'inscription Statut Membre Dernière intervention -
Bonjour
Pouvez vous svp me dire si ce fichier fonctionne normalement
Feuille tirage des parties en appuyant sur le bouton tirage des parties
Il semblerait que sur certaines version office qu'il y ait des problèmes en particulier
Office 2010
Je vous remercie par avance
https://www.cjoint.com/c/KKqnsvBFWLu
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
Pouvez vous svp me dire si ce fichier fonctionne normalement
Feuille tirage des parties en appuyant sur le bouton tirage des parties
Il semblerait que sur certaines version office qu'il y ait des problèmes en particulier
Office 2010
Je vous remercie par avance
https://www.cjoint.com/c/KKqnsvBFWLu
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
5 réponses
-
Bonjour,
comment tester ou contrôler ton code VBA sur un fichier et module protégé !
-
Bonjour,
Votre code est incompatible avec le système 64 bits.
Les [Private Declare Function...] à adapter...! -
Re,
j'avais trouvé, mais je respecte les protections,
sur Excel 2010 pas de problème, par contre si tes cellules JMAX et MMAX ne sont pas renseignées, tes fonctions se mettent en erreur que tu peux gérer pour éviter un plantage de code avec unOn Error Resume Next
a placer en début de ton code dans
Private Sub BtnTirage_Click
Function MsgTirage11
et
Private Function XTria -
Bonjour,
Je fais référence au code de la [UFmVisu] à compléter pour fonctionnement avec système 32 et 64 bitsIf VBA7 Then
Private Declare PtrSafe Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean
Private Declare PtrSafe Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
Private Declare PtrSafe Function MessageBeep Lib "user32.dll" (ByVal wType As Long) As Long
#Else
Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
Private Declare Function MessageBeep Lib "user32.dll" (ByVal wType As Long) As Long
End If
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Je dis Bonjour,
Le pourquoi du comment c'est dit : pour fonctionnement avec système 32 et 64 bits
Vous complétez votre code pour qu'il soit identique au message précédent.
Petit oubli: amical salut Mike-31.
