problme enregistremt réduction

[didier (2)]

bonjour,
Je vais essayer d'etre simple quoique cela ne soit pas évidant au premier
abord, (milles excuses je suis novice)
J'ai créer un classeur qui fonctionne a tous les niveaux (pas de probleme),
élas celui-ci est trop lourd pour etre envoyé par le net.
De plus il n'y a que certain calcul de ce classeur qu'il est interessant d'envoyer par le net. Par contre le classeur doit rester inchangé aprés enregistrement des données et sevir d'archive.
ma question :
A partir de ce classeur est-il possible de générer automatiquement un autre classeur, qui regroupe que les informations nécéssaire a l'envoie par le net ?
Cela doit se produire a chaque enregistrement.

De plus si vous connaissait un systeme qui permette a un utilisateur d'utiliser une fois un classeur, pour rentrer des données,puis aprés l'enregistrement, ses données ne doivent plus etre modifiable seulement visuel et cela de façon automatique.C'est a dire que l'on rentre sur le classeur une fois,on inserre les données demandées, on enregistre, on ferme le classeur,mais si l'on désir revenir sur les infos enregistrer cela est impossible voir bloqué,on ne peux que visualiser ce que l'on a enregistrer.

Merci de me demander des explications si vous ne comprenez pas mes questions.

Cordialement
Didier (2)

 

[Ti]

Ton problème vient surtout des données que tu dois sélectionner pour les envoyer.
Donc voici une solution simple :
tu t'arranges pour copier les données nécessaires à l'envoi sur le net dans une feuille ou deux feuilles, puis tu les copies en tant que nouveau classeur via la macro suivante :

Sub copieFeuille()
Dim NewWkBk As Workbook
With ThisWorkbook
'pour ne copier qu'une seule feuille
.Worksheets("Feuil1").Copy
'pour copier plusieurs feuilles d'un coup dans le nouveau classeur
'.Worksheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy
'dans le même temps tu protèges le classeur actuel
.Protect structure:=True
End With
Set NewWkBk = ActiveWorkbook
With NewWkBk
'et tu sauvegardes le nouveau classeur
.SaveAs "DonneesWeb"
'si tu veux le fermer immédiatement
'.Close
End With
End Sub

tu remarqueras que dans la foulée ton classeur actif est protégé. On ne peut donc plus en modifier le contenu, sauf en enlevant la protection.
Le nouveau classeur, est sauvegardé immédiatement puis éventuellement fermé.