Copier des cellules d'1 fichier dans 1 autre fichier (EXCEL)
Hors ligneJeanvaljean Le 24/09/2007 à 17:38 Profil de Jeanvaljean Configuration de Jeanvaljean

Bonjour à tous,

Je souhaite créer un fichier A de synthèse, récupérant des données dans d'autres fichiers B1, B2, B.. tous structurés de la même manière et s'incrémentant.

Ces données seraient regroupées par lignes dans le fichier A : 1ère ligne contiendrait les cellules du fichier B1, 2ème ligne cellules de B2 etc... et en étirant le ligne B1, obtenir les lignes B2, B3 etc...

Est-ce possible?

Merci pour votre aide,

Jeanvaljean
Hors ligneTigene Le 28/09/2007 à 12:51 Profil de Tigene Configuration de Tigene

Viconaute Modérateur
Bonjour

je suppose que tu sais référencer un par un les résultats des B1 B2 B3 etc dans A, mais ce que tu veux faire c'est une incrémentation automatique de la référence de fichier.

J'ai un apriori négatif, mais je cherche, le premier qui trouve prévient l'autre

@+
--

Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir

Hors ligneJeanvaljean Le 28/09/2007 à 14:15 Profil de Jeanvaljean Configuration de Jeanvaljean

Salut Tigene,

Bon, j'ai pu avancer sur mon problème et pense avoir trouver la solution : proggrammation en VBA :

Sub mise_a_jour()
'
Dim i As Integer

i = 3

Do Until Range("A" & i).Value = ""
    
    Workbooks.Open Filename:="R:\Achat\Commande Fournisseur\CF2007\CF0709\" & Range("A" & i).Value & ".xlsx"
    Windows("Commandes 2007.xlsm").Activate
    Range("B" & i).Select
    ActiveCell.FormulaR1C1 = "='[" & Range("A" & i).Value & ".xlsx]Commande'!R12C3"
    Windows(Range("A" & i).Value & ".xlsx").Activate
    ActiveWorkbook.Close False
    i = i + 1
Loop
    
End Sub

Merci tout de même pour ton aide.

Bon weekend.

Jeanvaljean
Hors ligneTigene Le 28/09/2007 à 14:31 Profil de Tigene Configuration de Tigene

Viconaute Modérateur
Ok

j'avais effectivement pensé à une macro, mais je suis une bille en VBA, alors je cherchais plus simple

merci

@+
--

Ce n'est pas parce qu'on a quelque chose à dire, qu'il faut forcément l'ouvrir

Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels