Ouvrir un dossier

gilbert_RGI

XLDnaute Barbatruc

• 21 Avril 2010

• #16

Re : Ouvrir un dossier

voilà un fichier test
en pj

 

Pièces jointes

• ouvrir_pdf.xls

  47.5 KB · Affichages: 97

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Avril 2010

• #17

Re : Ouvrir un dossier

Je viens d'utiliser le fichier test, toujours le même problème avec excel.
Les autres s'ouvrent sans problème.

Avec les deux codes ça bloque tout.

Private Sub Image2_Click()
ChDrive "D"
Dir "D:\Dossiers Excel\Formulaires\Recherche Contacts"
LongFilename = Application.GetOpenFilename("xls files (*.xls), *.xls, (*.*),*.*")
fich = CStr(LongFilename)
rep = ShellExecute(0, "open", fich, "", "", 0)
End Sub

 

Dernière édition: 21 Avril 2010

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 21 Avril 2010

• #18

Re : Ouvrir un dossier

Lone-wolf à dit:

Je viens d'utiliser le fichier test, toujours le même problème avec excel.
Les autres s'ouvrent sans problème.

Avec les deux codes ça bloque tout.

Private Sub Image2_Click()
ChDrive "D"
Dir "D:\Dossiers Excel\Formulaires\Recherche Contacts"
LongFilename = Application.GetOpenFilename("xls files (*.xls), *.xls, (*.*),*.*")
fich = CStr(LongFilename)
rep = ShellExecute(0, "open", fich, "", "", 0)
End Sub

Cliquez pour agrandir...

ok essaie ceci

Code:

Sub SelectionFichierxls()
    ChDrive "c:"
    ChDir "c:\"
    LongFilename = Application.GetOpenFilename("XLS Files (*.xls), *.xls,(*.*),*.*")
    fich = CStr(LongFilename)
    Workbooks.Open Filename:=fich
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Avril 2010

• #19

Re : Ouvrir un dossier

Désolé pour le malentedu, les codes se référaient aux codes précédemment donné.

Le dernier que tu viens de donner, c'est presque bon.

La fenêtre s'affiche derrière le formulaire et je ne peut pas la fermer.

C'est possible de la voir en premier plan et pouvoir la fermer?

Voici le dossier: http://cjoint.com/?evotMEl7Qv

 

Dernière édition: 21 Avril 2010

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Avril 2010

• #20

Re : Ouvrir un dossier

Au secours Gilbert! 😱

Tu es toujours là!!🙄

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 21 Avril 2010

• #21

Re : Ouvrir un dossier

voilà j'espère que c'est ça que tu recherchais

modifier les chemins car j'ai mis les miens 😛

 

Pièces jointes

• contacts.zip

  33.1 KB · Affichages: 31
• contacts.zip

  33.1 KB · Affichages: 29
• contacts.zip

  33.1 KB · Affichages: 28

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Avril 2010

• #22

Re : Ouvrir un dossier

Super! C'est beaucoup mieux!

Merci GiGi 😉

Je voudrais te demander encore quelque chose, vu que tu as le fichier.

Mais c'est un travail énorme à faire. Tu serait d'accord?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 21 Avril 2010

• #23

Re : Ouvrir un dossier

Lone-wolf à dit:

Super! C'est beaucoup mieux!

Merci GiGi 😉

Je voudrais te demander encore quelque chose, vu que tu as le fichier.

Mais c'est un travail énorme à faire. Tu serait d'accord?

Cliquez pour agrandir...

d'accord pour te donner un coup de main oui
pour faire un programme non

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Avril 2010

• #24

Re : Ouvrir un dossier

Bonjour Gilbert.

Voici ce que j'aimerais ajouter à mon projet.

Suite à la recherche éffectuée, cliquer sur l'image Word et préparer le document "courrier" comme le montre l'exemple (Boisgontier) ci-joint.
J'ai ajouté le titre et le code postal qui manquaient.

L'incovénient c'est que l'exemple prend tous les noms,
moi j'aimerai prendre ceux-ci un par un.
Ex.: rechercher > Jacques Martin > "courrier.doc" > Jacques Martin;
envois Outlook à Jacques Martin.

rechercher > Zorro > "courrier.doc" > Zorro;
envois Outlook à Zorro.

Etc., etc.

Avec le bouton Outlook faire un envois avec Cc
en ajoutant en P.J. "invitation.doc". Comme les noms seront une centaine,
il faudrais les rajouter par (Copy - Paste) dans cette zone en prenant le fichier "liste.txt".
Sans oublier d'éviter l'affichage des fenêtres d'acceptation.


Dans mon code, je ne sais pas si tu as vu, il y a une adresse email par défaut; bienentendu il faut l'enlever.

Est-ce que ça joue?

 

Pièces jointes

• projet_exemple.zip

  28 KB · Affichages: 28

Dernière édition: 22 Avril 2010

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 22 Avril 2010

• #25

Re : Ouvrir un dossier

bonjour

je ne peux pas t'aider avec outlook car je ne veux pas l'installer

néanmoins j'ai modifié un peu le code car je n'aime pas les répétitions 🙄

mettre le fichier dans le même dossier (Recherche Contacts) pour qu'il fonctionne

cliquer ici

 

Dernière édition: 22 Avril 2010

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 22 Avril 2010

• #26

Re : Ouvrir un dossier

Dans le code de "Boisgontier J " il suffit de mettre une remarque devant la boucle Do.... Loop pour qu'il ne fasse que le client en A2😱

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Avril 2010

• #27

Re : Ouvrir un dossier

Désolé Gilbert,

mais je ne comprend pas, de quelle remarque il s'agit?

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 22 Avril 2010

• #28

Re : Ouvrir un dossier

Bonjour Lone-wolf, Gilbert,

Gilbert n'étant pas connecté et pour t'avancer, je me permets de te répondre.

Mettre une remarque devant une ou plusieurs lignes cela signifie de mettre :

rem devant la ou les lignes concernées. Mieux, tu peux utiliser son abréviation en l'apostrophe ' ainsi cette ligne n'est pas lue.

Bonne journée.

Jean-Pierre

 

Dernière édition: 22 Avril 2010

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 22 Avril 2010

• #29

Re : Ouvrir un dossier

ben voilà même plus le temps d'aller couper mon bois 😀

merci JeanPierre pour ton explication

' ainsi cette ligne n'est pas lue

Cliquez pour agrandir...

et devient de couleur verte si la configuration de couleur de l'éditeur n'a pas été changée

 

Dernière édition: 22 Avril 2010

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Avril 2010

• #30

Re : Ouvrir un dossier

Hello Gigi! Pas trop dur? (Le bois) 😀

Je ne sais pas si j'ai bien compris, voici ce que j'ai fais:

'Do While Not IsEmpty(ActiveCell)

'Loop

Le problème c'est qu'avec Range("A2").Select ' premier contact,
il ne prend que celui-ci.

Moi j'aimerais qu'il prenne le contact de mon choix, suite à la recherche effectuée.

 

Vote positif 0 Vote négatif