Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 919 fois - Téléchargée 56 fois
Option Explicit Private Sub Form_Load() CacherTextDansWord End End Sub Private Sub CacherTextDansWord() Dim wdA As Object, wdD As Object Dim WkDir As String, Source As String, Destination As String ' Cherchez Word On Error Resume Next ' Est-il déjà ouvert? Set wdA = GetObject(, "Word.Application") If Err = 429 Then Err.Clear ' Non, alors le démarrer Set wdA = CreateObject("Word.Application") If Err = 429 Then ' Désolé, Word n'est pas disponible MsgBox "Word n'est pas accessible" Err.Clear Exit Sub End If End If ' Recueillir l'endroit du disque dur où nous sommes WkDir = App.Path ' Nom du document Destinataire Destination = WkDir & "\" & "GrosWord.doc" ' S'assurer qu'il n'existe pas If Dir$(Destination) <> "" Then MsgBox Destination & " ne doit pas exister" GoTo ErrEnd End If ' Nom du document Source Source = WkDir & "\" & "GrosText" ' Ouvrir la Source avec Word Set wdD = wdA.Documents.Open(Source) If wdD = Null Then MsgBox "Il faut que la fiche 'GrosText' existe dans " & WkDir GoTo ErrEnd End If ' Créer un nouveau document Destinataire et le Protéger avec un mot de passe wdD.SaveAs FileName:=Destination, FileFormat:=0, Password:="entrez" ' Fermer le document wdD.Close MsgBox "Le document " & Destination & " est créé" ErrEnd: ' Terminer word wdA.Quit Set wdD = Nothing Set wdA = Nothing End Sub
Ensuite les accents qui au début empêchaient tout accès au site personnel.
Eliminer les accents, chercher des nouveaux mots sans accents....
Et l'argot! Celui de Paname et le Canayen, c'est ben différent!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.