Bonjour,
Je possède un complément xla qui me permet d'exporter certaines données dans un autre classeur excel sous un certain format.
Lorsque je veux effectuer l'export, une erreur intervient dans le complément .xla :
Erreur défini par l'application ou par l'objet
Quand je met le débogage il me souligne la ligne suivante :
sVers = Split(Application.ActiveSheet.Names("Version_Programm").RefersToLocal, "=")
Je ne peux malheureusement pas vous donner le fichier car beauoup trop gros mais voici un petit bout de code
 
	
	
	
	
	
		
Apparemment ce bout de code contrôle la version du programme et la coupe en deux. Ce que je ne comprend pas c'est que quelque chose doit bien s'appeler "Version_Programm" ??
En gros je ne sais pas quoi faire ou chercher alors si quelqu'un a une petite idée où je dois aller chercher cette version du programme ou si quelqu'un comprend un petit peu qqch n'hésitez pas à m'en faire part.
Je suis navrée c'est déjà pas clair pour moi et ca doit pas être très clair ce que j'ai écris mais j'espère quand même que quelqu'un aura un bout de piste à me donner 😉
Merci d'avance pour votre aide et bon après-midi
	
		
			
		
		
	
				
			Je possède un complément xla qui me permet d'exporter certaines données dans un autre classeur excel sous un certain format.
Lorsque je veux effectuer l'export, une erreur intervient dans le complément .xla :
Erreur défini par l'application ou par l'objet
Quand je met le débogage il me souligne la ligne suivante :
sVers = Split(Application.ActiveSheet.Names("Version_Programm").RefersToLocal, "=")
Je ne peux malheureusement pas vous donner le fichier car beauoup trop gros mais voici un petit bout de code
		HTML:
	
	
	  'Wenn die Signalliste nicht die aktuelle Version ist, dann ziehen wir sie nach
    sVers = Split(Application.ActiveSheet.Names("Version_Programm").RefersToLocal, "=")
    sVersion = Replace(sVers(1), Chr(34), "")
    If Dezimaltrennzeichen <> "." Then
        dVersionProgramm = CDbl(Replace(VersionSignallistenprogramm, ".", Dezimaltrennzeichen))
        dVersion = CDbl(Replace(sVersion, ".", Dezimaltrennzeichen))
    Else
        dVersionProgramm = CDbl(VersionSignallistenprogramm)
        dVersion = CDbl(sVersion)
    End If
	Apparemment ce bout de code contrôle la version du programme et la coupe en deux. Ce que je ne comprend pas c'est que quelque chose doit bien s'appeler "Version_Programm" ??
En gros je ne sais pas quoi faire ou chercher alors si quelqu'un a une petite idée où je dois aller chercher cette version du programme ou si quelqu'un comprend un petit peu qqch n'hésitez pas à m'en faire part.
Je suis navrée c'est déjà pas clair pour moi et ca doit pas être très clair ce que j'ai écris mais j'espère quand même que quelqu'un aura un bout de piste à me donner 😉
Merci d'avance pour votre aide et bon après-midi