Ouvrir un dossier

[Lone-wolf]

Rebonjour,

J'ai un petit souci avec ce code:

Private Sub Image1_Click()
ChDir ("D:\Documents Excel\Formulaires\Recherche Contacts\")
fileToOpen = Application.GetOpenFilename("*.doc, *.doc")
End Sub

Malgré le chemin correct la fenêtre s'ouvre à partir de " Mes documents",
et moi je cherche à ouvrir le dossier "Recherche Contacts" et ensuite
ouvrir les fichiers.

Qu'est-ce qu' il manque au code?

Merci de votre aide

 

[Lone-wolf]

Re : Ouvrir un dossier

A croire que tu te prends réellement pour Excel 😀

Avec tous ces =SI!!! MDR!!!


Trêve de plaisenterie... Gibert, merci infiniment pour ta patience, ta gentillesse et ta sympathie, sincèrement.

Sans ton aide, j'aurais dû attendre longtemps.


Voilà, il ne me reste plus qu'à trouver comment copier-coller automatiquement la serie d'emails.

 

[gilbert_RGI]

Re : Ouvrir un dossier

CàDire!!!!!

tu veux coller quoi dans quoi

 

[Lone-wolf]

Re : Ouvrir un dossier

Et bien tu à vus que dans le dossier il y avait un fichier texte, celui-ci contient une cinquantaine d'adresses emails.

J'aimerai pouvoir copier ces adresses automatiquement par VBA et les coller dans le champ Cc de Outlook; code introduit dans le bouton Outlook.

C'est vrai que je pourrai faire celà manuellement, mais c'est trop facile;
tu ne trouve pas?