VB EXCEL fichier qui ne s'ouvre pas.Argument? Résolu

Question

Bonjour à tous, 

La semaine recommence avec son lot de casses-tête, entre autre:
j'ai un fichier excel avec une macro relativement simple qui récupère les données du feuillet 1, pour les copier dans les feuillets 2 et 3. Le truc le + complexe, c'est que j'ai une fonction. Bref, quelque chose de simple. Cela fonctionne parfaitement sur un paquet de PC, mais pas sur d'autres. Et ce qui se passe est étrange: il ouvre le fichier, on voit la page mais sans le bouton qui permet d'exécuter la macro, puis il mouline, il mouline, il mouline... et il mouline à l'infini jusqu'à écrire "Excel ne répond plus"... :-( Ctrl Alt Supp et c'est reparti. 

Les 2 PC sont sous Office 2003, la petite différence est que l'un deux est dans une version Pack Basic. 
J'ai déjà exploité d'autres fichiers sur ce PC avec macros, et cela fonctionnait sans pb. 

Si vous avez déjà eu ce problème, je vous serais très reconnaissante de m'aider. ;-)) J'ai vu dans un autre forum que quelqu'un avait eu ce pb à cause d'arguments dans une fonction, mais je ne vois pas ce que je peux changer. Je débute en VBA, pas facile!

Voici la fonction qui pourrait poser pb:

Function SheetExist(ByRef Name As String) As Boolean
Dim i As Integer
For i = 1 To Worksheets.Count
If StrComp(Worksheets(i).Name, Name, vbTextCompare) = 0 Then
SheetExist = True
Exit Function
End If
Next i
End Function


Bonne soirée

Utilisateur anonyme · Answer

Bonjour,

Tu utilises un mot réservé pour déclarer une variable argument !

Comment cela a-t-il fonctionner ? Je donne ma langue au chat !

Function SheetExist(ByRef Name As String) As Boolean

Le mot [ Name ] est un mot réservé servant de propriété pour
nommer un objet.

Utilise plutôt :

Function SheetExist(ByRef MyName As String) As Boolean

Second point :

Il n'est pas nécessaire de passer l'argument [ ByRef ],
tu n'as pas à modifier ce nom il me semble, le paramètre
peut-être passer avec le paramètre [ ByVal ].

Et voici ma façon de procéder :


Option Explicit

Function SheetsExists(ByVal MyName As String) As Boolean

    Dim MySheet As Worksheet
    
    SheetsExists = False
    For Each MySheet In ThisWorkbook.Worksheets
        If (MySheet.Name = MyName) Then
            SheetsExists = True
            Exit For
        End If
    Next

End Function
'

Lupin

Utilisateur anonyme · Answer

re:

Bien que j'ai une critique sévère sur le code, ne t'en fait pas,
car moi aussi, j'ai été débutant et j'ai eu aussi, en mon temps
des personnes qui m'ont aidé et expliqué les choses !

Ceci dit, excuse mon texte si celui-ci est parfois trop critique !

Bonne soirée.

Lupin

Utilisateur anonyme · Answer

re:

Quelques variantes :


Function SheetsExists(ByVal MyName As String) As Boolean

    Dim MySheet As Worksheet
    
    SheetsExists = False
    For Each MySheet In ThisWorkbook.Worksheets
    'For Each MySheet In ActiveWorkbook.Worksheets
    'For Each MySheet In Workbooks("MonFichier.xls").Worksheets
        If (MySheet.Name = MyName) Then
            SheetsExists = True
            Exit For
        End If
    Next

End Function
'


ce fut un plaisirs :-)

Bonne continuité.

Lupin

Utilisateur anonyme · Answer

Bonjour Ludivine,

D'un premier coup d'oeil, je dirais
que la fonction ne cherche pas dans
le bon classeur.

L'instruction suivante s'applique
au classeur actif.

For Each MySheet In ActiveWorkbook.Worksheets

La solution est de passer le classeur en paramètre :

Function SheetsExists(ByVal MonClasseur As Workbook, _
                      ByVal MyName As String) As Boolean

    Dim MySheet As Worksheet, Classeur As String
    
    Classeur = ActiveWorkbook.Name
    MonClasseur.Activate
    SheetsExists = False
    For Each MySheet In MonClasseur.Worksheets
        If (MySheet.Name = MyName) Then
            SheetsExists = True
            Exit For
        End If
    Next
    Workbooks(Classeur).Activate

End Function
'

Lupin

Utilisateur anonyme · Answer

re :

Voilà un exemple :

n.b. J'ai ajouté l'instruction [ Ucase ], au cas ou il y aurait un problème de majuscule/miniscule.


Option Explicit

Sub Test()
    If SheetsExists(Workbooks("fichiertest.xls"), "test") Then
        MsgBox ("ok")
    Else
        MsgBox ("faux")
    End If
End Sub
'

Function SheetsExists(ByVal MonClasseur As Workbook, _
                      ByVal MyName As String) As Boolean

    Dim MySheet As Worksheet
    
    MsgBox (MonClasseur.Name)

    SheetsExists = False
    For Each MySheet In MonClasseur.Worksheets
        If (UCase(MySheet.Name) = UCase(MyName)) Then
            SheetsExists = True
            Exit For
        End If
    Next

End Function
'

Lupin

Utilisateur anonyme · Answer

re:

J'en conviens c'est assez nébuleux et je ne connais pas l'historique des postes,
le type d'installation, etc ...

En fait, lorsque je t'ai proposé de passer le nom du classeur en paramêtres
j'avais une idée derrière la tête bien sur.

Je ne connais que très peu l'utilisation d'un fichier du type [ *.xlb ], les barres
d'outils si je ne m'abuse, je connais très bien les [ *.xla ] et [ *.xlt ].
Et je n'utilise pas non plus les fichier [ perso.xls ] placé dans le répertoire
XLStart du système.

Donc, quand to ouvre Excel, tous les XLA chargés peuvent  être adressé
comme des "workbooks" sous VBA.

D'un poste à l'autre, beaucoup de chose peuvent influencer,
différentes macros complémentaires ou références VBA
supplémentaires demanderont d'être plus explicite dans le code pour ne pas
confondre les "espaces de noms", plusieurs classeurs peuvent aussi
être ouvert au moment de faire appel à la fonction, le niveau de sécurité
pourrait aussi être en cause.

Si tu souhaite creusé la question, voici une suggestion :

En passant une troisième variable passer par [ Référence ] [ ByRef ].

À noter que l'on place toujours le paramêtre [ ByRef ] en fin de liste de déclaration :

Mauvaise syntaxe :

Function SheetsExists(ByRef Liste As String, _
	  ByVal MyName As Workbook) As Boolean


Bonne syntaxe :

Function SheetsExists(ByVal MyName As String, _
	  ByRef Liste As String) As Boolean

    Dim MySheet As Worksheet
    
    SheetsExists = False
    For Each MySheet In ActiveWorkbook.Worksheets
           Liste = Liste & MySheets.Name & vbLf


Ainsi, au retour de l'appel, il suffit de lancer un
MsgBox Liste

Lupin

VB EXCEL fichier qui ne s'ouvre pas.Argument?

6 réponses

Newsletters