Erreur 35

[Ilino]

Bonjour Forum
que signifier cette erreur?

Erreur d’exécution '35'

merci

 

[Efgé]

Re : Erreur 35

Bonjour
D'après le principal interressé Ce lien n'existe plus
Il doit s'agir d'une faute de frappe...
Si tu veux écrire par exemple CDate(toto) et que tu écris CDrate(Toto) VBA cherche la prcédure CDrate, et ne la trouve pas 😀
Cordialement

 

[Ilino]

Re : Erreur 35

Bonjour EFGé
GRAZIE justement je suis entrain de verifier mon code
il est exécutable ça fonctionne 😕mais il afficher après un bug de ce genre

Erreur d’exécution '35'
Sub ou fonction non définie

A+

 

[Efgé]

Re : Erreur 35

RE
Lors du blocage une ligne doit être surlignée. C'est là que la faute se trouve.
Cordialement

 

[Ilino]

Re : Erreur 35

Re
Sub copie()
Dim wbks As Workbook, adr$
ActiveSheet.Unprotect ""
If Feuil1.ComboBox1 <> "" Then
Set wbks = ThisWorkbook
adr = ThisWorkbook.Path & "\"
chemin = Replace(Feuil1.ComboBox1, "/", "-")
ActiveWorkbook.SaveAs (adr & chemin & ".xlsm") ' a ce niveau la
With ActiveWorkbook.Sheets("Département Etudes")
.Shapes("ComboBox1").Delete
.Shapes("Bt1").Delete
Call Ajouter_TextBox
Call Sup
End With
ActiveWorkbook.Save
End If
ActiveSheet.Protect ""
End Sub
NB mais le code ça fonction bien

 

[Guest]

Re : Erreur 35

Bonjour,

Enlève les parenthèses :

ActiveWorkbook.SaveAs adr & chemin & ".xlsm"

Et vérifie le contenu de adr & chemin

A+

 

[Ilino]

Re : Erreur 35

Bonjour Hasco
ça n'a rien changé.

 

[Efgé]

Re : Erreur 35

Re, Bonjour Hasco 🙂
Peut être:
ActiveWorkbook.SaveAs adr & chemin & ".xlsm" , FileFormat:=52
Cordialement

 

[Ilino]

Re : Erreur 35

Re
Merci pour vos contributions Efgé, HASCO
Mais ça n'a rien changé 🙁
A+

 

[Efgé]

Re : Erreur 35

Re
Alors juste avant la ligne qui pose problème mets:

MsgBox adr & chemin & ".xlsm"

et dis nous ce que ça donne...

PS : Il doit y avoir une erreur dans ma proposition précédente. Essai

ActiveWorkbook.SaveAs Filename:=adr & chemin & ".xlsm", FileFormat:=52

Cordialement

 

[Ilino]

Re : Erreur 35

Re

Re
Alors juste avant la ligne qui pose problème mets:

MsgBox adr & chemin & ".xlsm"

et dis nous ce que ça donne...
Cordialement

a ce niveau il affiche le chemin complet du classeur

 

[Ilino]

Re : Erreur 35

Re
PS : Il doit y avoir une erreur dans ma proposition précédente. Essai

ActiveWorkbook.SaveAs Filename:=adr & chemin & ".xlsm", FileFormat:=52

Cordialement

The same Pblm a ce niveau
si joint mon fichier
Ce lien n'existe plus
Merci

 

[Efgé]

Re : Erreur 35

Re
Dernière tentative:
As tu enrgistré une macro en enregistyrant le classeur en .xlsm ?
Regarde le code que te donne l'enregistreur et vérifi ce que tu as fais

Bon courage.

Cordialement

 

[Ilino]

Re : Erreur 35

Re
Merci encore Efgé
mais comme j'ai signalé dans le post #3

... il est exécutable ça fonctionne mais il afficher après un bug de ce genre...

A+

 

[job75]

Re : Erreur 35

Bonjour Ilino, Efgé, Hasco,

L'erreur se situe en fait dans la macro Sup.

Elle doit supprimer le code de la Workbook_Open mais il n'existe pas.

Car il a été mis en commentaire !

A+