J'ai développé une application sous Excel 2000. J'ai utilisé la fonction
split et CommandBars.FindControls(Id:=3).
Le problème est que, lors de l'ouverture de mon fichier sous Excel 97, eh
bien, il dit cela :
La fonction "split" n'existe pas !!
"FindControls" n'existe pas non plus !
Y a t'il un moyen de remplacer ces deux expressions ?
Pour remplacer FindControls, je ne vois que ce genre de boucle (à adapter à ton besoin) :
Sub test() Dim Bar As CommandBar, Ctrl As CommandBarControl, S$ For Each Bar In Application.CommandBars For Each Ctrl In Bar.Controls If Ctrl.ID = 3 Then S = S & Bar.Name & " : " & Ctrl.Caption & vbLf End If Next Ctrl Next Bar MsgBox S End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai développé une application sous Excel 2000. J'ai utilisé la fonction split et CommandBars.FindControls(Id:=3). Le problème est que, lors de l'ouverture de mon fichier sous Excel 97, eh bien, il dit cela :
La fonction "split" n'existe pas !! "FindControls" n'existe pas non plus !
Y a t'il un moyen de remplacer ces deux expressions ?
Merci d'avance pour vos réponses.
Bonjour,
Plusieurs solutions de substitution à la fonction Split pour Excel 97 :
Pour remplacer FindControls, je ne vois que ce genre de boucle (à adapter à ton
besoin) :
Sub test()
Dim Bar As CommandBar, Ctrl As CommandBarControl, S$
For Each Bar In Application.CommandBars
For Each Ctrl In Bar.Controls
If Ctrl.ID = 3 Then
S = S & Bar.Name & " : " & Ctrl.Caption & vbLf
End If
Next Ctrl
Next Bar
MsgBox S
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai développé une application sous Excel 2000. J'ai utilisé la fonction
split et CommandBars.FindControls(Id:=3).
Le problème est que, lors de l'ouverture de mon fichier sous Excel 97, eh
bien, il dit cela :
La fonction "split" n'existe pas !!
"FindControls" n'existe pas non plus !
Y a t'il un moyen de remplacer ces deux expressions ?
Pour remplacer FindControls, je ne vois que ce genre de boucle (à adapter à ton besoin) :
Sub test() Dim Bar As CommandBar, Ctrl As CommandBarControl, S$ For Each Bar In Application.CommandBars For Each Ctrl In Bar.Controls If Ctrl.ID = 3 Then S = S & Bar.Name & " : " & Ctrl.Caption & vbLf End If Next Ctrl Next Bar MsgBox S End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai développé une application sous Excel 2000. J'ai utilisé la fonction split et CommandBars.FindControls(Id:=3). Le problème est que, lors de l'ouverture de mon fichier sous Excel 97, eh bien, il dit cela :
La fonction "split" n'existe pas !! "FindControls" n'existe pas non plus !
Y a t'il un moyen de remplacer ces deux expressions ?
