Formula r1c1 avec fichier variable donnees ouvert

Bonjour,

Je désire faire une Formula r1c1 avec un fichier données variable ouvert (grâce à vous)....

J'ai déclaré mon Fichier données ouvert comme suit:

Set wbContact = Workbooks(Workbooks.Count = 2)

Ensuite:

Windows("Enel_Day_Working.Xlsm").Activate

ActiveCell.Offset(0, 1).Range("A1").Select

'c'est mon fichier qui doit recevoir les données

Puis:

ActiveCell.FormulaR1C1 = "='[wbContact]Fiche Personnelle'!R2C3"

La macro ne sait pas où trouver le fichier variable [wbContact]. Elle ne sait pas qu'il est ouvert.

Help bienvenue... Merci à tous

Bonjour,

Ce n'est pas la variable qu'il faut appeler, mais le nom du fichier.

Peut-être quelque chose comme :

ActiveCell.FormulaR1C1 = "='[" & wbContact.name & "]Fiche Personnelle'!R2C3"

pour aller plus loin

Bonjour Steelson,

j'ai écrit un code comme tu m'as dit, mais j'obtiens erreur 424. Je suis allé sur aide, mais il ne connecte pas sur cette erreur.

Je te donne ma séquence de code complète:

'détermine le classeur manager

Dim ContactName As String

ContactName = InputBox("Entrer le Nom Prénom du contact sans Casse", "EX GLINEL MICHEL ou Glinel Michel ou glinel michel")

Dim Contactfile As String

Contactfile = ContactName & ".Xlsm"

Dim wbContact As Workbook

Dim sFichier As String

sFichier = "C:\Users\Miche\OneDrive\Documents\Enel\a.liste Contacts\Fiches Individuelles Contacts\" & Contactfile

Set wbContact = Workbooks.Open(Filename:=sFichier)

'programme de copie

Windows("Enel_Day_Working.xlsm").Activate

ActiveSheet.Select

'rempli les 2 premières cellules par XXX

ActiveCell = "XXX"

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell = "XXX"

'procédure de copie

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "='[" & Contact.File & "]Fiche Personnelle'!R2C3"

Fichiers joints:

Merci à toi.

Pas top de devoir aller à la pêche dans ton bazar !

michared a écrit :

j'ai écrit un code comme tu m'as dit, mais j'obtiens erreur 424.

    ActiveCell.FormulaR1C1 = "='[" & Contact.File & "]Fiche Personnelle'!R2C3"

Ce n'est pas ce que j'ai dit !

Remplace Contact.File par Contactfile

RE Steelson,

Voilà mes résultats si je n'ai pas fait de connerie:

ActiveCell.FormulaR1C1 = "='[" & wbContact.Name & "]Fiche Personnelle'!R2C3"

Erreur mais wbContact.Name me donne bien "Glinel Michel.Xlsm"

ActiveCell.FormulaR1C1 = "='[" & ContactFile & "]Fiche Personnelle'!R2C3"

Même erreur et contactFile me donne bien "Glinel Michel.xlsm"

Les devraient fonctionner et ne fonctionnent pas... Pourquoi... Je ne travaille pas assez souvent sur vba pour comprendre ce genre de subtilité.

A toi de jouer si tu en as le temps et l'envie...

Merci à toi... J'attends de tes nouvelles... Bonne soirée... Bien cordialement

L'onglet Fiche Personnelle n'existe pas !

Remplace par Fiche Individuelle

Bonjour Steelson,

Ce que je suis distrait... Je suis tellement pris par le code que je mets Personnelle au lieu d'Individuelle...

Et je ne vérifie pas ce nom, car dans ma tête il coule de source..

Je suis complètement ridicule sur le coup!!!!

Excuse moi de t'avoir dérangé pour une bêtise pareille ...

merci à toi.. J'y vais pour modifier...

Tu es un lève tôt comme moi... L'avenir nous appartient bien que j'aie 69 ans...

Bonne journée à toi

Gros gros merci, cela marche magnifique.

Et dire que j'ai passé une semaine là-dessus à rechercher sur internet avant de venir sur ce forum génial.

Encore un gros merci Steelson.

Puis-je te faire travailler encore un peu.

En fin de macro, je veux fermer le fichier wbContact.

Workbooks(wbContact).Save

ne marche pas.

Auparavant dans la macro j'ai fait:

Dim wbContact As Workbook

Et

Set wbContact = Workbooks.Open(Filename:=sFichier, ReadOnly:=True)

Il me manque certainement quelque chose!!!!

Merci

michared a écrit :

Workbooks(wbContact).Save

Essaie

Workbooks(wbContact.name).Save

sinon donne un peu plus de code (mais pas le fichier avec 20 modules dans lequel il faut piocher)

Utilise aussi le debug ... ou msgbox

Fais avant

msgbox wbContact.name

ou

debug.print wbContact.name

et vérifie ce qu'il donne

Bonjour Steelson,

Marche super avec .Name

Bravo à toi et gros merci...

Passe une grande et belle journée sous le soleil..

Encore merci pour ton aide précieuse

Bonjour Stellson,

Je bute sur

Dim hl As Byte

hl = InputBox("Entrez hauteur désirée ; 1=15 ;2=30 ;3=40 ;4=50 ;5=65 ;6=72", "EX:30")

If hl = Decimal Then

MsgBox ("Vous avez entré un Nombre décimal - la procédure est arrêtée.Veuillez recommencer")

Else If hl > 72 Then .....................me dit cette instruction doit être la première de la ligne....?????[

MsgBox ("Vous avez entré un Nombre trop grand - la procédure est arrêtée.Veuillez recommencer")

Merci à toi

Cela n'a plus rien à voir avec le sujet.

Mets aussi un code complet en utilisant la balise </> pour plus de lisibilité.

Poste un nouveau sujet (au passage, qu'est-ce que cela veut dire ? hl = Decimal)

Bonjour,

toujours fidèle au poste...

Oui, pour le nouveau sujet tu as raison, mais ce matin, je n'arrivais pas à trouver sur le site le bouton pour nouveau sujet... Pas bien réveillé...

Decimal = nombre Decimal... Je me trompe...????

Mais, désolé, je ne vois pas comment écrire le code complet avec la balise </>.

Peux-tu me dire...

Merci

michared a écrit :

Decimal = nombre Decimal... Je me trompe...????

michared a écrit :

Mais, désolé, je ne vois pas comment écrire le code complet avec la balise </>.

tu sélectionnes ton code que tu as copié ici et tu cliques sur

OK

Je bute sur

Dim hl As Byte

hl = InputBox("Entrez hauteur désirée ; 1=15 ;2=30 ;3=40 ;4=50 ;5=65 ;6=72", "EX:30")

If hl = Decimal Then

MsgBox ("Vous avez entré un Nombre décimal - la procédure est arrêtée.Veuillez recommencer")

Else If hl > 72 Then .....................me dit cette instruction doit être la première de la ligne....?????[

MsgBox ("Vous avez entré un Nombre trop grand - la procédure est arrêtée.Veuillez recommencer")

Steelson a écrit :

Poste un nouveau sujet

OK... Desolé j'ai la tête dure ce matin... Je le fais tout de suite...