Activation de Fichier

cycytoulouse Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai créé une macro qui va ouvrir des fichiers excel utilisateurs afin d'aller chercher l'information et la consolider dans mon "Master" fichier. La macro jongle ainsi avec les fenetres.

Tout marche trés bien chez moi, mais lorsque ma collegue l'utilise ce ne fonctionne plus.
La raison est que chez elle, les noms des fichiers sont affichés avec leur extension ( .xlsm) et chez moi juste avec leur nom. Donc lorsque la macro tourne chez elle , elle bug sur windows(xxx).Activate car je n'y ai pas mis l'extension.

Sauriez vous comment gérer ce type de problemes s'il vous plait ?
A voir également:

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

et chez moi juste avec leur nom.
Pouvez faire une recopie du haut de fenetre pour voir la chose car jamais vu jusqu'a maintenant
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Faites ce test: pour voir
Sub test()
    x = Application.Caption
End Sub
0
cycytoulouse Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
aprés recherche j'ai modifié mon code qui s'avère un peu archaique, en déclarant mes workbook en debut de code avec set MonFichier = activeworkbook ou = C:\....\MonFichier.xls . De la sorte en utilisant MonFichier.Activate ca fonctionne bien.
Merci d'avoir pris le temps de me lire .
Bon Aprem
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > cycytoulouse Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
j'allai, en effet, suggérer d'utiliser des workbooks plutôt que des fenêtres.
lisant ta dernière intervention, je te suggère d’améliorer en supprimant les .Activate et en utilisant directement les workbooks.
si tout fonctionne, peux-tu marquer comme résolu, en utilisant la roue dentée à droite du titre?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Bye..............
0