Re : Macro pour aller mettre des informations d'un fichier dans un autre
Bonjour stich02,
Voici les explication du code:
Sub Bouton6_Cliquer() ' lorsque le Bouton6 est cliqué
specdossier = ActiveWorkbook.Path ' Donne le chemin d'accés du fichier "factures" (classeur actif) sans le séparateur final (\) et sauvegarde ce chemin sous la variable (specdossier)
fic = ActiveWorkbook.Name ' fic est la sauvegarde du nom du classeur actif (factures)
code = InputBox("saisir le numéro de facture") ' (code) est ce que tu entres dans la (inputbox)
On Error GoTo aa: ' si erreur aller à la fin du programme sans provoquer de message
s = "commentaire" '(s) est la variable du nom de ton classeur d'arrivée (commentaire)
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & s & ".xls", UpdateLinks:=0 ' ouvrir le classeur du chemin d'accés de(factures) + "\" + (commentaire) + ".xls"
num_de_la_ligne_recherchée = CVErr(xlErrNA)
num_de_la_ligne_recherchée = Application.Match(Val(code), Range("A:A"), 0) ' recherche le numero de ligne dans la colonne A de (commentaire) de la réponse de l'inputbox .
If IsNumeric(num_de_la_ligne_recherchée) Then 'si numero de ligne trouvée
Cells(num_de_la_ligne_recherchée, 1).Select ' selectionne la cellule dans (commentaire) à la ligne trouvée et à la colonne A
Else 'Si non trouvée
num = Cells.Find("*", , , , , xlPrevious).Row ' Chercher le numéro de la derniere ligne écrite en (commentaire)
Cells(num + 1, 1).Select ' Selectionner la cellule suivante qui est vide en colonne A
End If
aa:' Arrivée en cas d'erreur
End Sub
Sur la macro à la ligne "On Error GoTo aa:", place ce signe ' pour inhiber l'instruction "On Error GoTo aa:".
Si un erreur intervient, tu auras un message.
Que te dis ce message ?
Tu as écrit:
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & s & "K:\Jean-Marie\Professionnel\SAP 2013\TEST\commentaire.xls", UpdateLinks:=0:
essayes plutôt:
Workbooks.Open Filename:=("K:\Jean-Marie\Professionnel\SAP 2013\TEST\commentaire.xls"), UpdateLinks:=0:
A+
René
