Import de feuille avec test

Bonjour,

Je souhaite vérifier si une feuille existe dans un classeur (son nom est en A1) et proposer par msg Box yes/no de l'importer si elle

6essai-import.xlsm (35.43 Ko)

est absente, mais la boucle de test déclenche une erreur "Next sans For".

Je vous remercie pour votre aide, le fichier est en PJ

Bonjour

Essayez ceci

Sub test()
Dim i As Byte
Dim rep As Integer
Dim Existe as boolean

For i = 1 To Sheets.Count
    If Sheets(i).Name = Sheets("Feuil1").Range("A1") Then Existe = 1:Exit For
Next i
If Existe = 0 Then
    rep = MsgBox("La feuille d'import n'est pas présente dans ce classeur, souhaitez-vous l'importer ? ", vbYesNo + vbDefaultButton2)
    If rep = vbYes Then
Import:
    End If
End If
End Sub

Voir ce que vous exactement à la ligne Import

Vous êtes sous MAC je pense

Cordialement

Salut Dul,
Salut Dan,

façon de tester la présence d'une feuille apprise à la lecture d'un code de Steelson, je pense...

Sub Bouton1_QuandClic()
'
On Error Resume Next
'
With Worksheets("MAIN")
    If .[A1] <> "" Then
        If Worksheets(CStr(.[A1])) Is Nothing Then
            If MsgBox("Feuille 'Import' non présente !" & Chr(10) & "Voulez-vous l'importer ?", vbInformation + vbYesNo, "IMPORT") = vbYes Then _
                MsgBox "import en cours"
        Else
            MsgBox "La feuille " & [A1] & " est présente !"
        End If
    End If
End With
'
On Error GoTo 0

End Sub


A+

Bonjour Dan, bonjour Curulis,

Merci pour vos solution, je vais utiliser celle de Dan qui correspond exactement à ce que recherchais à obtenir. Oui je suis sur un Mac.

Cordialement.

Dul

Rechercher des sujets similaires à "import feuille test"