Pages

Affichage des articles dont le libellé est boîte. Afficher tous les articles
Affichage des articles dont le libellé est boîte. Afficher tous les articles

LA BOITE AUX LETTRES. sujet

mercredi 29 janvier 2014




SALAM


La boîte aux lettres



Un homme était en train de tondre sa pelouse, quand tout à coup, il fut distrait par son attrayante voisine.

Elle sort de sa maison et se dirige directement vers sa boîte à lettres qui se trouve à l’entrée de son terrain. Elle l’ouvre et referme aussitôt la boîte aux lettres.

Un peu plus tard, elle ressort de la maison et se dirige, d’un pas pressé, vers sa boîte à lettres, et encore la rouvre et la referme violemment.

Elle s’en retourne furieuse à l’intérieur de la maison.

Comme l’homme achevait de tondre sa pelouse, revoilà sa voisine qui ressort de la maison, marchant rageusement vers sa boîte à lettres, la rouvre et la referme très fortement.

Intrigué par son comportement, notre homme s’avance et demande :
- Y a-t-il quelques choses qui ne va pas, chère voisine !, vous attendez peu-être un courrier ou un paquet urgent ?

La blondinette se retourne, et toujours fulminant elle lui répond :
- Certainement, que ça ne va pas ! Mon ordinateur stupide n’arrête pas de me dire «Vous avez du courrier !»…




XL 2013 Boite de dialogue Ouvrir un fichier - GetOpenFilename sujet




Bonjour à tous,

Je travaille sous excel 2013.
J'ai développé une macro destinée à ouvrir un fichier excel nommé "listes.xlsm "
Le code se trouve ci-après, je l'ai adapté d'après des exemples trouvés sur internet.
je souhaite l'ouverture de mon fichier sans intervention de l'utilisateur, or, la macro m'affiche systématiquement la boite de dialogue ouvrir un fichier.
Comment faire pour éviter son affichage ?

Par ailleurs si le fichier "listes.xlsm" est déjà ouvert la macro ne doit pas fonctionner. Là aussi je ne sais comment procéder.


Code :


Nom_fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsm), *.xlsm")
If Nom_fichier <> False Then
    Set wbMyWB = Workbooks.Open("D:\LBT\annexes\listes.xlsm")
    wbMyWB.Activate
End If



D'avance merci pour votre aide.

Nicolas