Excel Downloads

+ Répondre à la discussion
Affichage des résultats 1 à 14 sur 14

Discussion: Activation fichier

  1. #1
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Activation fichier

    Bonsoir le forum,
    Par macro, j'ouvre un fichier en fonction de sa date. Ensuite je dois revenir dessus plusieurs fois pour y récupérer des infos. Actuellement je le ferme et l'ouvre à chaque fois... je ne trouve pas le code pour l'activer tout simplement...
    Ci-dessous l'extrait de la marco...

    Merci d'avance pour votre aide
    Bbobb

    Nom_fic = "C:\Users\Pascal\Desktop\Macro ch p 2010\Test CRT auto\Test macro web CRT\ACT001_" & Valannee & "." & ValMois & "." & Valjour & ".*.xls"

    Workbooks.OpenText Filename:=Nom_fic 'ouverture du fichier
    'chercher nombre de transaction en espèces
    Dim Est As Range, Col As Byte, CaG As Single
    Set Est = Cells.Find("Espèces")
    If Est Is Nothing Then
    CaG = 0
    Else
    Col = Est.Column
    Set Est = Cells.Find("Total Nb paiements")
    CaG = Cells(Est.Row, Col)
    End If
    Cells(Est.Row, Col).Select
    ActiveWindow.Close 'fermeture du fichier
    Workbooks("Chiffre d'affaire global.xls").Activate 'fichier ouvert
    ActiveSheet.Cells(6, col_date) = CaG 'ou ailleurs

    Workbooks.OpenText Filename:=Nom_fic 'reouverture du fichier

  2. #2
    XLDnaute Accro Avatar de néné06
    Date d'inscription
    mai 2008
    Localisation
    Nice
    Messages
    1 547
    Utilise
    Excel 2010 (PC)

    Par défaut Re : Activation fichier

    Bonsoir bbobb
    la simple commande Activate activera ton classeur,puis "activate" sur un autre sans "close" , t'afichera le classeur voulu.
    Tu peux ouvrir plusieurs classeur sans les fermer.

    Workbooks("Chiffre d'affaire global.xls").Activate 'fichier ouvert

    Cordialement

  3. #3
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Re : Activation fichier

    Bonsoir néné06,
    Pas de soucis pour activer "Chiffre d'affaire global.xls", le problème c'est pour activer "Workbooks.OpenText Filename:=Nom_fic"...
    J'ai essayé "Workbooks("Nom_fic").Activate" mais cela ne fonctionne pas...

    Une autre idée ?
    Merci
    Bonne soirée
    Bbobb

  4. #4
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Re : Activation fichier

    Bonjour le forum,
    Problème toujours pas résolu... merci d'avance pour votre aide

    Bonne journée à tous
    Bbobb

  5. #5
    XLDnaute Accro Avatar de néné06
    Date d'inscription
    mai 2008
    Localisation
    Nice
    Messages
    1 547
    Utilise
    Excel 2010 (PC)

    Par défaut Re : Activation fichier

    Bonjour bbobb

    Si tu nous places une PJ avec un programme exécutable, même si il plante , je suis persuadé que tu aurais beaucoup de réponses intéressantes

    A+

  6. #6
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Activation classeur déja ouvert

    Bonsoir le forum,
    Suite au conseil avisé de néné06
    j'ai donc joint un fichier.

    Donc dans la macro, j'ouvre des fichier par la commande :
    Nom_fic1 = "C:\Users\...\ACT001_" & Valannee & "." & Valmois & "." & Valjour & ".*.xls"

    Je dois revenir sur ce fichier plusieurs fois sans le fermer mais à la commande :
    Workbooks.OpenText Filename:=Nom_fic1
    j'ai le message suivant : le fichier est déja ouvert, si vous l'ouvrez à nouveau les données seront perdues...

    En fait il suffirait de l'activer mais je ne trouve pas le code : AU SECOURS !!!!!!

    Merci d'avance pour votre aide
    Bbobb
    Fichiers attachés
    Dernière modification par bbobb ; 05/04/2011 à 07h33.

  7. #7
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Re : Activation fichier

    Bonjour le forum,
    Je reviens vers vous (désespéré) car je suis coincé...
    Merci d'avance pour votre aide.
    Bbobb

  8. #8
    XLDnaute MEGA Barbatruc Avatar de Pierrot93
    Date d'inscription
    août 2006
    Messages
    20 695
    Utilise
    Excel 2003 (PC)

    Par défaut Re : Activation fichier

    Bonjour,

    petite question idiote, pourquoi utiliser la méthode "OpenTexte", plutôt que la méthode "open" s'agissant de fichier xls.... perso utiliserais une variable objet, comme dans l'exemple ci-dessous :
    Code :
    Dim wb As Workbook
    Nom_fic1 = "C:\Users\Pascal\Desktop\Macro ch p 2010\Test CRT auto\Test macro web CRT\ACT001_" & Valannee & "." & Valmois & "." & Valjour & ".*.xls"
    Set wb = Workbooks.Open(Nom_fic1)

    ensuite partout dans ton code, lorsque tu veux intervenir sur ce classeur tu fais référence à cette variable...
    Code :
    wb.Activate

    bonne journée
    @+
    Pierrot

    On se trouve toujours suffisamment intelligent, vu que c'est avec ce que l'on a qu'on juge !!!

  9. #9
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Re : Activation fichier

    Bonjour Pierrot,
    Ta solution fonctionne très bien... à un détail près : le * après " & Valjour & ". Il s'agit d'une variable que je ne connais pas à l'avance. J'ai fait un test sur un fichier connu en entrant la bonne valeur : ça fonctionne.
    Je ne sais pas comment résoudre ce problème...

    Bonne soirée
    Bbobb

  10. #10
    XLDnaute MEGA Barbatruc Avatar de Pierrot93
    Date d'inscription
    août 2006
    Messages
    20 695
    Utilise
    Excel 2003 (PC)

    Par défaut Re : Activation fichier

    re,

    essaye peut être ainsi :
    Code :
    Nom_fic1 = Dir("C:\Users\Pascal\Desktop\Macro ch p 2010\Test CRT auto\Test macro web CRT\ACT001_" & Valannee & "." & Valmois & "." & Valjour & ".*.xls")
    if Nom_fic1 = "" then exit sub
    Set wb = Workbooks.Open(Nom_fic1)

    bonne soirée
    @+
    Pierrot

    On se trouve toujours suffisamment intelligent, vu que c'est avec ce que l'on a qu'on juge !!!

  11. #11
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Re : Activation fichier

    bonsoir Pierrot,
    Je ne comprend pas, le code fonctionne, lorsque je pose la souris sur If Nom_fic1 = "" Then le fichier est bien identifié, j'ai vérifié que le chemin d'accès est correct, mais à l'éxecution une fenêtre erreur d'éxécution 1004 apparait :'ACT001_2011.04.02.050013.xls' est introuvable.
    Je joint les 2 fichiers si cela peut aider...

    Merci
    Bbobb
    Fichiers attachés

  12. #12
    XLDnaute MEGA Barbatruc Avatar de Pierrot93
    Date d'inscription
    août 2006
    Messages
    20 695
    Utilise
    Excel 2003 (PC)

    Par défaut Re : Activation fichier

    Bonjour,

    essaye comme ceci :
    Code :
    Dim chemin As String, Nom_fic1 As String
    chemin = "C:\Users\Pascal\Desktop\Macro ch p 2010\Test CRT auto\Test macro web CRT\"
    Nom_fic1 = Dir(chemin & "ACT001_" & Valannee & "." & Valmois & "." & Valjour & ".*.xls")
    If Nom_fic1 = "" Then Exit Sub
    Set wb = Workbooks.Open(chemin & Nom_fic1)

    bonne journée
    @+
    Pierrot

    On se trouve toujours suffisamment intelligent, vu que c'est avec ce que l'on a qu'on juge !!!

  13. #13
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Re : Activation fichier

    Bonjour Pierrot
    Merci encore pur ton aide précieuse...
    Ta dernière solution semble fonctionner. Je teste sur le fichier "grandeur nature" et reviens vers le forum pour cloturer le post ou re-crier au secours...
    Bonne journée
    Bbobb

  14. #14
    XLDnaute Occasionel
    Date d'inscription
    mai 2006
    Messages
    163
    Utilise
    Excel 2007 (PC)

    Par défaut Re : Activation fichier (resolu)

    Bonjour le forum,
    Pierrot, la macro fonctionne : impeccable !

    Merci à toi et au forum.

    Bbobb
    Dernière modification par bbobb ; 07/04/2011 à 07h21. Motif: resolu

Discussions similaires

  1. [Toutes versions] peut-on fermer un fichier en cas de non activation des macros?
    Par Paritec dans le forum Forum Excel
    Réponses: 20
    Dernier post: 18/09/2010, 18h42
  2. Activation d'un fichier xls au nom variable
    Par chalvron dans le forum Forum Excel
    Réponses: 4
    Dernier post: 26/02/2008, 15h49
  3. Activation de Macro à l'ouverture du fichier
    Par papapaul dans le forum Forum Excel
    Réponses: 4
    Dernier post: 08/02/2008, 16h30
  4. Activation librairie a l'ouverture du fichier ...
    Par n3Twork dans le forum Forum Excel
    Réponses: 0
    Dernier post: 06/07/2006, 16h54
  5. activation d'une macro a la fermeture du fichier.
    Par antoine dans le forum Forum Excel
    Réponses: 3
    Dernier post: 10/05/2005, 15h26

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages