Bonjour à tous,

j'ai un script VBS qui effectue une série de copier/coller par valeur entre 2 fichiers excel. Il fonctionnait bien avant. Depuis ce matin, j'ai des erreurs :

Microsoft Excel : La méthode PastSpecial de la classe Range a échoué.
Voici comment j'ouvre mes 2 fichiers excel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
' Ouverture des fichiers
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = DEBUGEXCEL
oExcel.DisplayAlerts = False
oExcel.Workbooks.Open( sPathFileExcel  )
oExcel.Workbooks.Open( sPathFileResume )
sWorksheetExcel = oExcel.Workbooks(1).Name
sWorksheetResume = oExcel.Workbooks(2).Name
oExcel.Workbooks(sWorksheetExcel).Activate
Voici comment je fais mon copier/coller :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
oExcel.Workbooks(sWorksheetExcel).Activate
oExcel.Workbooks(sWorksheetExcel).Worksheets("Tarif").Range(sAdsFourn & "4:" & sAdsFourn & nLastLine).Copy
oExcel.Workbooks(sWorksheetResume).Activate
oExcel.Workbooks(sWorksheetResume).Worksheets(1).Range("B1").PasteSpecial xlPasteValues, xlNone, False, False

Je dois préciser que je fais une 20aine de copier/coller un à la suite de l'autre, et mon script plante chaque fois à une étape différente : tantôt le 3ème copier/coller, tantôt le 5ème,...


Si qq1 sait me dire ce que je fais mal...

Merci d'avance,

Nico,