modification plusieurs fichiers

[Marxan]

Bonjour,

Je me tourne vers vous car je suis un peu bloqué...
En effet, je dois modifier 400 fichiers Excel !
Je voudrai savoir si il existe un moyen "automatique" de le faire. Mes tableurs sont tous semblables et je cherche à faire les mêmes modifications.

Ce que je veux faire consiste à remplacer les formules de 3 cellules (de ma feuille "Calculs") par 3 autre, c'est à dire remplacer:
[V4]=COMMERCIAL!R41 par [V4]=COMMERCIAL!AY41
[X4]=COMMERCIAL!R42 par [X4]=COMMERCIAL!AY40
[Y4]=COMMERCIAL!R42 par [Y4]=COMMERCIAL!AY43

Voilà, j'espère que j'ai été assez clair.
Merci d'avance

 

[pierrejean]

Re : modification plusieurs fichiers

Bonjour Marxan

et bienvenue sur XLD

Il faut cependant savoir ou sont ces fichiers et en avoir soit la liste soit un moyen de les retrouver

 

[Marxan]

Re : modification plusieurs fichiers

Mes fichiers sont tous dans le même répertoire nommé : P:\Fiche affaire\Fiches affaires en cours\Fiche Affaire 2011
Ils sont appelés: FICHE AFFAIRE "nom_de_l_affaire"
Cependant, il n'y a aucune classification logique (pas de numérotation, etc.)

 

[Marxan]

Re : modification plusieurs fichiers

Heu... Je viens de me rendre compte en relisant mon message que j'ai été de la plus grande impolitesse !!!!

Alors tout d'abord, Bonjour pierrejean et merci pour ta réponse.

Ensuite je voudrai te préciser que le chemin P:\Fiche affaire\Fiches affaires en cours\Fiche Affaire 2011 est celui ou sont enrregistrés tous mes fichiers Excel. Cependant, cela correspond au chemin d'accès à un serveur. Cela pose-t-il problème ?
De plus, j'aimerai dans un premier temps tester la modification en local avant de modifier de façon aléatoire ces fichier et ainsi me faire licencier.
Disons que je testerai en local sur le chemin suivant : C:\test_fiches_affaires

Voilà, j'espère que je suis assez clair.

Merci d'avance ;-)

 

[pierrejean]

Re : modification plusieurs fichiers

Re

Teste ceci

Sub modif()
repertoire = "C:\test_fiches_affaires\"
mesfichiers = Dir(repertoire)
Do While mesfichiers <> ""
  If InStr(mesfichiers, "FICHE AFFAIRE") <> 0 Then
    Workbooks.Open repertoire & mesfichiers
    With ActiveWorkbook
      .Sheets("Calculs").Range("V4") = "=COMMERCIAL!AY41"
      .Sheets("Calculs").Range("X4") = "=COMMERCIAL!AY40"
      .Sheets("Calculs").Range("Y4") = "=COMMERCIAL!AY43"
      .Close SaveChanges:=True
    End With
  End If
  mesfichiers = Dir
Loop
End Sub

 

[Marxan]

Re : modification plusieurs fichiers

Ok, j'ai modifié car je voulais que la nouvelle valeur provienne de la feuille "COMMERCIAL"
Ca donne ceci et ça a l'air de fonctionner:



Une fois que je voudrais le lancer réellement, j'aurai juste à remplacer:
repertoire = "C:\test_fiches_affaires\" par repertoire = " P:\Fiche affaire\Fiches affaires en cours\Fiche Affaire 2011\" ???

Merci pour la rapidité et l'efficacité de ta réponse !

 

[Marxan]

Re : modification plusieurs fichiers

Encore une question, mais ce coup-ci je pense que ça me dépasse et je suis même pas sûr que cela soit faisable...

Est-il possible d'extraire 1 ligne de chacun de mes 400 fichiers et de la copier/coller sur un nouveau tableur ???

Par exemple si je veux avoir la ligne 4 de la feuille "COMMERCIAL" de chacun de mes fichiers de cette manière:
Ligne 1 ==> Ligne 4 du fichier 1
Ligne 2 ==> Ligne 4 du fichier 2
...

L'ordre m'importe peu, je veux juste avoir la copie de toutes ces lignes sur une même feuille.

Voilà, si c'est faisable ça serait cool, sinon j'vais faire du copier/coller à la chaine...

 

[pierrejean]

Re : modification plusieurs fichiers

Re

A tester:

Sub modif()
numligne = 1
Set sh = ThisWorkbook.ActiveSheet
repertoire = "C:\test_fiches_affaires\"
mesfichiers = Dir(repertoire)
Do While mesfichiers <> ""
  If InStr(mesfichiers, "FICHE AFFAIRE") <> 0 Then
    Workbooks.Open repertoire & mesfichiers
    With ActiveWorkbook
      .Sheets("COMMERCIAL").Rows(4).Copy Destination:=sh.Range("A" & numligne)
      numligne = numligne + 1
      .Close
    End With
  End If
  mesfichiers = Dir
Loop
End Sub

 

[Marxan]

Re : modification plusieurs fichiers

J'ai essayé, cela fonctionne très bien, cependant j'aurai besoin de faire un "collage spécial" des valeurs de la ligne 4.

J'ai essayé mais je rencontre des problèmes... Si tu pouvais m'aider encore un petit peu ça serait fort aimable.

En tout cas, merci à toi.

 

[pierrejean]

Re : modification plusieurs fichiers

Re

Teste:

Sub modif()
numligne = 1
Set sh = ThisWorkbook.ActiveSheet
repertoire = "C:\test_fiches_affaires\"
mesfichiers = Dir(repertoire)
Do While mesfichiers <> ""
  If InStr(mesfichiers, "FICHE AFFAIRE") <> 0 Then
    Workbooks.Open repertoire & mesfichiers
    With ActiveWorkbook
      .Sheets("COMMERCIAL").Rows(4).Copy Destination:=sh.Range("A" & numligne)
      For n = 1 To sh.Cells(numligne, 256).End(xlToLeft).Column
         sh.Cells(numligne, n) = sh.Cells(numligne, n).Value
      Next n
      numligne = numligne + 1
      .Close
    End With
  End If
  mesfichiers = Dir
Loop
End Sub

 

[Marxan]

Re : modification plusieurs fichiers

Re,

Je crois que cela ne fonctionne pas...

Quand je lance la macros, elle copie bien les lignes à la suite des autres, cependant elle crée un décalge dans la formule à copier.
Je m'explique: Dans la colonne "B", la formule copiée devrait être : =+Etudes!B20
Or en B1, la formule copiée est : =+Etudes!B17
B2, la formule copiée est : =+Etudes!B18
B3, la formule copiée est : =+Etudes!B19
...

Bref, il n'y a que la ligne 4 qui est correcte.

J'espère que j'ai été assez clair.

 

[pierrejean]

Re : modification plusieurs fichiers

Re

Pas vraiment
Peux-tu poster quelques fichiers exemple ?

 

[Marxan]

Re : modification plusieurs fichiers

Je voudrai bien, mes malheureusement ils sont trop gros pour être mis en pièces jointes sur le forum.
Je peux te les envoyer par mail si tu me donnes une adresse en mp.

En tous cas merci.