Discussion :

[ExcelLiod]

Bonjour à tous !

Je vais essayer de vous expliquer de la manière la plus succincte possible. Voilà initialement j'avais fais une petite macro sur excel qui me permettait de faire un copier collage spécial de l'intégralité des cellules d'une feuille source qui me servait de base de données vers une autre feuille destiné à mes collaborateurs.

J'utilisais le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
   Sheets("Feuil1").Select
    Columns("A:EY").Select
    Selection.Copy
    Windows("BASEcourrier.xls").Activate
    Sheets("Feuil1").Select
    Columns("A:A").Select
    Range("A2192").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=True
End Sub

TOUT SÉLECTIONNER

Cette macro fonctionnait très bien jusqu'à aujourd'hui Visual basic n'arrive plus a a effectuer le copier coller car la taille est différente... Erreur d'execution '1004' Pfff...

Enfin bref je souhaiterais savoir comment pourrais-je procéder pour effectuer un copier coller des valeurs d'une feuille d'un fichier excel vers une autre feuille. Ou à défaut comment résoudre le problème de ma première macro.

Merci d'avance pour votre aide

[unparia]

Bonjour
C'est la méthode transpose, qui nécessite cette correspondance
Nota :je me suis arrêté à la seule cause de l'erreur que tu dénonces. Ce qui ne veut pas du tout dire que j'applaudis - loin s'en faut - cette manière de travailler à coup de select, activate, selection, etc ...
Et ce d'autant que tu t'y es pris de telle manière que VBA ne sait plus "qui est qui"...
Travaille directement sur les objets Excel et tu auras moins de problèmes divers et variés.

[ExcelLiod]

Merci pour ta réponse, mais je suis trop novice en la matière pour comprendre comment utiliser les objets dont tu parles

[unparia]

C'est pourtant le B.A.BA et est à la portée du débutant de chez débutant.
la cellule B2 de la feuille "feuilx" du classeur "classeurx" est :

Code :

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

workbooks("classeurx").worksheets'"feuilx").Range("B2")

nul besoin d'activer, sélectionner, etc ... pour se référer ensuite à l'objet Selection ainsi défini.
Commence s'il te plait par ces premiers pas indispensables.

[ExcelLiod]

C'est douloureux d'être pris de si haut... Moi qui pensais être sur un forum d'entraide... Je n'ai jamais pris de cours de vba je suis donc un vrai débutant de chez débutant comme tu dis.

Dans un premier temps j'ai essayé le code suivant :

Code :

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

1
2
3
4
5
 
Workbooks("base.xls").Worksheets("Feuil1").Range("A:EY").Copy
Workbooks("basecourrier.xls").Worksheets("Feuil1").Range("A:EY").Paste
 
End Sub

qui ne fonctionne pas chez moi "Erreur d'execution "9"

[unparia]

ce qui signifie que l'un des classeurs invoqués n'est pas ouvert avec ce nom par ton application sous ce nom ou qu'une des feuilles invoquées n'y est pas présente.

Je n'ai jamais pris de cours de vba

Moi non plus