Discussion :

[wabo67]

Bonjour quelq'un peux m'eclairer je ferme un fichier en macro mais il me lance le message " le presse papier contient une grande quantité ................"
et donc ma macro s'arrête.

Comment faire pour qu'il soit me pose pas la question
soit qu'il fasse non automatiquement.

voila mes lignes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Sheets("temp").Select
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("A1:F2958").Select
    Selection.Copy
    Application.WindowState = xlMinimized
    Windows("Defaut sur Zera.xlsm").Activate
    Sheets("ZERA21").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("zera21.xlsx").Activate
    ActiveWindow.Close

[Pierre Fauconnier]

Bonjour.

Il faut mettre la ligne

Code :

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

application.CutCopyMode=false

après la ligne

Code :

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

1
2
 
ActiveSheet.Paste

Note au passage que tu n'es pas obligé(e) de sélectionner les feuilles pour copier puis pour coller.

Tu gagnerais à utiliser des objets pour réaliser tes copier-coller. Le code serait plus lisible, plus rapide et plus facilement maintenable.

Ok?

[wabo67]

je suis d accord avec toi je suis sur que je n'utilise pas la meuilleur des facon en copiant mais je débute en Vba et je ne connais pas les lignes de commande pour effectuer cela

[Pierre Fauconnier]

Vérifie déjà que ton problème est résolu concernant le presse-papier. Si oui, pense à cliquer sur en bas de la discussion.

Si tu veux en savoir plus sur le copier/coller sans Select grâce à l'utilisation d'objets, reviens vers nous dans une nouvelle discussion.

Tu verras vite que l'utilisation d'objets est passionnante et plus performante.

Bonne continuation