Donnée sur autre fichier

Scotty13760 1 Messages postés jeudi 29 juin 2017Date d'inscription 29 juin 2017 Dernière intervention - 29 juin 2017 à 09:05 - Dernière réponse : Patrice33740 6834 Messages postés dimanche 13 juin 2010Date d'inscription 20 mai 2018 Dernière intervention
- 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

Patrice33740 6834 Messages postés dimanche 13 juin 2010Date d'inscription 20 mai 2018 Dernière intervention - 9 juil. 2017 à 12:33
0
Utile
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.