Pb avec ouverture fichiers meme nom dans OL
Bonjour,
Nous sommes plusieurs à recevoir dans une boite à lettres Outlook des formulaires de demandes "demande.xls" que nous importons dans une liste qui reprend tous les formulaires "liste.xls".
Quand j'ouvre "demande.xls" dans OL et que je lance ma macro d'import dans "liste.xls", tout fonctionne.
Mais si j'ouvre une autre demande "demande.xls" dans OL et que je lance la macro, ça marche pas parce que OL l'ouvre sous "demande.xls (2)". La fois suivante OL l'ouvre sous "demande.xls(3)" et ainsi de suite.
J'ai trouvé un moyen en "kill"ant le fichier qui s'est précédemment ouvert dans Local Settings\Temporary internet Files mais le chemin n'est pas le même selon que l'utilisateur de la macro est différent.
Quelle solution commune y a t il pour tous les utilisateurs en même temps?
Est ce qu'il y a un moyen complètement différent de procéder?
Peut on envisager de placer la macro "kill" dans le classeur de macros personnelles?
MERCI
bonjour
je suis finalement parti avec 2 options vu qu'il n'y a que 5 ou 6 utilisateurs pour lesquels je vais avoir le problème:
*soit je crée un ordre d'ouverture entre les 2 et je me passe du nom, ce qui m'ennuie beaucoup car ça impose qu'il n'y ait que 2 classeurs ouverts pour éviter les conflits
*soit je crée 5 ou 6 chemins différents en fonction du nom de chaque répertoire Temporary Internet Files\OLxxxxx (différent selon l'utilisateur) et je fais une macro kill localisée dans le classeur de macros personnelles.
JE vous tiens au courant
A++
J'ai encore une autre solution. Qu'en pensez vous ?
Dim wb As Workbook
Dim Nb_fichiers_Travaux as Integer
For each wb In Workbooks ' EST CE QUE JE DOIS METTRE UN WHILE POUR ENCADRER LES 2 IF?
If wb.name like (*Travaux*) Then Nb_Fichiers_travaux = Nb_fichiers_Travaux+1
If Nb_Fichiers_Travaux = 0 Then
MsgBox “L’outil ne trouve pas de formulaire à importer”
Exit Sub
IfElse Nb_Fichiers_Travaux = 1 Then “déroulement macro” Else MsgBox « Trop de formulaires sont ouverts. Fermez les fichiers en excès et recommencez l’opération »
Else Exit Sub
End If