Discussion :

[Lucky062]

Bonjour à tous,

Voilà quelques jours que je me heurte à ce problème et j'ai bien besoin de votre aide ! J'ai recherché des solutions mais en vain.

Voici un extrait d'un programme qui fonctionnait encore la semaine dernière :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Windows(interface).Activate
        Sheets("Général").Activate
        Range("K4:K" & maxi_activites).Select
        Selection.Copy
 
        Windows("Nomenclature " & nom & " " & num_semestre & ".xlsm").Activate
        Sheets("Semestre 1").Select
        ActiveSheet.Unprotect
            Sheets("Semestre 1").Select
            Sheets("Semestre 1").Range("A5").Select
            ActiveSheet.Paste

En gros, je vais dans une feuille interface et copie une plage. Ensuite je vais dans la feuille "Semestre 1" d'un second classeur et je copie en A5 !

C'est là que je me fais jeter (alors que cela fonctionnait auparavant ) avec le message d'erreurs :
"Erreur d'execution 1004 : La méthode Paste de la classe Worksheet a échoué !"

Si quelqu'un pouvait m'aider ....

Merci d'avance !

[mercatog]

interface est une variable ou nom d'un fichier?
essaie de reporter directement les valeurs (comme ceci ou presque)

Code :

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

1
2
3
4
With Workbooks("Nomenclature " & nom & " " & num_semestre & ".xlsm").Sheets("Semestre 1")
    .Unprotect
    .Range("A5:A" & maxi_activites + 1).Value = Workbooks(interface).Sheets("Général").Range("K4:K" & maxi_activites).Value
End With

[Lucky062]

Bonjour mercatog,

D'abord, merci de ton aide !

interface est une variable qui contient un chemin + nom de fichier

J'ai tenté ta solution mais j'ai le même problème

Merci encore !!

mercatog,

Pour info, je viens d'essayer en l'adaptant le "morceau" With / End With dans un classeur à part et celà fonctionne ! J'comprends pu !

[mercatog]

quand tu écris

Code :

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

Workbooks(interface)

interface devrait contenir le nom du fichier avec l'extension et que le fichier soit ouvert (je pense dans la même instance excel)
sinon, il est préférable de travailler avec les variables workbook et worksheet
ci-joint discussion qui pourrait t'aider http://www.developpez.net/forums/d10...feuille-excel/