[vba][error]run time error 91 object variable or with block

Version imprimable

salut,

c est une fonction qui si une feuille avec un nom precis existe alors je le supprime

et j ai ce message erreur:

run time error 91 object variable or with block variable not set

voila mon code peut etre vous verrez mieux que moi le pb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 
Public Sub SheetControlInvoiceExist()
' cette fonction permet de tester si la feuille control inovice existe
 
Dim mysheet As Worksheet
Dim msg As String ' mon message
Dim reponse
 
 
msg = " Une feuille ' Control Invoice ' est déjà voulez vous la supprimer ? ( An Excel sheet already exists ,do you want to delete it ? ) "
 
 
    If mysheet = Sheets("Control Invoice") Then 'si il y a deja une feuille control invoice
 
 
 
        If MsgBox(msg, vbYesNo) = vbYes Then ' le user clic sur yes
 
        Sheets("Control Invoice").Delete
 
        MsgBox (" la feuille Excel 'Control Invoice' a été supprimé avec succès ( The Excel sheet ' Control Invoice 'deleted successful ) ")
 
        Else ' le user a choisit non
        End If
 
    Else ' il n y a pas de feuille excel control invoice
    End If
 
 
End Sub

merci ;)

29/03/2006, 14h23
pgz

Bonjour,

Tu pourrais dé"jà compléter l'instruction

Code:

dim repose

Question : ton code est dans un module xl ou access?

Bon courage,

pgz
29/03/2006, 14h43
seacat

bonjour,

c'est ton "mysheet" qui pose pb

va voir dans l'aide d'excel en tapant "worksheet" ou " nom feuille"
il y a des rubriques interessantes
notamment possibilité de faire référence à une feuille par son nom

ex ActiveCell.Worksheet.Name

ou par son n° (ex Worksheets(1).Activate)

Attention dans ton test il va te falloir prendre en compte la structure du classeur (combien de feuilles ? où se trouve 'control invoice' etc.)
30/03/2006, 09h58
megapacman

je pensais que cela était plus simple en donnant juste le nom de la feuille

si le nom de la feuille = vrai (alors presente ) je supprime sinon rien

est-ce que ca peux marché comme ca ?
30/03/2006, 13h26
seacat

en gros oui mais il y a une syntaxe a respecter.

ok j ai fait une fonction qui teste l existence de ma feuille excel

car si elle existe alors je doit la supprimée sinon rien cela donne ca , ca a l'air de fonctionner :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Public Function SheetExist(sheetname As String) As Boolean ' passage parametre le nom du sheet voulu "Control Invoice" return un boolean
' cette fonction permet de tester si la feuille control inovice existe ou pas
 
 
            SheetExist = False ' boolean = false
            Debug.Print SheetExist
 
            On Error GoTo ErrorsheetexistFin
            If Len(Sheets(sheetname).Name) > 0 Then ' si la longueur du nom de la feuille
 
                SheetExist = True
                Debug.Print SheetExist
 
                Exit Function
 
            End If
 
 
ErrorsheetexistFin:
 
End Function

je l exploite comme ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
   'appel de la fonction qui teste si la feuille Excel control invoice exist
            If SheetExist("Control Invoice") = False Then ' n'existe pas
 
            MsgBox (" n' existe pas ")
 
            Else ' existe
 
            Sheets("Control Invoice").Delete
            MsgBox ("control invoice supprimée")
 
            End If

par contre lorsqu'il delete j ai toujours le message excel qui me demande de supprimer comment je peux faire pour enlever le message

merci ;)

04/04/2006, 14h17
seacat

hello,

J'ai trouvé ça, et en plus ça fonctionne ! :D

Citation:

Lors de la suppression d'un objet Workbook ou Worksheet, une boîte de dialogue s'affiche et invite l'utilisateur à confirmer la suppression. Cette boîte de dialogue s'affiche par défaut. De plus, lorsque vous appelez cette méthode sur ces objets, elle renvoie une valeur de type Boolean : False si l'utilisateur a cliqué sur Annuler ou True s'il a cliqué sur Supprimer.

La suppression d'un objet Point ou LegendKey supprime toute la série.

Vous pouvez supprimer des propriétés de document personnalisées mais vous ne pouvez supprimer une propriété de document prédéfinie.

Vous pouvez uniquement supprimer les objets CubeField que vous avez vous-mêmes créés au moyen de la méthode CalculatedMember.Add et de l'argument xlCalculatedSet.

Exemples
Cet exemple montre comment supprimer les cellules A1 à D10 de Sheet1 puis décaler les cellules restantes vers la gauche.

Worksheets("Sheet1").Range("A1:D10").Delete Shift:=xlShiftToLeft

Cet exemple montre comment supprimer la feuille de calcul Sheet3 du classeur actif sans afficher la boîte de dialogue de confirmation.

Application.DisplayAlerts = False
Worksheets("Sheet3").Delete
Application.DisplayAlerts = True

merci oui exacte ca fonctionne bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
 
Application.DisplayAlerts = False ' enleve les messages d'alertes excel notamment lors on delete le sheet control invoice
 
            'appel de la fonction qui teste si la feuille Excel control invoice exist
            If SheetExist("Control Invoice") = False Then ' n'existe pas
 
            MsgBox (" n' existe pas ")
 
            Else ' existe
 
            Sheets("Control Invoice").Delete
            MsgBox ("control invoice supprimée")
 
            End If
            Application.DisplayAlerts = True ' remet les messages d'alertes excel

merci c cool ;)