Bonjour,

J'ai crée une macro pour quelqu'un, mais il n'arrive pas a l'ouvrir sur son pc. Le fichier que je lui ai envoyé à été fait sous xp, enregistré en format excel 95/2002. Lors de l'ouverture un message d'erreur apparaît.

Je vous joint le code de la macro, en esperant qu'un de vous puisse m'aider !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub addapge()
'
' addapge Macro
' Macro enregistrée le 04/10/2007 par Admin
Sheets("S1").Select
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "S" & Sheets.Count - 1
'
 
Cells.replace What:="S" & Sheets.Count - 3, Replacement:="S" & Sheets.Count - 2, LookAt:=xlPart, SearchOrder _
        :=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
        False
 
    Range("E4").Select
    ActiveCell.FormulaR1C1 = Sheets.Count - 1
 
 
 
End Sub
Merci , Craac.