OVH Cloud OVH Cloud

Parcourir

3 réponses
Avatar
Pascal
Bonjour,
Sous 2007, j'aimerais avoir une boite de dialogue "Parcourir" afin de
sélectionner des fichiers de mon DD à envoyer par publipostage.
Est-ce possible et quelqu'un aurait-il la solution

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000709-2, 01/02/2007
Analyse le : 02/02/2007 08:20:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

3 réponses

Avatar
francois63000
SAlut pascal.

Essaye de regarder sur le site www.excelabo.net. Il y a plein d'exemple de
fichier. tu devrais y trouver ton bonheur.


François



Bonjour,
Sous 2007, j'aimerais avoir une boite de dialogue "Parcourir" afin de
sélectionner des fichiers de mon DD à envoyer par publipostage.
Est-ce possible et quelqu'un aurait-il la solution

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000709-2, 01/02/2007
Analyse le : 02/02/2007 08:20:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






Avatar
LAPLESSE
merci ca je sais oui

"francois63000" a écrit dans le
message de news:
SAlut pascal.

Essaye de regarder sur le site www.excelabo.net. Il y a plein d'exemple de
fichier. tu devrais y trouver ton bonheur.


François



Bonjour,
Sous 2007, j'aimerais avoir une boite de dialogue "Parcourir" afin de
sélectionner des fichiers de mon DD à envoyer par publipostage.
Est-ce possible et quelqu'un aurait-il la solution

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000709-2, 01/02/2007
Analyse le : 02/02/2007 08:20:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








Avatar
Benead
Bonsoir,

Avec cette macro, tu ouvres un ou plusieurs classeurs (avec Maj et/ou Ctrl) qui se trouvent dans le même dossier :

Sub OuvertureClasseurs()
Dim CheminFichier As Variant, Fichier As Variant
CheminFichier = Application.GetOpenFilename("Fichiers Cla Excel (*.xls),*.xls", _
, "Choix de fichiers pour publipostage", "TOTO", True)
If IsArray(CheminFichier) Then
For Each Fichier In CheminFichier
Workbooks.Open Fichier
Next Fichier
ElseIf Not Fichier = "" Then
Workbooks.Open Fichier
End If
End Sub

Tu peux bien sûr remplacer l'ouverture par une autre action...

A+
Benead
XL2000

LAPLESSE a écrit:
merci ca je sais oui

"francois63000" a écrit dans le
message de news:

SAlut pascal.

Essaye de regarder sur le site www.excelabo.net. Il y a plein d'exemple de
fichier. tu devrais y trouver ton bonheur.


François




Bonjour,
Sous 2007, j'aimerais avoir une boite de dialogue "Parcourir" afin de
sélectionner des fichiers de mon DD à envoyer par publipostage.
Est-ce possible et quelqu'un aurait-il la solution

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000709-2, 01/02/2007
Analyse le : 02/02/2007 08:20:51
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com