Macro sous excel 97

David · 2 Mai 2005

Bonjour à tous.

un petit problème de compatibiliter entre excel XP et excel 97.

Ma feuille est protègèe et je veux copier la feuille j'ai donc mis :

Code:

  Sheets(' données en cours'Â'Â').Select
ActiveSheet.Unprotect 'particulier'
    Sheets(' données en cours'Â'Â').Copy Before:=Sheets(Sheets.Count - 1)
   Application.DisplayAlerts = False

   Sheets('donnees ' & mois & ' ' & annee).Select
   ActiveWindow.SelectedSheets.Delete
     Application.DisplayAlerts = True
   
    Sheets(' données en cours (2)'Â'Â').Name = 'donnees ' & mois & ' ' & annee
    Sheets('donnees ' & mois & ' ' & annee).Select
    ActiveSheet.Unprotect 'particulier'
    ActiveSheet.Shapes('AutoShape 16'Â'Â').Select
    Selection.Delete
    ActiveSheet.Shapes('Rectangle 18'Â'Â').Select
    Selection.Delete
    Range('B1'Â'Â').Select
    ActiveSheet.Protect 'particulier', DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True

mais quand ça arrive la

Code:

 Sheets(' données en cours'Â'Â').Copy Before:=Sheets(Sheets.Count - 1)

il me dit que la feuille est protégée ! et ne peut être modifiée.
Ca marche pourtant parfaitement avec excel 2003 et 2002, mais pas sous excel 97

merci d'avance

David

Message édité par: david, à: 02/05/2005 14:11

Abel · 2 Mai 2005

Bonjour David,

Je n'ai jamais utilisé cette syntaxe car je ne protège quasiment jamaais mes fichiers.
Mais peut être avec cette syntaxe :

ActivieSheet.Unprotect Password := 'drowssap'

Abel.

David · 2 Mai 2005

Salut Abel

merci pour ta réponse, avec ta syntaxe ça marche chez moi, mais toujours pas chez ma femme.

il y a quand même quelque chose que je ne comprend pas, chez moi et à mon boulot ça marche, au boulot de ma femme excel 97 et même excel 2003 (sur une autre machine), ça lui met le message!!

Faut il installer les macros complémentaire ou quelque choses du genre ?

si quelqu'un a une piste.

merci d'avance

David · 2 Mai 2005

re
alors ta syntaxe marche, mais quand je lui dit de remettre le mot de passe ça ne marche pas.

Code:

ActiveSheet.Protect Password:='particulier', DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True

j'ai aussi un problème avec le tri :

Code:

Range('B4:I6000').Select
          Selection.Sort Key1:=Range('B4'), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

marche pas sous excel 97.

merci d'avance.

Abel · 2 Mai 2005

Re,

Je n'ai plus Excel97 sous la main.

Essaie de faire ces manip avec l'enregistreur de macro pour voir la syntaxe à utiliser.

Abel.

Ashaar · 2 Mai 2005

Bonjour,

J'ai Excel 97 sous NT et ça fonctionne correctement.

bizarre bizarre...

David · 2 Mai 2005

merci à tout les deux.

je ne peux pas faire avec l'enregistreur de macro, je n'ai que excel 2003, excel 97 c'est au boulot de ma femme et je ne peux pas aller toucher les ordis de son boulot.

ashar ça marche chez toi ? protection et tri ?

je comprend pas trop ce qui se passe, peut il y avoir avec des macros complémentaires ?

merci

Mytå · 3 Mai 2005

Salut le forum

Pour excel97

supprime DataOption1:=xlSortNormal

cela devrait suffir

Mytå

David · 3 Mai 2005

Salut

merci Myta je vais essayer.

Le truc c'est quand je lance la macro, le message dit que le classeur est protégé et du coup ça passe pas.

Apparement le fait d'avoir fait le fichier sous excel 2003 et l'ouvrir avec 97, il aime pas et fait une espèce de protection bidon que je ne comprend pas, donc pas grand chose à voir avec les protections des feuilles.

Je vais donc éssayer de l'enregistrer en modèle 97 pour voir si il fait la même chose. Sinon si quelqu'un peut me dire comment enlever la protection de classeur à l'ouverture je prend.

merci

Macro sous excel 97

David

XLDnaute Occasionnel

Abel

XLDnaute Accro

David

XLDnaute Occasionnel

David

XLDnaute Occasionnel

Abel

XLDnaute Accro

Ashaar

XLDnaute Junior

David

XLDnaute Occasionnel

Mytå

Guest

David

XLDnaute Occasionnel

Discussions similaires