Utiliser une colonnes entière issue d'un 2é fichier Excel

Bonjour

Je voulais savoir comment déclarer une colonne externe en vba. (colonnes B1:b4)

Le fichier se trouve dans c:colonnes.xls

Je doit inserrer l'expression dans le Code vb

Merci

Re,

Doublons de post ..

https://forum.excel-pratique.com/excel/copier-une-colonnes-entiere-sans-la-souris-t32692.html

Un exemple :

Sub Test()
Dim monfichierencours As Workbook
Dim monautrefichier As Workbook
Set monfichierencours = ActiveWorkbook 'monfichierencours est le fichier que je suis en train d'utiliser
'Set monautrefichier = Workbooks.Open("c:\test\FichierColonneB.xls") 'On ouvre l'autre fichier en écriture si besoin
Set monautrefichier = Workbooks.Open("c:\test\FichierColonneB.xls", , True) 'On ouvre l'autre fichier en lecture seul

'On copie les valeurs de la plage de cellule B1->B5 de la Feuil1 de l'autre fichier a partir de la  cellule B2 de l'onglet Feuil2 du fichier en cours d'utilisation
monautrefichier.Worksheets("Feuil1").Range("B1", "B5").Copy
monfichierencours.Worksheets("Feuil2").Range("B2").PasteSpecial xlPasteAll

'On ferme l'autre fichier
monautrefichier.Close True

End Sub

Dis moi

Damien

salut

désolé pour les doublons !!! Lol

Encore une fois! je met encore plus de temps que prévue ,

et je ne peut pas te donner d'impression

Donc comme je le disais dans un autre post, j'essaie de faire marcher plusieurs codes différent en même temps (que tu à créé), donc j’espère bien réussir demain et de te tenir donc au courant rapidement

Se code ressemble bien à celui que tu ma présenté dans l'autre post (à première vue ..)

Sa ma donné du boulot merci !

Salut,

Pas de problème.

Si tu galères , demande.

Damien

Salut

Aparament sa a bien l'aire de correspondre

Bonsoir ,

Sa y est je viens enfin de réussir à le faire fonctionner !!!

j'ai passer 15 mn à cause d'une erreur dans le nom de fichier ( il manquais un "\") Lol!!

Re,

Peux tu cliquer sur résolu alors ?

Damien

salut

le bouton résolu n'apparaît plus ( il doit être déjà validé en résolu)