Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1735 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème rechercher et remplacer sous Access

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème rechercher et remplacer sous Access

n°2000246
Luminaire
Posté le 09-06-2010 à 14:53:26  profilanswer
 

Bonjour à tous.
 
Sous access, j'ai besoin d'ouvrir un csv, faire des rechercher/remplacer, enregistrer le csv sous un autre nom, l'importer dans une base et le supprimer.
 
L'ouverture se fait sans problème cependant, lorsque j'écris le code du "rechercher et remplacer" sous excel et que je le copie colle sous access, la macro s'arrete et me dit "Objet requis".
 
Le code VBA Access et Excel ne sont pas si diffèrent quand même. Si ?
 
Voila mon code.
 
Sub rptcarc()
NomFichier = "CGW7utams.csv"
Set AppExcel = CreateObject("Excel.Application" )
AppExcel.Workbooks.Open ("J:\Commun\Quota\Extraction spaceguard\" & "CGW7utams.csv" )
 
SearchCells.Replace What:="E:\Users", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="CG\", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="CMS\", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

AppExcel.Visible = True
On Error Resume Next
AppExcel.UserControl = True
AppExcel.Close
End Sub

 
En gras, c'est ce qui ne marche pas... Et sur le coup, google n'a pas été mon ami ;(
 
concernant les dernières étapes, ça doit être relativement simple non ?
 
Merci par avance de vos réponse
 
Lumi;

mood
Publicité
Posté le 09-06-2010 à 14:53:26  profilanswer
 

n°2000550
dje69r
Arme de distraction massive
Posté le 10-06-2010 à 14:35:50  profilanswer
 

Hello
 
C'est pas une question d'etre different ou pas du VBA d'access...!
Aucun rapport... Chaque logiciel a ses methodes et propriétés propres. D'où le "A" de VBA
 
Tu créés un objet Excel, a partir d'Access. Cet objet se nomme AppExcel. Si tu veux utiliser des methodes d'Excel il faut bien que tu fasses référence a cet objet...
 
Cells est une propriété d'Excel pas d'Access. Donc dans ton code tu fais appel a une propriété Cell sans specifié que c'est une propriété de ton objet Excel.
 
Ce qu'il faut faire :
AppExcel.Cells.Replace etc.
 
Pour preuve, qd tu veux ouvrir un fichier tu l'utilises bien :
AppExcel.Workbooks.Open ("J:\Commun\Quota\Extraction spaceguard\" & "CGW7utams.csv" )  
 
Parcontre le SearchCells je ne connais pas


Message édité par dje69r le 10-06-2010 à 14:41:03

---------------
Plus tu pédales moins vite, moins tu avances plus vite — SuperLoustic ! La radio des Loustics !
n°2000551
olivthill
Posté le 10-06-2010 à 14:39:06  profilanswer
 

Cells est un objet Excel qui dépend de la feuille (Worksheet), laquelle dépend du Workbook.
 
Quand on se trouve dans Excel, la worksheet est celle en cours. Mais quand on se trouve à l'éxterieur, il faut la sélectionner. Idem pour le workbook.
 
Essayer de créer un objet pour la feuille, ou bien d'utiliser un chemin complet, par exemple :

AppExcel.Workbooks(1).Worksheets("Feuil1" ).Cells.Replace What:="CG\", _
        Replacement:="", LookAt:=xlPart, SearchOrder :=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  


Message édité par olivthill le 10-06-2010 à 14:41:13
n°2000554
Luminaire
Posté le 10-06-2010 à 14:43:11  profilanswer
 

Salut Dje69r olivthill et merci de vos réponses !
 
Je comprends mieux maintenant pourquoi Access me disais "Objet non défini" ou un truc dans le genre.
 
Je vais donc m'aider de vos réponses et je vous tiens au courant !
 
Je précise au passage que le code en gras est issue d'une macro enregistrée automatiquement.
 
Merci encore,  
Lumi.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème rechercher et remplacer sous Access

 

Sujets relatifs
[Résolu] Petit problème "for" déjà dans une boucle ...Problème de variable de session
Problème copie d'une table dans une autreVBA Excel et base Access
Problème formulaire de contact / envoi mailProblème d'affichage dans champs textes dynamiques (POUR UN DECOMPTE)
bse de connaissance accessprobléme d'intialisation avec dev c++
character set et apple? probleme de nom de fichiersProbleme prise en charge Tableaux IE/Chrome/Firefox/Opera
Plus de sujets relatifs à : Problème rechercher et remplacer sous Access


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR