Mise à jour

[fileofish]

Bonjour tout le monde!!! 🙂

Peut etre que vous pourrez m'aider je souhaiterais mettre à jour des fichiers à l'aide d'une petite macro:

->Dans la Feuil1 j'inscris par exemple:
- en A1: le chemin du 1er fichier que je souhaite mettre à jour
- en A2: le chemin du 2eme fichier que je souhaite mettre à jour
- ...
- en An: le chemin du neme fichier que je souhaite mettre à jour

Est ce que cela vous parait envisageable?
Merci d'avance
Philippe

 

[Catrice]

Re : Mise à jour

Bonjour,

Pas tres bien compris ce que tu voulais faire exactement...

 

[fileofish]

Re : Mise à jour

Lol
Une fois de plus je me suis pas très bien exprimé... mais je me soigne 🙂
Je voudrais mettre à jour plein de fichiers qui sont éparpillés un peu partout.
Comme il faut que je fasse cette mise à jour toutes les semaines, je souhaitais faire un fichier dans lequel j'inscrirais le chemin d'accès de tous les fichiers que je souhaites mettre à jour afin que la mise à jour ce fasse toute seule à l'aide d'une macro. (je liairai la macro à un petit bouton control pour l'activer)
Comme chaque semaine des fichiers s'ajoutent c'est pour ca que j'ai mis en bleu:
"en A1: le chemin du 1er fichier que je souhaite mettre à jour
- en A2: le chemin du 2eme fichier que je souhaite mettre à jour
- ...
- en An: le chemin du neme fichier que je souhaite mettre à jour"

Si c'est pas super clair n'hésite pas à me le dire
Merci encore

 

[fileofish]

Re : Mise à jour

Je suis pas bien sur que la 2eme explication soit meilleure que la 1ere 😕

 

[fileofish]

Re : Mise à jour

Hello le Forum !
La dernière chance du denier moment ...je vais jouer ma dernière carte 🙂

Voilà ce que je voudrais traduire en langage VBA
Pour toute cellule non vide dans la colonne A
Mettre à jour les liaisons de ce qu'il y a dans chaque cellule

Nb: dans chaque cellule non vide est inscrit le chemin du fichier que je souhaites mettre à jour.

Ca y est j'ai abattu ma derniere carte 🙂

@+
Philippe

 

[Catrice]

Re : Mise à jour

Re,

Ce que je ne comprends pas c'est ce que tu entends par "mettre à jour".
Une macro qui boucle sur la colonne A, c'est tres simple mais il faut faire quoi ?

Ce code boucle sur la colonne A et affiche le contenu de la cellule :
Sub test()
For Each X In Range("A1:" & Range("A65536").End(xlUp).Address)
MsgBox X 'Affiche le contenu de la cellule
Next
End Sub

 

[fileofish]

Re : Mise à jour

Bonjour Catrice,
C'est gentil de vouloir m'aider! 🙂
C'était pourtant essentiel mais j'ai omis de le préciser, je souhaiterais mettre à jour les liaisons
Merci encore

 

[Catrice]

Re : Mise à jour

Re,

Peut etre comme ceci :

Sub test()
For Each X In Range("A1:" & Range("A65536").End(xlUp).Address)
If X <> "" Then
Workbooks.Open Filename:=X
ActiveWorkbook.UpdateLink
ActiveWorkbook.Close True
End If
Next
End Sub

Pas bien compris qui était lié à qui

 

[fileofish]

Re : Mise à jour

Merci beaucoup Catrice 🙂
Bon week end à tout le monde
Philippe