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

 

[gilbert_RGI]

Re : Ouvrir un dossier

et oui il faut donc lui indiquer quelle cellule mettre à la place de A2

donc dans ton programme tu actives la cellule voulue et tu lances la macro
et à la place de A2 tu mets activecell en précisant quelle feuille.

me fais-je bien comprendre ????😀

je sais........ facile pour celui qui sait c'est toujours ainsi

 

[gilbert_RGI]

Re : Ouvrir un dossier

bon voilà j'ai essayé d'adapter

je ne peux pas te certifier que l'envoi se fait car comme je te le disais dans un autre post je n'ai pas installé outlook

1) je pense que les adresses mail en page 1 sont "bidon" car chaque essai = 1envoi
2 ) pour que ça fonctionne il faut que "malettre.doc" soit dans le répertoire du thisworkbook
3 ) chaque lettre envoyée se retrouve dans le répertoire cité ci-dessus

pour faire fonctionner il faut aussi avoir fait une recherche pour que cette personne soit dans les controls de l'userf

enfin tu verras et dis moi si ça te convient

cliquer ici pour le fichier

 

[gilbert_RGI]

Re : Ouvrir un dossier

remplace le doc "malettre" par celui-ci

😱

 

[gilbert_RGI]

Re : Ouvrir un dossier

Héllo Lone-wolf

tu es dans la caisse à bois cet après midi ou quoi ????

😀

j'ai fait des essais avec ma messagerie

fonctionne sans problème 😛

 

[gilbert_RGI]

Re : Ouvrir un dossier

voilà ce que ça me donne

destinataire caché
le sujet de la lettre
le texte de la lettre
et enfin la pièce jointe personnalisée

 

[Lone-wolf]

Re : Ouvrir un dossier

Haï!Haï!Haï! Gilbert!

Dans la case Recherche écrit Claire Chazal >Clic sur Recherche et dis moi ensuite
l'email à qui est-il adréssé.

Moi je le sais déjà, à toi de vérifier. 😉

 

[gilbert_RGI]

Re : Ouvrir un dossier

c'est quoi "CHAZAL.Claire@FOURNISSEUR.COM"

 

[Lone-wolf]

Re : Ouvrir un dossier

Aucune idée. 🙄

J'ai enfin trouvé!!

Voici en gras les corrections:

Private Sub Image1_Click()
Dim oApp As Word.Application, doc As Word.Document
Range("A2").Select ' premier client
'Do While Not IsEmpty(ActiveCell):
On Error Resume Next
nf = ThisWorkbook.Path & "\courrier.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " & ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'--
nom = TextBox1.Value
rue = TextBox3.Value
codepostal = TextBox4.Value
ville = TextBox5.Value
titre = ActiveCell.Offset(0, 7).Value
'--
With doc
.Bookmarks("titre").Range.Text = titre
.Bookmarks("nom").Range.Text = nom
.Bookmarks("rue").Range.Text = rue
.Bookmarks("codepostal").Range.Text = codepostal
.Bookmarks("ville").Range.Text = ville
.Bookmarks("title").Range.Text = titre
End With
nom_doc = ThisWorkbook.Path & "\" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
'------------------------ envoi par mail
Dim olapp As Outlook.Application
Dim Msg As MailItem
Set olapp = New Outlook.Application
Set Msg = olapp.CreateItem(olMailItem)
Msg.To = TextBox6.Value
Msg.Subject = "Votre lettre"
Msg.Body = "Veuillez trouver ci joint...."
Msg.Attachments.Add Source:=nom_doc
Msg.Display
Set olapp = Nothing
ActiveCell.Offset(1, 0).Select ' Client suivant
'Loop
Set oApp = Nothing
MsgBox "Message envoyé"
End Sub

Titre = Monsieur,
title = recevez, Monsieur, ....

 

[gilbert_RGI]

Re : Ouvrir un dossier

tu ne regardes pas ce que je t'envoie

ça fait un moment que ça fonctionne 😀

 

[Lone-wolf]

Re : Ouvrir un dossier

Désolé Gilbert, mais c'est le classeur que tu m'a envoyé que j'ai corrigé.

Chez moi, (avant la correction), même en changeant de nom, il était toujours noté jacques martin sur le document; et dans Outlook

A: rien
Pj: jacques martin.

Maintenant j'ai un petit problème avec cette ligne:
titre = ActiveCell.Offset(0, 7).Value

Quand j'écris claire shazal dans la lettre il note Monsieur au lieu de Madame.

Correction: j'ai enlever le ' à cette ligne:
UserForm1.TextBox8.Value = Sheets("Feuil1").Cells(LigneActive, "H").Value
et changer TextBox8 par 10 = LigneActive qui correspont à la référence numérique.

 

[gilbert_RGI]

Re : Ouvrir un dossier

tu as sans doute changé quelques choses dans le code car je n'ai pas de Monsieur ni de Madame dans les possibilités de choix
surtout le offset(ligne,7) n'existe pas dans la feuille !!!!!!!!

 

[Lone-wolf]

Re : Ouvrir un dossier

Dans le formulaire j'ai aussi rajouté une textbox pour le titre sans être visible.

Voici le classeur.

 

[gilbert_RGI]

Re : Ouvrir un dossier

Dans le formulaire j'ai aussi rajouté une textbox pour le titre sans être visible.

comment fais-tu alors pour l'ajouter dans une nouvelle ligne

voilà je l'ai mis visible et fais quelques modifs😱

 

[Lone-wolf]

Re : Ouvrir un dossier

Bonjour Gilbert! 🙂

Bin oui! Je viens de me reveillez, comme cette nuit a été un peu courte.....

j'ajoutais le titre directement sur la feuille.

Maintenant, comment dois-je procéder, je dois cliquer d'abord sur le bouton,
oubien remplir les champs et ensuite cliquer?

 

[gilbert_RGI]

Re : Ouvrir un dossier

Bonjour Gilbert! 🙂

Bin oui! Je viens de me reveillez, comme cette nuit a été un peu courte.....

j'ajoutais le titre directement sur la feuille.

Maintenant, comment dois-je procéder, je dois cliquer d'abord sur le bouton,
oubien remplir les champs et ensuite cliquer?

si tu fais une recherche => tu mets ex: jacques martin => bt recherche
les données sont visibles

si tu veux saisir un nouveau client tu cliques sur le bt N_entrée qui va te donner le n° de la ligne libre ensuite tu remplis les cases vides et tu confirmes avec le bt "modifier"

si tu veux modifier tu recherches comme plus haut puis tu modifies les erreurs puis tu confirmes avec le bt "modifier"