Windows(Monfic).Activate et Excel 2010

[choupi_nette]

Bonjour,
J'ai une macro qui contenait sous excel 2003 la fonction Windows(Monfic).Activate pour jongler entre deux classeurs
En passant sous 2010 cette fonction ne marche plus et plante
Est ce que quelqu'un saurait comment resoudre ce probleme ?
Merci d'avance pour vos reponses

 

[néné06]

Re : Windows(Monfic).Activate et Excel 2010

Bonsoir choupi_nette,

Je suis sous Excel 2010, j'utilise souvent cette fonction "Windows(Monfic).Activate" .
Je ne rencontre aucun problèmes ???

Quel message d'erreur t'affiche t-il ??

A+

René

 

[Compte Supprimé 979]

Re : Windows(Monfic).Activate et Excel 2010

Bonsoir le fil

Moi j'utilise systématiquement

Workbooks("NomClasseur").Activate

A+

 

[choupi_nette]

Re : Windows(Monfic).Activate et Excel 2010

Bonjour
Merci pour ta reponse mais si j'utilise Monfic c'est parce que le nom de mon fichier change a chaque fois...
Une autre solution peut etre ?
Merci

 

[néné06]

Re : Windows(Monfic).Activate et Excel 2010

Bonjour choupi_nette,


Tu pourrais nous communiquer la nature du ou des messages d'erreurs !

A+

René

 

[Pierrot93]

Re : Windows(Monfic).Activate et Excel 2010

Bonjour à tous,

A voir ce que vaut ta variable "MonFic" lors du plantage... avec ou sans extension (xls, xlsm)....

bonne journée
@+

 

[choupi_nette]

Re : Windows(Monfic).Activate et Excel 2010

Bonsoir,
Alors mon erreur est une "Runtime Error 13
Type Mismatch

D'apres ceertain forum Windows(Monfic).Activate ne fonctionne plus sur 2010 mais comment on fait pour gerer deux fichers ouverts en simultané avec des noms qui varient tout le temps ?
Ca marchait bien sous 2003...

@ Pierrot 93
Je ne comprends pas bien ce que tu veux dire: Si j'enleve mon extension xlsm, je ne peux plus avoir de macros actives non ?

Merci

 

[Compte Supprimé 979]

Re : Windows(Monfic).Activate et Excel 2010

Bonjour le fil

Je ne comprends pourquoi vous vous évertuez à utiliser cette instruction 😕

Voici un exemple très simple et complètement fonctionnel
Il suffit d'enregistrer les 3 fichiers au même endroit et d'ouvrir Classeur3.xlsm

A+

 

[Pierrot93]

Re : Windows(Monfic).Activate et Excel 2010

Bonjour à tous,

@ Pierrot 93
Je ne comprends pas bien ce que tu veux dire: Si j'enleve mon extension xlsm, je ne peux plus avoir de macros actives non ?

je parlais uniquement de la valeur de la VARIABLE, ne voyant pas comment tu l'initialises...

bonne journée
@+

 

[choupi_nette]

Re : Windows(Monfic).Activate et Excel 2010

Bonjour le fil,

@BrunoM45: J'ai essayé tes 3 fichiers et j'ai une Runtime error 1004 et le classeur1.xlsx could not be found...

Je ne sais pas si cela peut venir de ma config (win7 + excel 2010) mais en tous les cas ca ne fonctionne pas et je ne vois aucune raison a cela..


@Pierrot93: Je mets en PJ la macro..
Celle ci plante a l'instruction: module 2 sur les 4 dernieres lignes

Merci

 

[Pierrot93]

Re : Windows(Monfic).Activate et Excel 2010

Bonjour,

dans ce module2, tu as 2 fois la déclaration de la variable "Monfic", une fois en "public" en tête de module et une autre fois dans la procédure "recherche".... et je ne vois son initialisation que dans module1...

 

[choupi_nette]

Re : Windows(Monfic).Activate et Excel 2010

ReBonjour,
En fait je suis desolée mais en l'occurence le titre de mon post induit en erreur car c'est l'instruction :
Windows(Myfile).Activate qui plante...
De plus je ne sais pas trop comment initialiser cette variable...

Merci

 

[Pierrot93]

Re : Windows(Monfic).Activate et Excel 2010

Re,

ta variable "MyFile" n'est pas initialisée, en l'occurence renvoie "" soit un nom invalide...

 

[choupi_nette]

Re : Windows(Monfic).Activate et Excel 2010

Re,

De plus je ne sais pas trop comment initialiser cette variable...

Je suis desolée mais je ne sais pas le faire... ce qu'il faut mettre ou meme ou le mettre...

Merci

 

[Pierrot93]

Re : Windows(Monfic).Activate et Excel 2010

Re,

un exemple de code commenté :

'oblige à la déclaration de toutes les variables
Option Explicit
Sub test()
'définition et "typage" de la variable
Dim myfile As String
'initialisation
myfile = ActiveWorkbook.Name
'utilisation
Windows(myfile).Activate
End Sub