Rapport de message :*
 

Re: copier coller dans un même classeur

Titre du sujet : Re: copier coller dans un même classeur
par Mth le 16/04/2013 22:48:34

Bonsoir ocealimer, bonsoir à tous,

Pour ton erreur 1004, je pense que tu dois autoriser l'accès au projet Visual Basic.

Dans le menu Outils/Macros/Sécurités, il doit y avoir quelque chose comme "paramètres des macros pour les développeurs", il faut cocher la case "Accès approuvé au modèle d'objet du VBA"

Pour ton chemin, ce n'est pas sur la ligne de commentaire en vert qu'il faut changer.
Dans le code j'ai utilisé ThisWorkbook.Path qui donne le chemin du fichier actuel, suivi du signe antislash: \ , ceci donne donne donc pour la variable Chemin:

Chemin = ThisWorkbook.Path & ""

Si tu veux placer ton fichier ailleurs, par exemple dans le répertoire Toto, tu peux l'écrire en dur:
Chemin = "C:\Toto"

Pour la mise à blanc je ne comprends pas, chez moi ce code placé à la fin fonctionne:

With Sheets("DI")
    .Range("B6") = .Range("B6") + 1
    .Range("B7:B12").ClearContents
End With

Est-ce bien ce que tu as recopié?

Très bonne soirée et à bientôt,

mth