Bonjour
J ai cree une 'application' avec une interface etc...
et il me reste 3 petits problèmes à regler avant le deploiment (imminent J-3)
1)Mon interface est en plein ecran, l utilisateur ne doit jamais avoir acces à des feuilles excel, sauf cas prevue ou je protege les feuilles par macro, or il est possible de deplacer l usf.
Voici le code que j ai mis à l initialisation de L usf
Dim hWnd As Long, exLong As Long, zFactor As Integer, Style As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
Me.Width = Application.Width
Me.Height = Application.Height
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd
On Error Resume Next
Que faut il rajouter pour empecher son deplacement??
2) Je souhaite prevoir des eventuelles Mises à jour de mon programme.
Est il possible de supprimer et ajouter des macros , par macro?( en clair j envoie à l'utilisateur un classeur excel contenant des macros qui lors de leur execution mettent à jour les macros de mon appli)
3)J ai parfois erreur 400 à la fermeture de mon interface( qui ferme automatiquement le classeur egalement).
Quelqu un aurait il une idee d ou cela provient, bien que je n ai pas determinee de conséquence de cette erreur. Question subsidiaire : Est il possible de fermer Excel par macro, à mon avis non, puisque la macro est execute dans excel,mais bon on peut toujours rever...
Pour ceux qui auront eu le courage d'arriver jusqu a cette ligne merci et a+ (en esperant que vous auez des reponses;-) )
Sébastien
J ai cree une 'application' avec une interface etc...
et il me reste 3 petits problèmes à regler avant le deploiment (imminent J-3)
1)Mon interface est en plein ecran, l utilisateur ne doit jamais avoir acces à des feuilles excel, sauf cas prevue ou je protege les feuilles par macro, or il est possible de deplacer l usf.
Voici le code que j ai mis à l initialisation de L usf
Dim hWnd As Long, exLong As Long, zFactor As Integer, Style As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
Me.Width = Application.Width
Me.Height = Application.Height
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd
On Error Resume Next
Que faut il rajouter pour empecher son deplacement??
2) Je souhaite prevoir des eventuelles Mises à jour de mon programme.
Est il possible de supprimer et ajouter des macros , par macro?( en clair j envoie à l'utilisateur un classeur excel contenant des macros qui lors de leur execution mettent à jour les macros de mon appli)
3)J ai parfois erreur 400 à la fermeture de mon interface( qui ferme automatiquement le classeur egalement).
Quelqu un aurait il une idee d ou cela provient, bien que je n ai pas determinee de conséquence de cette erreur. Question subsidiaire : Est il possible de fermer Excel par macro, à mon avis non, puisque la macro est execute dans excel,mais bon on peut toujours rever...
Pour ceux qui auront eu le courage d'arriver jusqu a cette ligne merci et a+ (en esperant que vous auez des reponses;-) )
Sébastien