macro : modifier une expression dans tous les onglets

JNP

XLDnaute Barbatruc

• 29 Novembre 2009

• #2

Re : macro : modifier une expression dans tous les onglets

Bonsoir Chris427 🙂,

Code:

Dim Cellule As Range, Feuille As Worksheet
Sheets("SAISIE DE DONNÉE").Range("C1").FormulaR1C1 = "2009"
For Each Feuille In ThisWorkbook
For Each Cellule In Feuille
Cellule = Cellule.Replace("\Données 2008", "\Données 2009")
Next
Next

devrait fonctionner.
Bonne soirée 😎

 

Vote positif 0 Vote négatif

C

chris427

XLDnaute Junior

• 29 Novembre 2009

• #3

Re : macro : modifier une expression dans tous les onglets

Bonsoir JNP

J'ai lancé la macro et j'ai eu
"erreur d'exécution 438
Propriété ou méthode non gérée par cet objet"

En cliquant sur "Débogage"
Est- surlignée en jaune la ligne suivante :

"For Each Feuille In ThisWorkbook"


Il y a un truc que je n'ai pas saisi ?
pour info, je suis sur Excel 2007, est-ce que ça change qqchose dans les macros ?

Merci encore,

Chris

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 29 Novembre 2009

• #4

Re : macro : modifier une expression dans tous les onglets

Bonsoir,

Code:

Dim Cellule As Range, Feuille As Worksheet
Sheets("SAISIE DE DONNÉE").Range("C1").FormulaR1C1 = "2009"
For Each Feuille In ThisWorkbook.Sheets
    Feuille.Cells.Replace "\Données 2008", "\Données 2009"
Next

A+
kjin

 

Vote positif 0 Vote négatif

C

chris427

XLDnaute Junior

• 29 Novembre 2009

• #5

Re : macro : modifier une expression dans tous les onglets

Hello Kjin,

Décidément,

Là j'ai
"erreur de compilation : déclaration existante dans la portée en cours".

Est-ce que vous savez ce que cela signifie ?

Merci 1000 fois !!

Chris

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 29 Novembre 2009

• #6

Re : macro : modifier une expression dans tous les onglets

Bonsoir,
A noter que s'il s'agit de lien vers un classeur dans des formules, il est plus simple d'utiliser ChangeLink

Code:

ActiveWorkbook.ChangeLink "Ancien chemin", _
    "Nouveau chemin", xlExcelLinks

A+
kjin

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 29 Novembre 2009

• #7

Re : macro : modifier une expression dans tous les onglets

Re,

chris427 à dit:

"erreur de compilation : déclaration existante dans la portée en cours".

Cliquez pour agrandir...

N'as tu pas doublonné la déclaration d'une variable ?
A noté que "cellule" n'est plus utile dans le code fourni
A+
kjin

 

Vote positif 0 Vote négatif

C

chris427

XLDnaute Junior

• 29 Novembre 2009

• #8

Re : macro : modifier une expression dans tous les onglets

Effectivement, désolée, la première partie était en double.

Par contre, j'ai donc ça comme macro finale :

Dim Cellule As Range, Feuille As Worksheet
Sheets("SAISIE DE DONNÉE").Range("C1").FormulaR1C1 = "2009"
For Each Feuille In ThisWorkbook.Sheets
Feuille.Cells.Replace "\Données 2008", "\Données 2009"
Next

et ça ne marche pas mieux, ça ne remplace pas l'année 2008 par 2009.

Aurais-je oublié quelque chose ??

Merci encore !!

Chris

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Novembre 2009

• #9

Re : macro : modifier une expression dans tous les onglets

re,
Je suis sur excel2000 et chez moi cela fonctionne
As tu tester ChangeLink
A+
kjin

 

Vote positif 0 Vote négatif

C

chris427

XLDnaute Junior

• 30 Novembre 2009

• #10

Re : macro : modifier une expression dans tous les onglets

Allo !

Je viens d'essayer Changelink
Ca n'a pas marché mais je crois que là c'est parce que je ne sais pas comment intégrer Changelink dans la macro.
J'ai essayé ça et d'autres variante, sans succès :

Dim Cellule As Range, Feuille As Worksheet
Sheets("SAISIE DE DONNÉE").Range("C1").FormulaR1C1 = "2009"
For Each Feuille In ThisWorkbook.Sheets
ActiveWorkbook.ChangeLink "C:\Données 2008", _
"C:\Données 2009", xlExcelLinks
Next

Merci encore pour votre patience ... 🙂

Chris

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 30 Novembre 2009

• #11

Re : macro : modifier une expression dans tous les onglets

Re 🙂,
Tu n'as plus besoin de décrire les feuilles

chris427 à dit:

Dim Cellule As Range, Feuille As Worksheet
Sheets("SAISIE DE DONNÉE").Range("C1").FormulaR1C1 = "2009"
For Each Feuille In ThisWorkbook.Sheets
ActiveWorkbook.ChangeLink "C:\Données 2008", _
"C:\Données 2009", xlExcelLinks
Next

Cliquez pour agrandir...

ce qui est en rouge est à supprimer.
Bonne journée 😎

 

Vote positif 0 Vote négatif

C

chris427

XLDnaute Junior

• 1 Décembre 2009

• #12

Re : macro : modifier une expression dans tous les onglets

Allo JNP,

Hélas :
Erreur d'exécution 1004
La méthode 'ChangeLink' de l'objet '_Workbook' a échoué

Voici ce qui reste de la macro :

Sheets("SAISIE DE DONNÉE").Range("C1").FormulaR1C1 = "2009"
ActiveWorkbook.ChangeLink "\Données 2008\", _
"\Données 2009\", xlExcelLinks


Merci encore pour votre aide,

Chris

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 1 Décembre 2009

• #13

Re : macro : modifier une expression dans tous les onglets

Bonsoir,
Ce n'est pas tout à fait ce que j'ai écrit plus haut
Le chemin doit être complet, ex

Code:

ActiveWorkbook.ChangeLink "C:\Toto\Dossier 2008\Toto.xls", _
    "C:\Toto\Dossier 2009\Toto.xls", xlExcelLinks

Peux tu faire passer un bout de fichier
A+
kjin

 

Vote positif 0 Vote négatif

C

chris427

XLDnaute Junior

• 1 Décembre 2009

• #14

Re : macro : modifier une expression dans tous les onglets

En fait, j'ai 70 fichiers, tous intereliés entre eux pour faire des comparaisons.
Et le problème avec le chemin d'accès complet, c'est qu'il faut que je remplace 304 fois "C:\Données 2008" par "C:\Données 2009"
Après vérification, le fichier xls appelé est apparemment toujours le même mais les données ne se trouvent pas toujours dans le même onglet.
Est-ce que ChangeLink ne fonctionne qu'avec les chemins d'accès complets ?

Exemple de formules où il faut que je change 2008 par 2009 :

C:\Données 2008\[secteurs.xls]Prix'!B7
C:\Données 2008\[secteurs.xls]Prix'!E12

C:\Données 2008\[secteurs.xls]Qualité'!D6
C:\Données 2008\[secteurs.xls]Région - Province'!$I$13

Merci !!!

Chris

 

Vote positif 0 Vote négatif