Ouverture automatique de fichier

[Bud.boundy]

Bonjour,


colonne A : Nom de la personne
colonne B : Nom du fichier

Quelqu'un pourrait il m'aider à creer une macro me permettant :
En double cliquant sur le nom, le fichier correspondant en colonne B s'ouvre et le nom est envoyé dans la cellule C1 de la feuille FICHE du fichier ouvert...

Merci pour votre aide

 

[wilfried_42]

Re : Ouverture automatique de fichier

Bonjour Bud.Boundy

à mettre dans le code worksheet de le feuille désirée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    dim nom as string, fichier as string
    Cancel = True
    nom = target.value
    fichier = target.offset(0,1).value
    If Target.Row = 1 Then
        Workbooks.Open (ThisWorkbook.Path & "\" & fichier & ".xls")
        Workbooks(fichier & ".xls").Sheets("FICHE").Range("C1").Value = nom
        Workbooks(fichier & ".xls").Close savechanges:=True
    End If
End Sub

 

[Bud.boundy]

Re : Ouverture automatique de fichier

Merci Wilfried,

Après le double clic, mon fichier ne s'ouvre malheureusement pas... Sachez que le fichier à ouvrir est dans le même repertoire...

Merci de m'aiguiller...

 

[wilfried_42]

Re : Ouverture automatique de fichier

re:

le code que j'ai donné,

ouvre le fichier, met à jour la cellule C1 de la feuille Fiche, Ferme le fichier

Quand tu fais un double clique, es tu en edition de cellule, si oui, c'est que le code n'es pas au bon endroit,

il doit se trouver dans Worksheet (Nom de la feuille) pas dans un module

 

[Bud.boundy]

Re : Ouverture automatique de fichier

Merci Wilfried,

J'avais bien mis le code dans Worksheet comme souhaité... Maintenant vous parlez d'une mise à jour de la cellule C1 de la feuille Fiche... que faut-il faire exactement ???

Ne serait il pas plus simple de me joindre un fichier exemple ???

Encore merci pour votre coup de main...

 

[wilfried_42]

Re : Ouverture automatique de fichier

re:

je t'envoie deux fichiers :

UNTEL.xls ----> Feuille FICHE ---> Cellule C1 Vide
UNTEL_liste.xls ---> Feuille 1 ---> A1 le nom à transferer, B1 le nom du fichier

un double click en A1, le nom est transférer en C1 du classeur defini en B1

 

[Bud.boundy]

Re : Ouverture automatique de fichier

Merci beaucoup Wilfried,

Désolé pour le retard, j'étais parti en week-end... Votre fichier marche parfaitement, seulement le fichier UNTEL ne s'ouvre pas... Par contre dès que je l'ouvre manuellement je retrouve bien le nom sur lequel j'ai double clicker...
Comment pourrions nous l'ouvrir ??

Merci beaucoup

 

[wilfried_42]

Re : Ouverture automatique de fichier

re:

j'aime pas laisser un fichier ouvert, lol, je l'avais fermé automatiquement en le sauvegardant.

voici un version qu le laisse ouvert, et pas de sauvegarde

 

[Bud.boundy]

Re : Ouverture automatique de fichier

Merci Wilfried,

Quel formidable travail... Brvao... Sincères remerciements...

Bonne continuation

 

[Bud.boundy]

Re : Ouverture automatique de fichier

Pardon Wilfried,

Je viens juste de me rendre compte d'un petit manque... Cette macro se doit de fonctionner dans la colonne A avec le nom de fichier correspondant à la même ligne en B...

Merci

 

[wilfried_42]

Re : Ouverture automatique de fichier

re:

c'est ce qu'il fait, si tu fais un double clique en colonne A, il ouvre le Fichier mis en colonne B et inserre le nom qui est en colonne A

 

[Bud.boundy]

Re : Ouverture automatique de fichier

Bonjour Wilfried,

Je regrette d'avoir à insister mais vous verrez qu'en mettant des noms de A1:A5 et en gardant UNTEL de B1:B5, le macro ne fonctionne que pour la cellule A1... Du moins chez moi...

Merci

 

[wilfried_42]

Re : Ouverture automatique de fichier

re:

tu as raison nud.doundy, dans la famille je suis la blonde mais en plus agée😀
et pourtant j'avais relu le code 😱

Mais quelque fois les erreur sont tellement grosse qu'on ne les voit pas 😕

target.row ----> devient target.column

 

[Bud.boundy]

Re : Ouverture automatique de fichier

Merci pour tout Wilfried...

Vous etez formidable

Bonne continuation

 

[Bud.boundy]

Re : Ouverture automatique de fichier

Bonsoir Wilfried,

Une dernière requèete s'il vous plaît : A l'ouverture du fichier indiqué, serait il possible de rediriger le fichier excel vers la feuille FICHE parce que si le fichier a par excemple été enregistré sous une feuille X le fichier s'ouvre sur cette feuille X et non sur la feuille FICHE...

Merci