Dialogue entre fichiers excelRésolu

Question

Bonjour, je suis tout nouveau ici et peu exp&#233;riment&#233; en VBA. Or, je suis bloqu&#233;...

Je suis en train de faire une application Excel pour g&#233;rer des entr&#233;es et des sorties de personnel par code barre (chaque fois que quelqu"un entre, j'inscris le nom, le pr&#233;nom, le num&#233;ro de badge, l'heure d'entr&#233;e, ... dans une feuille excel). Mais avant cela, je dois v&#233;rifier que la personne est inscrite dans les registres et y r&#233;cup&#233;rer ces informations (une autre feuille excel).

J'ai donc le num&#233;ro de badge en entr&#233;e. Je souhaite l'utiliser pour r&#233;cup&#233;rer les informations sur l'autre feuille excel gr&#226;ce &#224; une fonction Autorisation. Est-il possible que l'un des param&#232;tres de cette fonction soit une feuille excel?

J'ai essay&#233; ce code, mais j'ai une erreur 9...

Public appExcel As Excel.Application 'Application Excel
Public bookExcel As Excel.Workbook
Public listeAutoristations As Excel.Worksheet
    
Public Sub CommandButton1_Click()
 'Chemin du fichier a modifier &#224; chaque installation
      repertoire = "C:\...\fichier.xls"
     'Ouverture de l'application
        Set appExcel = CreateObject("Excel.Application")
    'Gestion du fichier et ouverture statique
       Set bookExcel = appExcel.Workbooks.Open(repertoire)
       Set ListeAutorisations = bookExcel.Worksheets(Sheet) 'ERREUR 9
        'Visualisation en fond d'ecran la page excel
        'appExcel.Visible = True
Autorisation(CLng(TextBox1.Value), (ListeAutorisations))
'On entre le matricule et on va chercher les donn&#233;es associ&#233;es pour les r&#233;cup&#233;rer dans une textbox

Merci de votre aide.

LF pour les nuls,
Bidouilleur fou.

Alboure · Accepted Answer

Salut

tu peux faire:

Set ListeAutorisations = bookExcel.Worksheets("le_nom_de_ta_feuille")

public sub autorisation(num as long, feuille as object) 

feuille.select
...

end sub

et quand tu l'appelles tu mets:

Autorisation CLng(TextBox1.Value), ListeAutorisations

Alboure

LF pour les nuls · Answer

Merci beaucoup, mais j'ai encore une erreur : 

Public Function Autorisation(Matricule As Long, Feuille As objet)

-> erreur de compilation : type d&#233;fini par l'utilisateur non d&#233;fini. 

