Remplacer des éléments avec excel en VB

Bonjour,

Je voudrais ouvrir excel avec un fichier jusque la pas de problème mais ensuite je voudrais remplacer certaines valeurs mais je bute ici.

Comment faire?

Voici le code.

Set app_exc = CreateObject("Excel.application")
app_exc.DisplayAlerts = False
app_exc.Visible = True
app_exc.application.Workbooks.Open ("C:\seb.xls")


' PROBLEME ICI

app_exc.Cells.Replace What:="seb", Replacement:="seb1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


app_exc.application.activeWorkbook.Close True ' Sauvegarde le fichier

app_exc.application.quit
Set app_exc = Nothing

Merci

Sebastien

Bonjour,

Peux être faudrait il que tu specifie la feuille dans laquelle tu veux faire cela...

Si tu veux balayer toutes les feuilles et seulement une certaine plage de données alors ceci pourrait t'aider.

Private Sub Worksheet_Activate()

For Each Feuilles In ActiveWorkbook.Sheets
For Each Cellules In Range("A2:F100")
If (Cellules .Value) = "SEB" Then
Cellules .Value = "Seb1"
End If
Next Cellules
Next Feuille
End Sub

Par exemple...

A bientôt
SebOfBorg

J'ai toujours le même probleme.
Le message d'erreur est Impossible de lire la propriété findnext de la fonction range
Runtime error 1004.

Pourquoi j'ai ce problème ?

Voici le code:

Sub Main()

'Dim sht As Worksheets

Set app_exc = CreateObject("Excel.application") 'demande a communiquer avec excel.
app_exc.DisplayAlerts = False ' affiche les messages d'alertes ou pas.
app_exc.Visible = True ' affiche ou cache excel
app_exc.Application.WorkBooks.Open ("C:\temp\seb.xls") 'ouvre le fichier


For feuille = 1 To app_exc.Sheets.Count
app_exc.Sheets(feuille).Activate


Set trouvé1 = app_exc.Cells.Find(What:="seb")
If Not trouvé1 Is Nothing Then
trouvé1.Activate
dr = trouvé1.Address
app_exc.Application.Range(dr).Value = "seb1"
End If

essai:
' BUG ICI **************
Set trouvé2 = app_exc.Cells.FindNext(After:=ActiveCell)
If Not trouvé2 Is Nothing Then
trouvé2.Activate
dr = trouvé2.Address
app_exc.Application.Range(dr).Value = "seb1"

End If
GoTo essai
Next feuille


app_exc.Application.ActiveWorkbook.Close True ' Sauvegarde le fichier

app_exc.Application.Quit
Set app_exc = Nothing

End Sub

Merci

Sebastien

Déjà une chose,
Nous sommes dans un environnement Anglais,
Evite les accents éàèù

Voici l'exemple de Microsoft :

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Ne fais pas : For feuille = 1 To app_exc.Sheets.Count
Mais plutot : For Each Feuilles In ActiveWorkbook.Sheets
C'est plus beau et cela va plus vite en execution.

Autre chose,
puisque tu veux remplacer les valeurs as tu essayé :
------------------------------------------------------------------
Cells.Replace What:="seb", Replacement:="seb1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
------------------------------------------------------------------

Peut êtrequ'il ne faut pas utiliser de Set !
Mais simplement un TOTO = cells.FindNext(After:=ActiveCell).Range

Le replace me plais bien, sinon utilise le
Pour toutes les feuilles
Pour toutes les cellules
Si Valeur = Seb alors
Valeur = Seb1
Fin de Si
Boucle Cellules
Boucle Feuilles

Restant a l'ecoute
SebOfBorg

Bonjour,

Bon le programme fonctionne comme je le veux mais j'utilise la fonction replace qui ne voulait pas fonctionner avant.
Pourquoi je ne sais pas.

Merci pour ton aide
Sebastien

Bonjour,

Alors fait attention avec cette fonction elle ne fonctionne pas sur Office 97.

Bon courage
SebOfBorg