Copié-collé colonnes d'un fichier à un autre

Bonjour chers esprits créatifs,

Je souhaite copier la colonne "A" de mon fichier "1" de ma feuille "a" dans la colone "B" de mon fichier "2" dans la feuille "b".

Fichier 1= N80_PdM_global_V8.6

fichier 2 = fichier actif

Voici mon code,

code :

Sub test()

Dim Nom As String
Nom = "N80_PdM_global_V8.6.xlsx"

Set rangeA = Range("A:A")

Workbooks("Nom").Worksheets("PdM").rangeA.Copy   '<--- bug sur cette ligne je pense...

ThisWorkbook.Worksheets("DATA").Range("A1").Select

ActiveCell.PasteSpecial Paste:=xlPasteValues

End Sub

Je ne comprend pas mon erreur...

PS : je début en VBA donc désolé si mon code n'est pas super optimisé ^^'

Merci par avance pour votre aide.

Bonjour

a priori l'erreur se trouve ici :

Workbooks("Nom")

Là il attend un fichier dont le nom est "nom" toi tu veux N80_PdM_global_V8.6 qui est mémorisé dans la variable nom donc il faut enlever les guillemets et donc faire :

Workbooks(Nom)

Fred

Bonjour Fred,

Merci pour ta réponse !

Visiblement ce n'est pas la seule erreur de ma ligne... ou de mon code ^^'

J'ai toujours un bug...

Re,

Le fait que mon fichier "N80_PdM_global_V8.6" soit ouvert en lecture seul peut-être un problème ou pas ?

Euhhh a priori non

je viens de relire la ligne complète de ton code et il y a effectivement une autre erreur : remplace

Workbooks(Nom).Worksheets("PdM").rangeA.Copy

par

Workbooks(Nom).Worksheets("PdM").range("A:A").Copy

Fred

Première étape validée ! Merci !!

Maintenant ça bloque sur celle là :

ThisWorkbook.Worksheets("DATA").Range("A:A").Paste

Je te remet le code complet ici :

Sub test()

Dim Nom As String
Nom = "N80_PdM_global_V8.6.xlsx"

Set rangeA = Range("A:A")

Workbooks(Nom).Worksheets("PdM").Range("A:A").Copy

ThisWorkbook.Worksheets("DATA").Range("A:A").Paste

ActiveCell.PasteSpecial Paste:=xlPasteValues

End Sub

Je te remerci pour ton aide et ton temps :)

Problème résolut !

Code ci-dessou bon :

Sub test()

Dim Base As String
Base = "N80_PdM_global_V8.6.xlsx"
Dim Interface As String
Interface = "Interface Maintenance FSW_V1"

Set rangeA = Range("A:A")

Workbooks(Base).Worksheets("PdM").Range("A:A").Copy

Workbooks(Interface).Worksheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteValues

End Sub

Merci pour l'aide :)

Problème résolut !

Code ci-dessou bon :

Sub test()

Dim Base As String
Base = "N80_PdM_global_V8.6.xlsx"
Dim Interface As String
Interface = "Interface Maintenance FSW_V1"

Set rangeA = Range("A:A")

Workbooks(Base).Worksheets("PdM").Range("A:A").Copy

Workbooks(Interface).Worksheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteValues

End Sub

Merci pour l'aide :)