(Je n'aime pas que le message parle de l'utilisateur, je sens que j'ai fait mon boulet^^)

LF pour les nuls,
Bidouilleur fou.

mortalino · Answer

Salut,

Tu dis que tu es en VBA (je suppose Excel!).
Pourquoi déclares-tu 
Public appExcel As Excel.Application 'Application Excel
Public bookExcel As Excel.Workbook
Public listeAutoristations As Excel.Worksheet

++
Mortalino

LF pour les nuls · Answer

Salut,

Parce que je travaille avec un fichier excel pour mon interface mais que j'ai besoin de faire appel &#224; d'autres fichiers excel. Ne sachant pas comment faire, j'ai essay&#233; un code trouv&#233; sur le site. Il ne fallait pas?

LF pour les nuls,
Bidouilleur fou.

mortalino · Answer

Non, pas besoin, c'est nécessaire depuis les autres appli Office ou VB.

A partir du classeur, 
Workbooks.Open ("c:/chemin/nom classeur")
'ça t'ouvre le classeur est celui est actif.

celui ci étant ouvert et donc actif, tu peux travailler comme normalement
(range("A1").Value = sboub ; Printout ; bref tout quoi)

Par contre pour le fermer, ne fait pas ThisWorkBook.Close mais ActiveWorkBook.Close

Voilou


Pour te filer un exemple, j'ai un fichier qui calcul mon salaire, quand je l'ouvre, il ouvre mon planning pour récupérer mes heures effectuées, le ferme et place les données aux emplacements qui vont bien :
_________________________________________________________________________
Dim nbjourtrav, nbPrimeDispo, nbheurenuit, nbheurenuitsamedi, nbheurejourdimanche, nbheurenuitdimanche, nbheurejourferie As Byte

Private Sub Workbook_Open()
Workbooks.Open ("S:\PARTAGES\CI\Nico\Tour Nico CI 2006")

moisencours = Month(Date)

If moisencours = 2 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("janv").Select
    Call nbheures
ElseIf moisencours = 1 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("déce").Select
    Call nbheures
ElseIf moisencours = 3 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("févr").Select
    Call nbheures
ElseIf moisencours = 4 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("mars").Select
    Call nbheures
ElseIf moisencours = 5 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("avri").Select
    Call nbheures
ElseIf moisencours = 6 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("mai").Select
    Call nbheures
ElseIf moisencours = 7 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("juin").Select
    Call nbheures
ElseIf moisencours = 8 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("juil").Select
    Call nbheures
ElseIf moisencours = 9 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("août").Select
    Call nbheures
ElseIf moisencours = 10 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("sept").Select
    Call nbheures
ElseIf moisencours = 11 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("octo").Select
    Call nbheures
ElseIf moisencours = 12 Then
    Workbooks("Tour Nico CI 2006.xls").Worksheets("nove").Select
    Call nbheures
End If

ActiveWorkbook.Saved = True
ActiveWorkbook.Close

Sheets("salaire").Select
Range("C18").Value = nbjourtrav
Range("C12").Value = nbheurenuit
Range("C13").Value = nbheurenuitsamedi
Range("C14").Value = nbheurejourdimanche
Range("C15").Value = nbheurenuitdimanche
Range("C16").Value = nbheurejourferie
Range("C17").Value = nbPrimeDispo
End Sub

Private Sub nbheures()
    nbjourtrav = Range("D38").Value
    nbheurenuit = Range("R34").Value
    nbheurenuitsamedi = Range("R35").Value
    nbheurejourdimanche = Range("R36").Value
    nbheurenuitdimanche = Range("R37").Value
    nbheurejourferie = Range("R38").Value
    nbPrimeDispo = Range("R39").Value
End Sub
______________________________________________________________

j'espere t'avoir aidé

@ ++
mortalino

LF pour les nuls · Answer

Et bien, voil&#224; qui est clair! Super sympa. Je crois mieux comprendre. En fait, il suffit d'activer le classeur et les feuilles sur lesquels on veut travailler. Et lorsqu'on souhaite revenir sur le classeur de l'application, on les d&#233;sactive. Du coup, mon erreur 9 viendrait de l'oubli du select. J'essaye tout &#231;a ce soir ou demain, mais en tout cas grand merci (je n'oublierais pas de valider la r&#233;ponse apr&#232;s essai^^).

LF pour les nuls,
Bidouilleur fou.

mortalino · Answer

Pas de problème,
Bidouille bien..

++
Mortalino

LF pour les nuls · Answer

Super! &#231;a marche! Excatement ce que je voulais. Je sens le pouvoir de VBA entrer en moi. Rien ne pourra m'arr&#234;ter. Je vais me mettre &#224; programmer en dehors du boulot!!! lol. Prochaine &#233;tape, allumer mon pc pour qu'il me r&#233;veille en musique le matin^^


Merci encore.

LF pour les nuls,
Bidouilleur fou.

LF pour les nuls · Answer

Par contre, tant que j'y suis... Je peux faire la m&#234;me chose sans ouvrir le fichier excel? Car &#231;a rame un peu &#224; l'ouverture. Si je pouvais l'utiliser plus rapidement, ce serait g&#233;nial.

LF pour les nuls,
Bidouilleur fou.

mortalino · Answer

Je pense que c'est faisable mais j'ai jamais essayé !
(Je vois que malgrès la puissace de VBA rentrer en toi, 
tu galères qd même 'lol)

Essai ça (je sais pas si ça marche) :

Range("A1").Value = Workbooks("C:\...\fichier.xls").Sheets("NomFeuille").Range("A1").Value

Sinon, petite astuce pour ne pas trop solliciter les ressources d'Excel :
début de procédure :  Application.ScreenUpdating = False
fin de procédure :  Application.ScreenUpdating True
> c'est pour inhiber la mise à jour des données pendant le code

++
Mortalino

PS : Pour ton réveil le matin, voit avec "OnTime"

LF pour les nuls · Answer

Je ne peux que progresser, en effet... Mais je ne pose qu'une question sur 100 pour l'instant donc ce n'est pas si mal^^

J'essaie &#231;a d&#232;s que possible. 

Encore merci grand ma&#238;tre VBA.

LF pour les nuls,
Bidouilleur fou.

Alboure · Answer

Salut, pour travailler sur un fichier excel sans l'ouvrir,renseigne toi sur ADO, apr&#232;s je peux pas t'aider je ne sais pas m'en servir

Alboure

Dialogue entre fichiers excel

12 réponses

Discussions similaires