Discussion :

[morgane32]

bonjour,
j'essaye de mettre en forme un classeur excel dont certaines cellules se rempliraient automatiquement (par un bouton à cliquer) en recopiant des valeurs contenues dans un autre fichier excel.
J'ai réussi à écrire le code suivant mais il ne marche pas et je n'arrive pas à voir d'où vient l'erreur.
Par ailleurs je ne trouve pas d'éléments de réponses concernant les emplacements relatifs et absolus dans l'écriture des chemins des dossiers.
Merci de toute aide
Voici le fameux code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
 
   'entrée d'un paramètre qui va permettre de retrouver la ligne à recopier dans un classeur nommé "Etude1"
idetude = Application.InputBox(prompt:="Entrer l'Identifiant de votre étude", Type:=1)
 
    'Ouvrir le classeur nommé Base CHU promoteur
    Workbooks.Open ("S:\Recherches_cliniques\DRCI\BDD\Base CHU promoteur.xls")
 
    'Activer le classeur Base CHU promoteur et copier une cellule
    Workbooks("Base CHU promoteur.xls").Activate
    Worksheets("REGLEMENTAIRE.xls").Activate
    'retrouve le numéro de la ligne qui correspond à la variable entrée précédemment et le mémorise en tant que nombre
    nbr = Range("A1:A65536").Find(idetude, lookat:=xlWhole).Row
     'affichage pour vérifier qu'il a bien pris la bonne ligne =test   
     MsgBox "Numéro de la ligne :" & nbr
    Sheets("REGLEMENTAIRE").Cells(nbr, 2).Select
    'copie le numero de dossier associe à l'identifiant rentré
    Selection.Copy
    'Activer le classeur Etude1 et coller la valeur au bon endroit
    Workbooks("Etude1.xls").Activate
    Sheets("SUIVI").Cells(1, 1).Select
    ActiveSheet.Paste
 
 
End Sub

[Duddy]

Bonjour,

Où le code bloque-t-il?

Quelle est l'erreur?

Qu'entends-tu par :

Par ailleurs je ne trouve pas d'éléments de réponses concernant les emplacements relatifs et absolus dans l'écriture des chemins des dossiers.

Où veux-tu coller tes infos?

A+

[mercatog]

Bonjour,
Déjà les activate et le Select ne sont pas nécessaires. Toutes tes activate et Select ne sont pas nécessaires.
ensuite, je m'étonne que ta feuille existe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("REGLEMENTAIRE.xls").Activate

et avec ça, tu risques bien d'avoir du blocage au cas ou idetude n'existe pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 nbr = Range("A1:A65536").Find(idetude, lookat:=xlWhole).Row

Le comble, c'est pour copier ta cellule "trouvée" dans "A1" de la feuille suivi du Classeur Etude1

[morgane32]

merci pour ces premières réponses, je vais mieux détaillé mes questions.
Tout d'abord je souhaite coller plusieurs cellules d'une ligne (définie grâce à un identifiant puis à un numéro de ligne) d'une feuille 1 d'un classeur "Etude" vers une feuille "REGLEMENTAIRE" d'un classeur "BASE CHU PROMOTEUR" à plusieurs endroits différents mais dont je rentrerai les coordonnées à la main (A1 en est un exemple).
Je pensais donc qu'il fallait activer et sélectionner les emplacements en fonction des actions. Si ça n'est pas le cas faut-il tout de même que les deux classeurs soient déjà ouverts auparavant?
Le code bloque effectivement sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("REGLEMENTAIRE.xls").Activate

Quelle est l'erreur, ça n'est pas la bonne formulation pour ouvrir la feuille "REGLEMENTAIRE"?
L'erreur signalée est: Erreur d'exécution 9 L'indice n'appartient pas à la sélection.
Quel est le risque encouru si idetude n'existe pas?
Enfin, l'histoire des chemins relatifs et absolus c'est pour ne pas avoir à entrer les chemins complets de l'emplacement du dossier mais juste une autre formulation si les deux classeurs se trouvent dans le même fichier. J'ai entendu parler de ça mais je ne sais pas comment cela s'écrit.

[Krovax]

Worksheets=onglets
workbooks=classeur (fichier excel)
Est ce que tu as un onglet qui s'apelle "REGLEMENTAIRE.xls"
Si ton onglet s'apelle REGLEMENTAIRE alors met juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("REGLEMENTAIRE").activate

Si tu parle d'un classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

workbooks("REGLEMENTAIRE").activate

Mais comme le dit mercatog les activate et les select c'est pas top mais là tu t'en rendra compte bien assez tot quand tu verra les alternative, n'allont pas plus vite que la musique

[morgane32]

j'ai effectué les modifications (enlevé les .xls) mais j'ai toujours la même erreur!
Je suis d'accord avec vous pour enlever les .activate .select mais que mettre à la place alors?

[mercatog]

Réécrit ta nouvelle version du code. comme ça, sera clair

En réponse: si idetude n'est pas trouvé! de quel ligne parle cette ligne de code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbr = Range("A1:A65536").Find(idetude, lookat:=xlWhole).Row