Discussion :

[fycfyc]

Bonjour à vous,

Après avoir cherché sur plusieurs forums, je n'ai pas réussi à trouver une solution à mon problème que voici :

Je cherche à créer une macro dont l'activation se ferait sur le ruban qui permettrait de :
- Sélectionner le fichier contenant les données dont l'architecture est toujours la même.
- copier / coller ces données en gardant les liaisons sur un autre fichier ayant lui aussi une architecture propre.
- Que ces liaisons se changent automatiquement en fonction de la sélection initiale du fichier.

Les problèmes sont les suivants :

- le fichier source se trouve à un emplacement différent à chaque dossier, ce qui fait évidemment planter ma macro, et je n'arrive pas à solutionner ce problème (je suis débutant en VBA).

Mon code :

Code :

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

1
2
Activecell.formulaR1C1 = ' = '[fichiersource.xlsm]Ongletsource'R7C4"
Range("E14").select

ce code est toujours le même pour toutes les cellules.

Auriez-vous quelques pistes d'améliorations?

Par avance je vous en remercie !

[cerede2000]

Bonsoir à toi,

Bon alors je n'ai pas tout compris.
Tu as un fichier centrale qui comporte des liaisons avec un autre fichier.

Tu veux pouvoir changer les liaisons en sélectionnant un autre fichier (qui as la même structure que le fichier qui était déjà lié), c'est bien ça ?

En tous cas c'est pas avec seulement ces deux lignes de codes que tu va faire ça....
Tu n'as que ça dans ta macro ?

Pour commencer, pour changer les liens il faut utiliser la méthode ChangeLink de l'objet Thisworkbook

[fycfyc]

Bonjour,

Tout d'abord merci de votre réponse !

Je vais essayer d'être plus clair:

Le fichier source m'est envoyé par mail, il est toujours le même avec bien sûr des données différentes. Je dois récupérer le second sur le réseau, il s'agit d'une maquette vierge, que je dois mettre sur un autre réseau dans le dossier en cour. Je dois ensuite copier coller avec liasons les données du fichiers source. La mise en forme de cette maquette est différente du premier fichier.
Mes problèmes sont les suivants :

Je ne peux pas copier une sélection dans le second fichier puisque la mise en forme est différente (je peux tout de même t'envoyer le code que j'ai créé : il va chercher les données du fichier source, créer un nouvel onglet dans le fichier cible qui met en forme les données - mais il n'y a pas de liasons entre les fichiers).

Ce que j'essaye de faire c'est créer une macro qui va chercher les bonnes cellules dans le fichier source (puisqu'il est toujours le même ) , ça en automatique c'est possible mais là où je bloque : pouvoir sélectionner le fichier source une fois que l'ai mis sur le réseau et que toute les liaisons créées précédemment puisse se mettre à jour en foction de cette sélection.

Suis je plus clair ?

Merci de votre retour.

Bonjour,

Afin d'être plus précis, voici un extrait du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Range("E13").Select
    ActiveCell.FormulaR1C1 = "='[fichiersource.xlsm]ongletsource'!R7C4"
    Range("E14").Select
    ActiveCell.FormulaR1C1 = "='[fichiersource.xlsm]ongletsource'!R8C4"
    Range("G13").Select
    ActiveCell.FormulaR1C1 = "='[fichiersource.xlsm]ongletsource'!R7C6"
    Range("G14").Select
    ActiveCell.FormulaR1C1 = "='[fichiersource.xlsm]ongletsource'!R8C6"
    Range("E15").Select
    ActiveCell.FormulaR1C1 = _
        "='[fichiersource.xlsm]ongletsource'!R10C4+'[fichiersource.xlsm]ongletsource'!R14C4"
    Range("G15").Select
    ActiveCell.FormulaR1C1 = _
        "='[fichiersource.xlsm]ongletsource'!R10C6+'[fichiersource.xlsm]ongletsource'!R14C6"
    Range("G16").Select

Mais le problème, c'est que quand veux importer les données d'un autre fichier source, Excel me demande l'emplacement du nouveaux fichier source pour chacune des cellules liées (et il y en a beaucoup).
Ce que j'essaye de faire c'est pouvoir sélectionner le fichier source une fois et que toutes les autres liaisons se mettent à jour en fonction de cette sélection.

Existe-t-il une façon de faire cela?

Merci de votre retour !

[cerede2000]

C'est pour cela qu'il faut plutôt utiliser le remplacement des liens avec la fonction que je t'ai indiqué dans mon post précédent

[fycfyc]

Bonjour,

J'ai essayé mais cela suppose que nouveau lien soit déjà connu, or ce que j'essaye de faire c'est de pouvoir le sélectionner quel que soit l'emplacement du fichier cible. Peut être que dans la fonction "Workbook.ChangeLink" on peut demander de sélectionner le nouveau chemin mais je ne vois pas trop comment faire...

Cordialement.

J'ai essayé avec le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CEP_CF()
 
ActiveWorkbook.ChangeLink "C:\Users\Documents\Process\Macro CFO\fichiersource.xlsm", _
 "C:\Users\Documents\Process\Macro CFO\Test\fichiersource2.xlsm", xlExcelLinks
 
    Range("E13").Select
    ActiveCell.FormulaR1C1 = "='[fichiersource.xlsm]CEP magasin'!R7C4"
    Range("E14").Select
    ActiveCell.FormulaR1C1 = "='[fichiersource.xlsm]CEP magasin'!R8C4"
    Range("E15").Select
    ActiveCell.FormulaR1C1 = _
        "='[fichiersource.xlsm]CEP magasin'!R10C4+'[fichiersource.xlsm]CEP magasin'!R14C4"
    Range("E16").Select
 
End Sub

Mais cela me demande toujours de sélectionner le fichier source pour chacune des cellules.

La maquette étant vierge, je dois ajouter au fichier cible des liens vers les cellules du fichier source en ayant la possibilité de sélectionner ce dernier (Jamais au même endroit sur le répertoire).

Est-ce possible?

merci par avance pour vos réponses !

Le code ci-dessus vient d'un code automatique. j'ai effectué les modifications ce qui donne :

Code :

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

1
2
3
4
5
stfile = Application.GetOpenFilename (A partir de cette sélection j'essaye de mettre à jour les liaisons créées dans le code ci dessous)
 
Range("E13").FormulaR1C1 = "='[fichiersource.xlsm]ongletsource'!R7C4"
Range("E14").FormulaR1C1 = "='[fichiersource.xlsm]ongletsource'!R8C4"
Range("E15").FormulaR1C1 = "='[fichiersource.xlsm]ongletsource'!R10C4+'[fichiersource.xlsm]ongletsource'!R14C4"

Par contre je rencontre le même problème, je suis obligé de modifier la liaison pour chaque cellule.

Ce que je souhaiterai, c'est que la sélection du fichier dans le répertoire indique le chemin au coller avec liaisons qui suivent.

Merci de vos retours

[fycfyc]

Bonjour,

J'ai un peu avancé dans le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Importation()
 
Dim Y As String
Dim fichier As FileDialog
 
 Set fichier = Application.FileDialog(msoFileDialogFilePicker)
fichier.Show
 MsgBox fichier.SelectedItems(1)
Range("a5").Select
    ActiveCell.FormulaR1C1 = fichier.SelectedItems(1)
'Range(A5).FormulaR1C1 = fichier.SelectedItems(1)
 
Y = "" & Range("a5").Value & ""
 
Range("E13").FormulaR1C1 = "& Y "CEP magasin'!R7C4"
Range("E14").FormulaR1C1 = "='[Plan à 4 ans- Vfyc2.xlsm]CEP magasin'!R8C4"
Range("E15").FormulaR1C1 = "='[Plan à 4 ans- Vfyc2.xlsm]CEP magasin'!R10C4+'[Plan à 4 ans- Vfyc2.xlsm]CEP magasin'!R14C4"
 
End Sub

Mais je reste bloqué dans l'intégration de la variable Y (Le chemin du répertoire à aller chercher) dans les liaisons qui suivent.
Par ailleurs, existe t'il une façon d'intégrer le chemin, du répertoire à aller chercher, dans le code directement sans passer par une cellule du fichier?

Merci de vos réponses !

Malgré d'autres recherches, je reste bloqué à ce stade.
Quelqu'un aurait une idée?

Par avance je vous en remercie.

[Marc-L]

Bonjour,

pas clair …

______________________________________________________________________________________________________

Un problème sans solution est un problème mal posé. (Albert Einstein)