salut cathy voila g encore un ptit soucy
voila ma macro
Private Function getWorksheet(ByVal iName As String) As Worksheet
On Error GoTo WorksheetExistError
Dim MyWorksheet As Worksheet
Set MyWorksheet = Worksheets(iName)
MyWorksheet.Cells.Select
'Selection.
Selection.ClearContents
Set getWorksheet = MyWorksheet
Exit Function
WorksheetExistError:
Sheets.Add.name = iName
Set getWorksheet = Worksheets(iName)
End Function
elle me renvoie un worksheet nomé "resultquery" si le worksheet n'existe pas, si il existe, elle efface le contenu et me le renvoie
le pbm c ke ca marche a tt les coups : qd je suis sur mon ecran sur la feuille "ResultQuery" ca marche parfaitement, mais qd je change de feuille et ke je lance la macro il me balance une erreur
peut tu m'aider plzzzz
merci