Gestion Planning v2006-25.03a

[VincentB74]

Bonjour
Non juste les même que sur le fichier.

 

[Maga6202]

Je vais regarder çà. Merci encore et bonne journée

 

[Maga6202]

Re bonjour Vincent,
J'ai réussis a avoir la liste des tables manquantes, mais je ne les ai pas dans les fichiers indiqués.
Est ce que cela veux dire que je ne pourrais pas utiliser votre planning ?
Ou il y a une possibilité de les avoir ?
Je vous joint une capture écran
Bonne journée

 

[VincentB74]

Re bonjour Vincent,
J'ai réussis a avoir la liste des tables manquantes, mais je ne les ai pas dans les fichiers indiqués.
Est ce que cela veux dire que je ne pourrais pas utiliser votre planning ?
Ou il y a une possibilité de les avoir ?
Je vous joint une capture écran
Bonne journée

Je suis absent cet après-midi de mon domicile mais je ne manquerai pas de vous envoyer le fichier manquant.
Envoyé moi un mail sur vincentb74(a)gmail(point)com
Bon après midi
Vincent

En attendant, il vous faut installer PDFCreator version 4.4.3 ou 4.4.4 qui sont gratuites et cela permettra d'activer PDF creator Com

 

[VincentB74]

VincentB74 a mis à jour Gestion Planning avec une nouvelle entrée de mise à jour:

Gestion Planning

Regarde la pièce jointe 1214003

Miseà jour essentiellement cosmétique.
Correction du code pour le bouton Aujourd'hui dans le ruban.
Regarde la pièce jointe 1214004


Bonne découverte.
Cordialement,
Vincent

Note => Voir toutes mes ressources: https://excel-downloads.com/resources/?creator_id=297170

Lire le reste de cette entrée de mise à jour...

 

[.jakob@gmail.com]

Bonjour Vincent
j'ai une erreur sous Office 365 64 bits

sur l'instruction : FindWindowA

Sub OteCroix(UF As UserForm)
Dim hWnd As Long
'Enlève la croix rouge de l'UF
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
& "Frame", UF.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

merci

 

[w36xb2w]

Bonjour
Pour résoudre mon souci d'erreur j'ai décoché Manquant Outlook que je n'utilise jamais.

 

[VincentB74]

Bonjour Vincent
j'ai une erreur sous Office 365 64 bits

sur l'instruction : FindWindowA

Sub OteCroix(UF As UserForm)
Dim hWnd As Long
'Enlève la croix rouge de l'UF
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
& "Frame", UF.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

merci

Bonjour,

Désolé du retard de ma réponse.
Il faudrait essayer ce code à mettre dans l'en-tête du module => mb_AppVbo

#If Win64 Then
Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr
Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr
Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

En espérant que cela corrige le problème.
Vincent

 

[Pelnoph]

Bonjour,
J'ai cette erreur dés que je clique sur paramètres ou gestion des employés.
Pouvez-vous m'aider ?

 

[VincentB74]

Bonjour,
J'ai cette erreur dés que je clique sur paramètres ou gestion des employés.
Pouvez-vous m'aider ?Regarde la pièce jointe 1215071

Bonjour,

Je pense que le problème vient de la déclaration de l'en-tête de la fonction.
Il faut remplacer
Dim hWnd As Long
par
Dim hWnd As LongPtr

Bonne découverte.
Vincent