Bonjour,
J'aimerais passer d'Excel à Calc d'Openoffice (un peu las d'enrichir M. Gates). J'ai une vieille macro que j'ai bâti il y a 5 ans déjà qui même avec Option VBASupport 1 n'arrive pas à s'accomplir.

Voici la chose:


Sub Nvfle()

Dim vNomFichier As String
Dim vChemin As String


Worksheets.Select
Range("A5:E54,H5:H54,B3").Select
Selection.ClearContents
Range("AA4").Select
Selection.Copy
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.NumberFormat = "d mmmm yyyy"
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range ("A5").Select

vNomFichier = "Fleacol" & Format (Now(), "yymmdd")
vChemin = "C:\backup1xls\"

MsgBox "Le chemin et le nom du fichier sera: " & vChemin & vNomFichier, vbOKOnly, "Nom du fichier"

ActiveWorkbook.SaveAs Filename: = vChemin + vNomFichier

End Sub



Avec Option VBASupport 1 la macro se rendait à la ligne ActiveWorkbook... et s'y bloquait. Le langage ooobasic me semble assez obscur et n'ai plus la patience de me taper le tutoriel.

Merci à l'avance

Marfo

Configuration: Windows XP
Firefox 3.5.4