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