> 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
190,75 €Ecouteurs sans fil Apple AirPods Pro avec réduction active du bruit à 190,75 € livrés
Valable jusqu'au 19 Mai

Amazon Italie actuellement les écouteurs sans fil Apple AirPods Pro (2021) avec boîtier de charge sans fil à 185,90 € (avec la TVA ajustée). Comptez 4,85 € pour la livraison en France soit un total de à 190,75 € livrés. On les trouve ailleurs à 239 €.

 Les AirPods Pro signés Apple offrent une expérience audio supérieure en combinant Bluetooth 5.0, confort permanent, technologie de réduction de bruit active et une belle autonomie de 24 heures. Accompagnés d'un boîtier de charge sans fil, ils s'inviteront idéalement dans votre quotidien.


> Voir l'offre
299,99 €Ecran 32 pouces LG Ultragear 32GN650-B (QHD, 165 Hz, FreeSync/GSync, réglable en hauteur) à 299,99 €
Valable jusqu'au 19 Mai

Amazon Allemagne fait une promotion sur l'écran LG 31,5 pouces LG Ultragear 32GN600-B qui passe à 231,94 €. Comptez 14,33 € pour la livraison en France soit un total de 246,27 € livré. On le trouve ailleurs à partir de 299 €. Cet écran possède une dalle 31,5 pouces QHD (2560x1440) à 144 Hz, un temps de réponse de 1 ms. Il est compatible FreeSync et GSync.


> Voir l'offre
333,00 €Tablette 11 pouces Xiaomi Mi Pad 5 (120 Hz, Snapdragon 860, 6Go/128 Go, Android 11) à 333 €
Valable jusqu'au 21 Mai

Amazon propose actuellement l'excellente tablette 11 pouces Xiaomi Mi Pad 5 à 333 € au lieu de 399,99 €. Cette superbe tablette possède un écran 11 pouces IPS WQHD+ (2560x1600 pixels) 120 Hz, un processeur Snapdragon 860 à 8 coeurs, 6 Go de RAM, 128 Go de stockage et tourne sous Android 11. Elle est compatible avec les stylets Xiaomi Smart Pen. 


> 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