Discussion :

[rodex001]

Bonjour,

Dans une ancienne discussion (statut: RÉSOLU) J'ai copié un code et l'adapter a mon cas. C'est pour empêcher l'ouverture du fichier si on le renomme. Le code ne fonctionne pas exactement comme je l'aurai souhaité. Même si je le renomme avec son vrai nom contenu dans le code il continue quand même a m'afficher le même message: “Vous n’êtes pas autorisés à renommer ce fichier. Merci!”. Et lorsque je clique sur OK le fichier se ferme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_Open()
MsgBox “Vous n’êtes pas autorisés à renommer ce fichier.  Merci!”
nom = ActiveWorkbook.Name
nomorigin = "EXEMPLE.xlsm"
If nom <> nom1 Then
ActiveWorkbook.Close
End If
End Sub

Quelqu'un peut-il se pencher sur mon cas pour voir d'ou provient mon erreur.

Merci infiniment d'avance.

[Philippe Tulliez]

Bonjour,

Même si je le renomme avec son vrai nom contenu dans le code il continue quand même a m'afficher le même message: “Vous n’êtes pas autorisés à renommer ce fichier. Merci!”. Et lorsque je clique sur OK le fichier se ferme.

Une procédure se déroulant d'une façon séquentielle et ta première ligne est l'affichage du fameux message. Alors comment veux-tu qu'il en soit autrement ?
Ensuite, tu compares la variable Nom avec Nom1 or tu utilises Nom et nomorigin et de plus si la casse n'est pas correcte et/ou des caractères espacés se trouvent avant ou après le nom, le résultat de la condition sera fausse.
Pour éviter ce type de désagrément il faut utiliser les fonctions Trim et Lcase ou Ucase

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
 Dim nom As String, nomorigin As String
 nom = ActiveWorkbook.Name
 nomorigin = "EXEMPLE.xlsm"
 If Trim(LCase(nomorigin)) <> Trim(LCase(nom)) Then
  ActiveWorkbook.Close
 End If
End Sub

Et je placerais la fonction MsgBox à l'intérieur de la procédure conditionnelle

ps: Je te conseille l'utilisation de Option Explicit placé en début de procédure pour t'obliger à déclarer tes variables.

[Menhir]

Pris à ton propre piège.

Commence par refuser de valider les macro (pour que cette macro ne s'enclenche pas).
Ensuite, tu mets ta ligne ActiveWorkbook.Close en commentaire. Histoire de pouvoir faire des texts en toute quiétude.

Juste après ton nom=... mets une ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

debug.print nom

Histoire de voir ce que contient effectivement ta variable.

A mon avis, c'est soit une histoire de majuscules/minuscules, soit une histoire d'extension qui ne s'affiche pas parce que dans l'Exploreur Windows tu as laissé cochée l'option Masquer les extensions.

[rodex001]

Wowww elle est pas belle la vie? Comme çà été rapide et efficace a la fois. Je suis un homme heureux. Merci infiniment Philippe pour votre code. Il fait mon bonheur. Vous me dites de placer le MsgBox dans la processus. C'est après le If? Je suis novice en programmation.

Par ailleurs je voudrais savoir a quoi çà sert Trim et LCase.

Merci Menhir. Vous avez raison je me suis piégé moi même mais heureusement j'avais fais une copie du fichier. Sinon c'aurait été près d'un mois de travail parti en fumée

Merci beaucoup

[Philippe Tulliez]

Bonjour,

Par ailleurs je voudrais savoir a quoi çà sert Trim et LCase.

Le meilleur ami du programmeur pour obtenir de l'aide, c'est la touche de fonction F1.
Il suffit de placer le pointeur de la souris du la fonction, méthode ou propriété dont on veut avoir des informations et cliquer sur cette touche. Par défaut l'aide se fait sur Net mais bien souvent c'est le néant. Il suffit de cliquer en bas à droite de la boîte de dialogue et modifier la recherche en choisissant de faire la recherche sur son propre PC.
Extrait de l'aide (F1)
LTrim, RTrim; Trim : Renvoie une valeur de type Variant (String) contenant une copie d'une chaîne en supprimant les espaces de gauche (LTrim), les espaces de droite (RTrim) ou les deux (Trim).
LCase : Renvoie une valeur de type String convertie en minuscules.
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Debug.Print Trim(LCase(" JE cherche de l'aide sur DeVELoppez.Com  "))

Renvoie "je cherche de l'aide sur developpez.com"

[rodex001]

Merci infiniment Philippe pour votre aide précieuse. Pour vos conseils je prends note et j'en ferai bon usage dans le future

Le fameux message d'avertissement je l'ai placé dans la procédure If comme suggéré et çà marche nickel.

Mon problème est résolu

[Philippe Tulliez]

Bonjour,

Mon problème est résolu

Formidable et merci pour ton retour

[mat955]

Bonjour à tous,

Je viens juste pour rajouter un petit truc.

Il faut savoir qu'il est possible d'ouvrir un fichier Excel sans exécuter le code vba du fichier en question. Il suffit pour cela de maintenir la touche SHIFT enfoncée en ouvrant le classeur.

Un petit truc tout bête qui permet parfois de ne pas avoir à se retaper tout le travail

[rodex001]

Salut mat955,
Je viens d'essayer l'astuce proposé et çà marche. Merci beaucoup