Bonne impression ! ;-)))

Merci Pascal,

Je testerais lundi prochain à mon travail, hé oui ! ma semaine est fine ;-)

Je te tiens au courant des lundi matin !

D'avance merci pour tes conseils !

Bon week end à toi Pascal !!!

Ana.

Bonjour au forum ! Hummm il est tot ce matin ! Oui je sais.... Mais je commence mon travail à 7h00....

Bingo Pascal ! Ca marche !

Par contre, qu'est ce qu'il faudrait rajouter pour ouvrir dans ce répertoire ( comme il le fait à présent), mais qu'il affiche directement tous les fichier que ce dernier contient ?
Actuellement, il faut que je sélectionne l'option du menu déroulant "Type de fichier" et lui indiquer "Tous les fichier (*.*)

Merci Pascal et bon début de journée !

Ci dessous, ta dernière commande...



ChDrive "M"

ChDir "M:\Production Dpt\0 EXTERNE PROD\E-MAIL résultats productions\GGP ALPINA - DAT\"

Application.Dialogs(xlDialogOpen).Show



Merci encore à toi !!!

Ana

Bonjour et bon début de semaine,

Pour ta question tu modifies légèrement la ligne

Application.Dialogs(xlDialogOpen).Show

en

Application.Dialogs(xlDialogOpen).Show ("*.*")

Bon courage

Pascal

Bonjour Pascal,

Merci pour cette dernière modification !

Pascal = Champion du monde ;-))))

Bonjour à Natacha, Anastasia, Sofia et à nos bons vieux Pascal et Michel !!! lol

LOL !

Lien supprimé

LOL Thierry

Je me suis dit : "ça y est on va avoir tous les prénoms féminins en A."

Mais non c'est ce "bon vieux" Thierry qui vient faire coucou.

Bonne journée

Pascal