Copie de liens

Le 13/07/2018 à 14:17

Je viens de créer un formulaire Excel avec de la programmation VBA

Mon problème est le suivant

Je rempli mon formulaire (pas souci)

Je le copie dans mon tableau de suivi

Lorsque que j'enregistre mon formulaire (bouton enregistrer) un fichier Excel se crée

Je souhaiterai que le nom du fichier créé vienne alimenter une colonne dans mon tableau de suivi.

Le 13/07/2018 à 15:46

Bonjour,

Merci de joindre un fichier pour qu'on comprenne mieux ton problème.

Le 13/07/2018 à 22:53

voici le fichier

14fiche-generale-formulaire.xlsm (60.13 Ko)
Le 16/07/2018 à 08:55

Bonjour,

J'ai repris une ligne de ta macro permettant de définir le nom du fichier à créer que j'ai intégré dans ta macro permettant d'exporter une fiche dans ton tableau de suivi.

Private Sub BtnCopier_Click()
    Dim lign As Variant
MsgBox "Copie dans le tableau de Suivi"
    lign = Sheets("Tableau de Suivi").Range("A65000").End(xlUp).Row
    With Sheets("Fiche_intervention")
        If Sheets("Tableau de Suivi").Range("A" & lign).Value <> "" Then
            Sheets("Tableau de Suivi").Range("A" & lign + 1).Value = .Range("F6").Value
            Sheets("Tableau de Suivi").Range("B" & lign + 1).Value = .Range("J15:K15").Value
            Sheets("Tableau de Suivi").Range("C" & lign + 1).Value = .Range("H10:K10").Value
            Sheets("Tableau de Suivi").Range("D" & lign + 1).Value = .Range("H11:K11").Value
            Sheets("Tableau de Suivi").Range("E" & lign + 1).Value = .Range("C10:F10").Value
            Sheets("Tableau de Suivi").Range("F" & lign + 1).Value = .Range("C15:F15").Value
            Sheets("Tableau de Suivi").Range("G" & lign + 1).Value = .Range("C19:F19").Value
            Sheets("Tableau de Suivi").Range("H" & lign + 1).Value = .Range("C20:F20").Value
            Sheets("Tableau de Suivi").Range("I" & lign + 1).Value = .Range("C22:F22").Value
            Sheets("Tableau de Suivi").Range("J" & lign + 1).Value = .Range("C25:F25").Value
            Sheets("Tableau de Suivi").Range("K" & lign + 1).Value = .Range("B31:K36").Value
            Sheets("Tableau de Suivi").Range("L" & lign + 1).Value = .Range("K82").Value
            Sheets("Tableau de Suivi").Range("M" & lign + 1).Value = .Range("E5:F5").Value
            Sheets("Tableau de Suivi").Range("N" & lign + 1).Value = "Fiche  " & .Range("F6").Value & "  " & .Range("C19").Value & ".PDF"
        End If
    End With

End Sub
Le 16/07/2018 à 09:01

Merci d'avoir pris le temps de répondre c'est exactement ce que je chercher. Bonne journée

Rechercher des sujets similaires à "copie liens"