macro recherche et remplace un morceau de texte dans la designation du product et part

Bonjour a tous

je recherche une macro qui peut faire "recherche et remplace" un morceau de texte la dans la désignation des product et des parts

1 "créer à partie de" drawing et product
2 lancer la macro, recherche (ex:numéro de l'ancienne affaire)
3 modifier par le nouveau numéro
4 sauvegarder, tout est renommé

avoir la même fonction, comme excel...

si j'ai bien compri, tu veux une macro qui cherche le numéreau de la part dans un fichier excel, et réengistre la part avec sont nouveau numéreau ?

je pence qu'il vas faloir la créer

lgesl1catia a écrit:  Bonjour a tous

je recherche une macro qui peut faire "recherche et remplace" un morceau de texte la dans la désignation des product et des parts

1 "créer à partie de" drawing et product
2 lancer la macro, recherche (ex:numéro de l'ancienne affaire)
3 modifier par le nouveau numéro
4 sauvegarder, tout est renommé

avoir la même fonction, comme excel...

Je ne pourrai t'aider mais je comprends bien ta problématique, et si il y a une solution je suis preneur .

eyefighter a écrit:si j'ai bien compri, tu veux une macro qui cherche le numéreau de la part dans un fichier excel, et réengistre la part avec sont nouveau numéreau ?

je pence qu'il vas faloir la créer

Je crois qu'il parle d'excel comme exemple avec la fonction Ctrl+H qui permet de recherche un mot et de le remplacer dans tout le document.

salut

J'ai fais ça mais dans un drawing.
Si cela peux aider.

Code:

Sub PrepaRename()
' Demande la saisi du num de projet
NumProjet = InputBox("Saisir le numéro de projet")
On Error GoTo Errorhandler
'renommage des calques
For Each DrwSheet In DrwDocument.Sheets 'Planches
        'recherhce du texte
        For Each DrwView In DrwSheet.Views 'Vues
            If DrwView.Texts.Count > 0 Then
            For Each DrwText In DrwView.Texts
                    If StrComp(NumProjet, Left(DrwText.Text, 3), vbTextCompare) = 0 Then ' compare le texte au numùero de projet
                    Texte = DrwText.Text
                    'Debug.Print DrwSheet.Name & " " & Texte
                    DrwSheet.Name = Texte     'renommage des calques
                    DrwView.Name = Texte      'renommage des vues
                    End If
            Next
            End If
        Next
Next
Exit Sub

'gestion des erreurs
Errorhandler:
MsgBox "Une erreur est survenue, Ligne: " & Erl() & _
        vbCrLf & "Numéro d'erreur: " & Err.Number & vbCrLf & Err.Description
End Sub