Discussion :

[tom96]

Bonjour à tous,

Voilà mon problème :

je souhaiterais à partir de plusieurs fichiers d'un même répertoire, les ouvrir, copier entièrement la colonne I de ces fichiers et coller ces colonnes dans un fichier de synthèse toutes les colonnes les unes à la suite des autres.

Je parviens à ouvrir et sélectionner les colonnes de mes fichiers mais je ne parviens pas à sélectionner la dernière colonne de mon fichier de synthèse afin de coller chaque fois colonne de mes fichiers sources à la suite les unes des autres.

Pour cela, je sais qu'il faut sélectionner chaque fois la dernière colonne de mon fichier puis insérer ou coller ma colonne entière mais je ne parviens pas à le faire..

Si quelqu'un pourrait m'aider ce serait vraiment gentil !
Merci par avance

[Daranc]

après la première colonne collée

Code :

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

colonne = Range("a1").End(xlToRight).Column+1

[tom96]

Merci pour ta réponse rapide !

Et une fois que cette colonne est sélectionnée, comment je fais pour coller ?

[Daranc]

Merci pour ta réponse rapide !

Et une fois que cette colonne est sélectionnée, comment je fais pour coller ?

Code :

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

cells(1,colonne).select

et tu colles
pour toutes compréhension du principe regardes avec l'enregistreur de mcros
ps le code précédent ne sélectione pas la colonne il te donne juste la position de la colonne vide

[Menhir]

Je parviens à ouvrir et sélectionner les colonnes de mes fichiers mais je ne parviens pas à sélectionner la dernière colonne de mon fichier de synthèse afin de coller chaque fois colonne de mes fichiers sources à la suite les unes des autres.

Et une fois que cette colonne est sélectionnée, comment je fais pour coller ?

Il n'est pas nécessaire (ni même souhaitable) de sélectionner des cellules pour faire une copie ou un collage.

Code :

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

Cells(1, UsedRange.Columns + 1).PasteSpecial(xlPasteAll)

[tom96]

Il n'est pas nécessaire (ni même souhaitable) de sélectionner des cellules pour faire une copie ou un collage.

Code :

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

Cells(1, UsedRange.Columns + 1).PasteSpecial(xlPasteAll)

Excel me renvoi le message d'erreur suivant : "Erreur 424 : Objet requis" je ne vois pas d'où cela peut venir ..

[Marc-L]

Bonjour,

comme pourtant indiqué dans l'aide VBA interne - suffit de la lire ! - il manque la référence de la feuille de calculs devant UsedRange …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …