macroVBA Pascal76

[yvon51]

bonjour Pascal,

je galère dur dur!

je n'arrive pas à démarrer la macro dans le classeur joint.

toutes les lignes sont en vert. normal??

c'est le fichier que tu m'a renvoyé vendredi en fin d'après midi.

merci
yvon

 

[Dan]

Bonjour,

Dans sub "ouvrir" et à partir de la 1ère instruction "applications ...) il te faut supprimer tous les " ' " en vert.

Actuellement tu as :

' Application.CommandBars("Visual Basic").Visible = True

et il te faut

Application.CommandBars("Visual Basic").Visible = True

@+

Dan

 

[yvon51]

merci Dan
je fais

yvon

 

[Pascal76]

Salut Yvon

Le but de la macro, si mes souvenirs sont bons malgrè le WE, était de démarrer automatiquement le fichier où se trouve les données.

Donc la macro se trouvait sur This Workbook et à l'ouverture de Ton classeur il ouvrait le classeur1 des données et à la fermeture il le fermait.

ta macro ouvrir dans le but recherchée n'avait plus de raisons d'être donc je te l'avais mis en commentaire.

Par contre il faudrait faire des tests dans les macros se trouvant dans This Workbook pour éviter les bugs si par exemple le fichier des données estr déjà fermé.

@ ++

Pascal

Je te remets le fichier avec une modif car les macros d'ouverture et de fermeture ne se trouvaient pas au bon endroit

 

[yvon51]

bonjour Pascal

merci d'être ici

à nouveau un fichier zip avec mon problème

yvon

 

[Pascal76]

Pour savoir quoi écrire exactement tu te mets sur un classeur excel vierge.
Tu mets l'enregistreur de macro en marche et tu ouvres ton classeur de données.

Ensuite tu ferme ton enregistreur de macro et dans vba tu verras le code exact avec ton chemin pour ouvrir ton fichier.

Ce sera plus facile car moi je ne connais pas la configuration de ton explorateur avec le nom et les lettres de tes serveurs.

Si leslettres d'attribution de tes serveurs peuvent changer d'un user à un autre mets plutot le chemin à la place de la lettre

@ +

Pascal

 

[yvon51]

Pascal

voilà le fichier modifié en suivant la manip que tu m'as donné.

yvon

 

[Pascal76]

En principe ta ligne qui bug doit être comme ceci pas comme tu l'écris :

ChDir "H:\rhl-com\Fichiers_Evolutifs_Yvon\préparation note de frais"

ou pour remplacer H:

ChDir "\\Dd51s02\Dd51commun$\rhl-com\Fichiers_Evolutifs_Yvon\préparation note de frais
Workbooks.Open FileName:="\\Dd51s02\Dd51commun$\rhl-com\Fichiers_Evolutifs_Yvon\préparation note de frais\Classeur1.xls"



@ +

Pascal

 

[yvon51]

bonjour Pascal

ça marche,

je te tiens au courant car je vais changer les fichiers d'endroits pour les rendre opérationnels.

je t'écrirai jeudi ou vendredi car je pars maintenant pour 2 jours à Paris au ministère (avec ma directrice, excuse moi du peu).

je te remercie vivement.

yvon51

 

[Pascal76]

Salut

Ok

Bon voyage

Pascal