transferer vers un classeur

[chilo]

bonjour le forum

je souhaite transferer le contenu de ce classeur "feuille pv" vers un autre classeur et dans une feuille appellée (liste) afin de partager le contenu avec d'autres personnes mais en le mettant uniquement en consultation.
(c'est des touche à tout)

Par ailleurs comment proteger un classeur à partir DE VBAPROJET

u grand pour le coup de main MERCI

 

[Guest]

Re : transferer vers un classeur

Bonjour,

A ajouter dans un module de code:

Sub Transfert()
    Dim wk As Workbook
    Sheets("PV").Copy
    With ActiveWorkbook
        With Sheets("PV")
            .Name = "Liste"
            .Protect Password:="hasco"
        End With
        .SaveAs Filename:=ThisWorkbook.Path & "\Liste.xls", ReadOnlyRecommended:=True
        .Close
    End With
End Sub

Le paramètre 'ReadOnlyRecommended' n'est qu'une recommandation. si l'utilisateur veut l'ouvrir pour modification, il le peut.
De toute façon la feuille est protégée par un mot de passe : 'hasco'

A+

 

[chilo]

Re : transferer vers un classeur

bonsoir le forum bonsoir hasco

merci pour l'aide

cela repond à ce que je voulais mais il m'est venu une idee

est il possible de transferer d'autres enregistrements a la suite sans ecraser les précédents

merci et bonne soirée