donnée sur autre fichier

Question

Bonjour,

Je débute en Visual Basic est je cherche à faire une chose que j'ai déjà vue marché.

Pour mon suivie de chantier, j'ai une fichier Excel "analyses de chantier"
Dans ce fichier j'ai mon récap de tous mes devis validés par mon client.
Pour éviter une ressaisie de toutes les valeur (11 au total entre numéro de devis et tous mes débours") je souhaiterais faire commande qui me permettrais d'aller récupérer le chemin de mon fichier devis et d'afficher les valeurs de certaines cellules.

Voici mon code qui ne marche pas: 

Sub Projet()

Dim wbMyWb As Workbook
Dim Nom_Fichier As Variant

Nom_Fichier = Application.GetOpenFilename("Excel, *.xlsx")
If Nom_Fichier <> False Then
    Set wbMyWb = Workbooks.Open(Nom_Fichier)
    wbMyWb.Activate
    chemin = Workbooks(ActiveWorkbook.Name).FullName
    

End If

'récupération du numéro de devis
Cells(ActiveCeel.Row, ActiveCell.Column + 0).Formula = "='\& chemin & !NUMDEVIS"

End Sub

Espérant être clair et que vous pourrez m'aidé

Patrice33740 · Answer

Bonjour,

Et avec ActiveCell au lieu de ActiveCeel ?

Donnée sur autre fichier

1 réponse

Votre réponse

Discussions similaires