> Tous les forums > Forum Bureautique
 Recherche dans 1 classeur appelée par Word VBA
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
deb56
  Posté le 07/12/2016 @ 22:30 
Aller en bas de la page 
Petit astucien

Bonsoir, les champions (et les autres).

A partir d'un document Word, je cherche à retrouver son nom dans un répertoire de documents qui est un classeur Excel. J'arrive bien à ouvrir le dit classeur mais ma fonction de recherche bugue (Erreur d'exécution 91: Variable objet ou variable de bloc with non définie). J'ai beaucoup cherché, mais je sèche. Ci-dessous mon code: en gras, là où ça bugue. Où est-il foireux?

Dim appExcel As Excel.Application, rResult As Range (entre autres) ...

Set appExcel = New Excel.Application

appExcel.Visible = True

With appExcel

nomfichier = Mid(section, 1, 2) & "RepDoc.xls"

clerep = ****

appExcel.Workbooks.Open FileName:=cheminRep & nomfichier, ReadOnly:=False, _

Password:=****, Notify:=True

' Application.ScreenUpdating = False

appExcel.Workbooks(nomfichier).Activate

.Sheets("Répertoire").Activate

.Columns("E:E").Select

With Selection

On Error Resume Next

Set rResult = appExcel.ActiveSheet.Cells.Find(what:=nomdoc, After:=ActiveCell, LookIn:=xlValues, LookAt:= _

xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

, SearchFormat:=False)

If rResult Is Nothing Then GoTo ErreurIdentif

End With

.rResult.Select 'etc

Merci d'avance pour vos avis compétents. Bonne soirée Deb

Publicité
CuisinePC
 Posté le 09/12/2016 à 22:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

deb56
 Posté le 09/12/2016 à 23:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir, CuisinePC.

Merci de tes liens que je vais étudier de près. Mais je ne suis pas sûr que ce soit la solution: mon code fonctionne très bien dans une macro lancée à partir d'un classeur Excel. C'est quand je veux lancer ce même code à partir d'une macro contenue dans un document Word que ça bugue, mais seulement après la sélection correcte de la colonne E.

As-tu étudié mon code? Qu'est-ce que je n'ai pas défini?

En tout cas, merci de ta participation. Je remettrai un post pour t'informer de la résolution du problème, quand je l'aurai confirmée.

Cordialement. deb

deb56
 Posté le 14/12/2016 à 15:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous.

Bon! Les liens de CuisinePC ne m'ont pas beaucoup éclairé et mes essais avec cells.find ou selection.find ne fonctionnent pas quand ils sont appelés dans une macro Word, alors qu'ils fonctionnent quand ils sont appelés dans une macro Excel. Pourquoi ???

En attendant, j'ai contourné le problème avec une fonction do until ... loop qui passe, une par une, les cellules sous la condition recherchée. Ça fonctionne, mais je trouve cela moins élégant (et peut-être plus lent, s'il y a beaucoup d'entrées dans la colonne?).

Je laisse le sujet ouvert pour le moment. Peut-être quelqu'un pourra résoudre ce problème de Find.

Cordialement.

Bonne fin d'année à tous! deb

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
59,99€Pack Gaming Corsair (clavier K55 RGB + souris Harpoon RGB Pro) à 59,99 €
Valable jusqu'au 29 Janvier

La Fnac fait une belle promotion sur un pack Gaming Corsair comprenant un clavier K55 RGB Pro et une souris Harpoon RGB Pro à 59,99 € alors qu'on le trouve ailleurs à partir de 89 €. Un ensemble de qualité pour joueurs débutants ou confirmés.


> Voir l'offre
599,99 €Ordinateur portable Lenovo 15.6 pouces (FHD, Ryzen 7, 8 Go RAM, SSD 512 Go, Windows 10) à 599,99 €
Valable jusqu'au 24 Janvier

Darty solde l'ordinateur portable Lenovo Ideapad 5 15ALC05 qui passe à 599,99 € alors qu'on le trouve habituellement à 799,99 €. Cet ordinateur portable dispose d'un écran 15.6 pouces Full HD (1920x1080), d'un processeur AMD Ryzen 7 5700U, de 8 Go de RAM, d'un SSD de 512 Go, d'un chip graphique Vega 8, d'une webcam, d'un lecteur de cartes mémoire et de connexions Bluetooth, WiFi, Ethernet, HDMI et  USB 3.1. Le tout tourne sous Windows 10 (que vous pourrez mettre à jour pour Windows 11) et ne pèse que 1,66 kg.

Un très bon portable polyvalent.


> Voir l'offre
99 €Platine vinyle Audio Technica ATLP60BK à 99 €
Valable jusqu'au 24 Janvier

Boulanger fait une promotion sur la platine vinyle Audio-Technica ATLP60BK qui passe à 99 € via une remise effectuée automatiquement dans le panier au lieu de 120 €. La platine AUDIO-TECHNICA ATLP60BK vous permet d'écouter les disques vinyle aux formats 33 tours ou 45 tours. Son fonctionnement entièrement automatique vous dispense de tout réglage fastidieux. Placez votre vinyle, lancez la lecture et profitez du son chaleureux de vos disques. La platine intègre un pré-ampli phono commutable.

Pour profiter de l'offre, ajoutez la platine au panier. Une remise de 50 € sur le prix affiché sera effectuée. La platine passera alors à 99 €.


> Voir l'offre

Sujets relatifs
recherche dans classeur
Recherche par Mot clé dans propriété de word
Classeur dans Word ?
Excel : recherche une date dans un tableau
Insertions de données en colonnes d'excel en paragraphe dans word
Créer les sous fichiers dans Word
supprimer un onglet dans ruban excel et word
Comment faire reapparaitre "linites de textes2 (Text boundaries) dans Word
Nbre max de feuilles dans un classeur
ClipArt disponible dans Word mais pas Outlook
Plus de sujets relatifs à Recherche dans 1 classeur appelée par Word VBA
 > Tous les forums > Forum Bureautique