Bonjour à ts,
Voila g tjrs le même pb, mais g changé la maniere de faire: je fait une copie du fichier source complet et puis j'ouvre le fichier resultat et puis j'efface les colone dont g pas besoin.
en fait j'arrive à faire la copie et puis ouvrire le fichier, mais pour effacer les colones non desirables (à partir de la Niéme colone jusqu'à la fin) je c pas encors comment faire. alors si vous pouvez m'aider svp je vous en serais vraiment tres reconaissant.
voici la partie du code pour faire une copie du fichier et puis l'ouvrire, elle marche normalement. et si vous avez d'autre suggestions n'esitez pas.
Sub test()
Dim obj
Dim fic
Set obj = CreateObject("Scripting.FileSystemObject")
Set fic = obj.GetFile("C:\reptest\titi.xls")
fic.Copy "C:\reptest\toto\"
Workbooks.Open fic
End Sub
Je vous remercie d'avance.
erman