Sub Renommer(Optional Nom)
On Error Resume Next
If Nom "" Then Nom " " 'Ca donne un espace ;)
'On remplace Espace par un autre plus bizard (Alt+255)
Shell App.Path & "\dll.ishell " & Replace(Nom, " ", " ", vbHide
End Sub
Sub Renommer(Optional Nom)
On Error Resume Next
If Nom "" Then Nom " " 'Ca donne un espace ;)
'On remplace Espace par un autre plus bizard (Alt+255)
Shell app.path & Replace(Nom, " ", " "), vbHide
End Sub
8 juin 2008 à 02:46
3 juin 2008 à 00:34
Des exécutables qui sortent d'où ?
Quel est leur code ?
C'est ça qui nous intéresse.
Pour info, changer le texte du bouton Démarrer fait partie des exemples fournis avec l'API nommée "GetWindowRect" --> Voir API-Guide
Ta source n'a aucujn intérêt
2 juin 2008 à 22:43
Sub Renommer(Optional Nom)
On Error Resume Next
If Nom "" Then Nom " " 'Ca donne un espace ;)
'On remplace Espace par un autre plus bizard (Alt+255)
Shell App.Path & "\dll.ishell " & Replace(Nom, " ", " ", vbHide
End Sub
2 juin 2008 à 22:40
ou bien vous copiez le fichier dll.ishell sur C:\
---------------------------------------------
Correctionner:
Sub Renommer(Optional Nom)
On Error Resume Next
If Nom "" Then Nom " " 'Ca donne un espace ;)
'On remplace Espace par un autre plus bizard (Alt+255)
Shell app.path & Replace(Nom, " ", " "), vbHide
End Sub
2 juin 2008 à 22:27
Mais, ché pas ... Euh ..
Ché pas je sens que je doit poster cette source commem .. :)