bonsoir
je vais chercher des valeurs d'un classeur pour les copier dans un autre...rien de bien sorcier
Windows(nom_fichier_cuit).Activate
Sheets("Recapcoliscuits").Activate
Range("D7:D56").Select
Selection.Copy
Windows("edi.csv").Activate
Worksheets("EDI").Range("D2").Select
ActiveSheet.Paste
Windows(nom_fichier_cuit).Activate
Sheets("Recapcoliscuits").Activate
Range("D67:D116").Select
Selection.Copy
Windows("edi.csv").Activate
Worksheets("EDI").Range("D52").Select
ActiveSheet.Paste
Windows(nom_fichier_cuit).Activate
Sheets("Recapcoliscuits").Activate
Range("D127:D176").Select
Selection.Copy
Windows("edi.csv").Activate
Worksheets("EDI").Range("D102").Select
ActiveSheet.Paste
Windows(nom_fichier_cuit).Activate
Sheets("Recapcoliscuits").Activate
Range("D187:D236").Select
Selection.Copy
ActiveWorkbook.Close
Windows("edi.csv").Activate
Worksheets("EDI").Range("D152").Select
ActiveSheet.Paste
Windows(nom_fichier_cuit).Activate
Sheets("Recapcoliscuits").Activate
Range("D247:D296").Select
Selection.Copy
ActiveWorkbook.Close
Windows("edi.csv").Activate
Worksheets("EDI").Range("D202").Select
ActiveSheet.Paste
Excel accepte le début et s'arrête ur la ligne surlignée et m'envoie une erreur 9.
je vois pas d'erreur dans le code étant donné que j'ai fait du copier/coller à partir du premier paragraphe et ne changeant que le range de ma sélection à copier...
Une idée? Merci
Toscane