FORUM MP | Bureautique - Excel : Convertir l'entièreté d'un document Word

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Convertir l'entièreté d'un document Word
	Forum : BUREAUTIQUE - EXCEL Sous Catégorie : Excel Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE - EXCEL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM BUREAUTIQUE - EXCEL
	Page précedente	Page suivante

Crystal51
Nouveau membre

Inscrit : 10/12/2007
Messages : 4

#146196 Posté le 10/12/07 à 13:12

Bonjour,

Je ne suis pas du tout programmatrice et celà fait 3 semaines que je patauge pour effectuer, à mon avis une simple tâche.

Je ne vais pas rentrer dans le comment du pourquoi de ce que je veux. C'est simplement dans le cadre de mon travail. C'est pour me protéger.

En fait je veux crypter l'entièreté d"un document word. Ce que j'ai fais jusqu'à présent fonctionne relativement bien mais il y a un MAIS, ce mais est que ça ne fonctionne pas sur un document de plus de 5 pages.

Mon problème est que j'écris régulièrement des documents Word de plus de 20 pages.

Voici le code auquel j'ai pensé.

Function Cryptage(TextNonCrypte, MotDePasse)
Z = 0
For Incr = 1 To Len(TextNonCrypte)
Text = Mid(TextNonCrypte, Incr, 1)
a = Asc(Text)
Z = Z + 1
If Z > Len(MotDePasse) Then
Z = 1
End If

okm = Mid(MotDePasse, Z, 1)
b = Asc(okm)
w = a + b

If w > 255 Then
w = w - 255
End If
TextCrypte = TextCrypte + Chr(w)

Next Incr

Cryptage = TextCrypte
End Function

Sub Crypt()
Set myrange = Selection.Range
myrange.WholeStory

clef = "Test"

a = Cryptage(myrange, clef)

ActiveDocument.Content.Select
Selection.Delete

Selection.TypeText Text:=a
Selection.TypeParagraph

End Sub
__________________________
Rien que du bonheur

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#146205 Posté le 10/12/07 à 17:36

Bonjour
Vous êtes dans le forum Excel et vous posez une question VBA pour un document Word Smiley

Bon ce n'est pas grave c'est en bureautique

je pense que votre problème vient de la non déclaration des variables

20 pages d'un document cela fait combien de caractères approximativement ?

je crois qu'une chaine de caractères "string" ne peut contenir que 2^16 caractères soit si je ne me trompe que 65536 caractères
une page peut contenir suivant la police normalement utilisée de 4000 à 5000
caractères soit un maxi d'une 15 de pages

Voilà pour moi le problème est ici et non dans le code

petite question

une fois crypté vous revenez au mode normal comment

fonction décryptage je suppose

Salutations
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Crystal51
Nouveau membre

Inscrit : 10/12/2007
Messages : 4

#146213 Posté le 10/12/07 à 21:25

Merci pour votre indulgence.

Je ne suis pas une habituée des forums
__________________________
Rien que du bonheur

HAUT DE PAGE

Crystal51
Nouveau membre

Inscrit : 10/12/2007
Messages : 4

#146218 Posté le 11/12/07 à 06:27

Je reviens vers vous ce matin, j'en ai plus le temps.

Je voulais encore une fois vous dire merci de votre indulgence.

Ma première question est :
Si je déclare les variables, est-ce que je serai moins limitée avec les 65536 caractères?

Deuxième question :
Comment fait-on pour déclarer des variables?

Troisième question :
Si vous avez une solution toute faite qui fonctionne? Je suis prenneuse!!!

Je crois que je n'essaierai jamais plus après cette expérience de faire une macro. Je me suis documentée. On dit partout que c'est relativement simple, mais moi après 3 semaines d'acharnement, je n'arrive toujours à rien.

Encore une fois, je vous dis UN GRAND MERCI
__________________________
Rien que du bonheur

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#146220 Posté le 11/12/07 à 08:30

Bonjour
une déclaration se fait avec l'instruction Dim lavariable as enquoi

il est peut-être possible de connaître la quantité totale de caractères à traiter ensuite suivant cette quantité, traiter l'ensemble par paquets
ce qui devrait permettre au code de fonctionner sans encombre Smiley

__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#146266 Posté le 12/12/07 à 08:12

une solution de cryptage et décryptage ICI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Crystal51
Nouveau membre

Inscrit : 10/12/2007
Messages : 4

#146313 Posté le 13/12/07 à 15:36

Je vous remercie encore une fois pour votre aide.

J'ai testé Cryptozorus comme vous me l'aviez conseillé et ça fonctionne bien.

Je suis une acharnée et j'ai donc continué de chercher de mon côté. J'ai vu où était mon problème et j'y ai remédié.

Je viens de trouver, je ne dirais pas "LA SOLUTION" mais une solution qui me convient amplement dans ce que je désirais réaliser.

Une dernière chose, j'espère ne plus à avoir à réaliser de macros. J'ai pris beaucoup de retard dans mon travail à cause de ça. Mais bon, je suis satisfaite de mon étude...

Merci RGI

Bien à vous
__________________________
Rien que du bonheur

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#146315 Posté le 13/12/07 à 15:51

merci @++++
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE - EXCEL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.