Discussion :

[eurlzoo]

Bonjour à tous,
N'ayant aucune connaissance en programmation VBA, je sollicite l'aide de vos membres afin de me débarrasser d'une tache répétitive que je réalise entre 30 à 150 fois par semaine et qui gâche très souvent mes vendredi soir. Je vous explique : j'ai un classeur excel qui s'appel SUIVIPM.xls et dans l'onglet "suiviPM", il y a toutes les informations concernant mes projets. Et pour chacun de ces projets, j'ai une fiche de MES à créer (depuis un model existant) et à fournir au client à la livraison. Ces classeurs doivent s'appeler "FICHE DE MES_REFERENCE.xls" et doivent contenir des informations qui se trouvent dans l'onglet suiviPM.xls (REFERENCE s'y trouve aussi).
Vous trouvez ci-joint le tableau SUIVIPM et la FICHE de MES vierge.
En espérant que vous pourrez m'aider.

Cordialement
eurlzoo

[mercatog]

1. Préparation et adaptation du fichier:

Insérer la feuille Fiche MES dans le même classeur.

Nommer une cellule (par exemple T1) de la feuille suivi PM par CHOIX

Sur la feuille Fiche MES mettre les formules suivantes: (faire la correspondance)

En F3: =DECALER(suiviPM!$B$1;CHOIX;)En F4: =DECALER(suiviPM!$C$1;CHOIX;)...

Enfin en L17: =DECALER(suiviPM!$P$1;CHOIX;)
2. Vba:

Dans le module de la feuille Suivi PM, on va utiliser l'événement BeforeDoubleClick

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ref As String, Fichier As String
 
Application.ScreenUpdating = False
If Target.Row > 1 And Range("A" & Target.Row) <> "" Then
    Cancel = True
    Range("CHOIX") = Target.Row - 1
    Ref = Range("B" & Target.Row)
    Fichier = ThisWorkbook.Path & "\FICHE DE " & Ref & ".xls"
 
    Worksheets("Fiche MES").Copy
    With ActiveWorkbook
        With .Worksheets(1).UsedRange
            .Value = .Value
        End With
        On Error Resume Next
        Application.DisplayAlerts = False
        .SaveAs Fichier
 
        .Close
        Application.DisplayAlerts = True
        On Error GoTo 0
    End With
    MsgBox "Fichier de la référence [" & Ref & "] sauvegardé avec succès"
End If
End Sub

Voilà.

Tu vas recevoir un contrat de maintenance.

[eurlzoo]

Bonjour,
Dans un premier temps, je tenais à vous remercier pour la rapidité de votre réponse, cependant, je n'arrive pas à faire fonctionner votre macro, il y a surement quelque chose que je réalise mal dans la partie "Préparation et adaptation du fichier".
Dans l'attente de votre retour.
Cordialement.

[nibledispo]

bonsoir,

Tout d'abord passe les cellules ou tu introduis les formules au format standard. les avoir au format texte pose parfois voire toujours problème.
C'est bien ce qui se passe dans ton appli. Les formules logées dans une cellule format standard renvoient l'intitulé de la cellule ligne 1 alors que celles logées dans une cellule au format texte conservent la formule apparente.

Ensuite le code doit être impérativement dans la feuille suiviPM.

Enfin tu dois double-cliquer sur une cellule de la colonne index de la feuille suiviPM pour obtenir un résultat que je te laisse constater.

Par contre, je ne comprends pas pourquoi tu créés un classeur par fiche. Ne serait-il pas plus logique que chaque fiche de suivi corresponde à un onglet d'un seul et unique classeur.

Cordialement,