Discussion :

[DonKnacki]

Bonjour à tous,
je souhaiterais savoir comment faire en visual basic pour relier 2 classeur entre
Par exemple si on a un classeur "source" et un "destination"
comment dire que le contenu de la case A1 du classeur "source" alimente le contenu de la case B2 du classeur "destination"
je sais que en ligne de commande il suffit de mettre dans le classeur destination, dans la case B2 un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'C:\Mes documents\Exel\Fichier Source\[source.xls]Feuil1'!$A$1

[jmfmarques]

Utilises l'enregistreur de macro et vois comment VBA écrit celà : je viens de le faire sans problème..

[DonKnacki]

Ha oui c'est vrai que je n'y avais pas pensé
j'ai donc eu cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.FormulaR1C1 = _
        "='C:\Mes documents\Exel\Fichier Source\[souce.xls]Feuil1'!R1C1"

seulement je voudrai compliqué un peu la chose en mettant une variable dans le nom du fichier source par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim i as Integer
Dim j as Integer
if j=30 
then i=1
else i=2
ActiveCell.FormulaR1C1 = _
        "='C:\Mes documents\Exel\Fichier Source\[souce i.xls]Feuil1'!R1C1"

ce code marche surement pas masi c'est pour faire comprnedre mon souhait
ce que je ne sais pas c'est dans la formule ActiveCell.FormulaR1C1 ce que je dois changer dans le nom du fichier (mettre juste un i ca marche pas )

[jmfmarques]

Tiens ! Tiens ! comme c'est drôle !

Quand j'utilise l'enregistreur de macro et que je vais voir ce qu'y a écrit Monsieur VBA, j'obtiens tout autre chose ...
Il va peut-être falloir que je fasse "réviser" ma machine ou que je me procure une autre version d'Excel ?
A moins que je ne fasse des gestes différents ...

[DonKnacki]

???

ba écoute moi j'obtient ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 25/01/06 par l999999
'
 
'
    ActiveCell.FormulaR1C1 = "=[source.xls]Feuil1!R1C1"
    Range("B3").Select
End Sub

j'ai enlev' ce qui n'était pas nécessaire tout à l'heure

[DarkVader]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.FormulaR1C1 = _ 
        "='C:\Mes documents\Exel\Fichier Source\[souce " & i & ".xls]Feuil1'!R1C1"

[DonKnacki]

merci DarkVader ca semble marcher (la il trouve pas le fichier mais je pense qu'il doit y avoir une erreur dans le chemin c'est tout)

je vais vérifier puis affaire résolu

[DonKnacki]

Exact il y avait juste un espace de trop apres souce : mon fichier s'appel source2 et non source 2
(ca m'arrange que j'ai fais la faute ainsi on sait de quoi je parle sinon on aurai pu confondre avec le nom du repertoire)

[DonKnacki]

bonjour le forum j'ai un souci sur un lien entre 2 fichiers depuis que j'ai déplacé mes fichiers du coup j'aimerai utilisé la fonction ActiveWorkbook.Path pour me repérer ainsi j'aurai plus de problème

mais je n'arrive pas à écrir la ligne qui lie les 2 fichiers

ca doit ressembler à ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
chemin = ActiveWorkbook.Path
 ActiveCell.FormulaR1C1 = _
            =chemin & "\[Mensuel1]Feuil1'!R" & Ligne2 & "C" & Ligne"

en sachant que ligne2 et ligne sont bien initialisé avant que dois je changer?

[Megaxel]

Ils ne s'appellent plus quelquechose.xls , tes fichiers sources?

[DonKnacki]

en fait je suis aussi passé de excel 97 a un plus récent qui lorsque on est sur l'explorer on ne voit pas le .xls


il faut que je le laisse?

ps de toute facon la syntaxe est pas bonne c'est plus la ma question

[Megaxel]

Non non non non non, le ".xls" est toujours là, et plus que jamais.
Ce n'est qu'une option d'affichage, qui le fait disparaître.
Et tu as un dernier " tout à la fin de ton expression qui ne me plait pas: ça fait un nombre impair de " , et ça, c'est mauvais signe...

[DonKnacki]

ca m'enerve j'y arrive pas !!

en plus je comprend pas avec l'ancienne syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.FormulaR1C1 = _
            "='[Mensuel1]Feuil1'!R" & Ligne2 & "C" & Ligne

il me demande une mise a jour les valeurs et ca l'aire de rechercher le fichier source pourtant il me met bien dans le bon répertoire

[Megaxel]

Mais si tu mets ça:
chemin = ActiveWorkbook.Path

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.FormulaR1C1 = _ 
            "=" & chemin & "\[Mensuel1.xls]Feuil1'!R" & Ligne2 & "C" & Ligne

, ça donne quoi?
Et c'est pas bizarre de donner "Ligne" comme nom à la variable qui contient le numéro de colonne?

[DonKnacki]

j'ai une erreur : erreur définie par l'application ou par l'objet

et pour le nom de la variable je sais c'est bizarre mais en fait les ligne de ma destination correspondent a des colonne de ma source ...

[DonKnacki]

en gardant mon ancien code (le dernier que j'ai mis ca marche uniquement à la condition que les 2 fichiers soit ouvers dans la meme fenetre excel

[SilkyRoad]

bonsoir

tu peux tester cette synthaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.FormulaR1C1 = _ 
="='" & chemin & "\[Mensuel1.xls]Feuil1'!R" & Ligne2 & "C" & Ligne

bonne soiree
michel

[DonKnacki]

Merci Michel cela fonctionne tres bien meme lorsque le fichier source est fermé

j'ai tout de meme changer un peu la syntaxe car telle quel il ne l'acceptais pas


voici le résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveCell.FormulaR1C1 = "='" & chemin & "\Sauvegarde\[Mensuel1.xls]Feuil1'!R" & Ligne2 & "C" & Ligne