Salut,
merci pour ta réponse. J'ai un peu avancé dans le code. Maintenat j'arrive à créer un nouveau fichier "test.xls". Puis à copier la colonne appelé "Column 1". et ensuite je la colle dans le fichier test.xls préalablement créée
Maintenant mon but serait de trouver un moyen d'appliquer cette manip aux trois onglets du fichiers "donnees_1", "donnees_2", "donnees_3". Et de les coller dans 3 onglets différents dans le fichier. Mais je bloque dessus. Si y a moyen d'avoir un autre coup de pouce, je suis preneur.
Je mets les deux codes en dessous.
Merci d'avance.
Sub fichier()
'Set NewBook = Workbooks.Add
' With NewBook
'.Title = "test"
'.SaveAs Filename:="test.xls"
'End With
End Sub
Sub Col_Select()
Dim Cel As Range
Set Cel = Cells.Find(what:="Column 1")
If Not Cel Is Nothing Then
Cells(1, Cel.Column).Resize(Cells(Rows.Count, Cel.Column).End(xlUp).Row).Copy
Else
MsgBox "Pas trouvé le nom "
Exit Sub
End If
Workbooks("test.xls").Worksheets("Feuil1").Paste
End Sub