Bonjour tout le monde,
Je recois un fichier (Fiche 1 par ex) que je ne peux importer avec Access, je crée donc un modéle (Retour) qui lui permet d'être importé. Sur le Fiche 1 je supprime la 1ere ligne, puis je sélectionne tous, copie/colle dans le fichier Retour cellule A2 (enregistreur de macro)
J'aimerais d'abord avoir le code pour afficher une fenêtre de recherche du fichier. (Fiche 1 ne s'appelle pas toujours Fiche 1) . Et aussi lorsque je fais la sélection (Ctrl+A) sa me prend tous mais avec l'enregistreur sa prend en faite que ma sélection A1:AH30 par exemple donc si c'est plus grand sa passe pas. J'ai bien aggrandie jusqu'a 2500 mais il doit yavoir une astuce un peu plus beaucoup mieux much better...

Sub PréparationRetour()
'
' PréparationRetour Macro
'

'
Windows("Zone 1.xls").Activate '<---Zone 1 c'est mon fichier de test ( pb il ne s'appelle pas tous comme sa! Comment faire pour ouvrir un fenêtre de recherche et qu'il travail dans celle-ci?) Columns("AE:AH").Select
Selection.Delete Shift:=xlToLeft
Columns("AB:AB").Select
Selection.Cut
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Windows("Retour.xls").Activate
Windows("Zone 1.xls").Activate
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1:AD319").Select '<- Ici faire une sélection intelligente
Selection.Copy
Windows("Retour.xls").Activate
ActiveSheet.Paste
End Sub

merci d'avance
Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.
-Coluche-

Configuration: Une bonne bébétte bien docile ;-)