Donnée sur autre fichier

Messages postés
1
Date d'inscription
jeudi 29 juin 2017
Dernière intervention
29 juin 2017
- - Dernière réponse : Patrice33740
Messages postés
7445
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
13 décembre 2018
- 9 juil. 2017 à 12:33
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é
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7445
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
13 décembre 2018
0
Merci
Bonjour,

Et avec ActiveCell au lieu de ActiveCeel ?
Commenter la réponse de Patrice33740

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.