IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Discussion :

Mise à jour liaison de fichier


Sujet :

VBA

  1. #1
    Membre du Club Avatar de melodyyy
    Inscrit en
    Octobre 2006
    Messages
    401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 401
    Points : 50
    Points
    50
    Par défaut Mise à jour liaison de fichier
    Voila j'ai une liaison de 2 fichiers, dont un sur intranet..
    Seulement voila, quand on ouvre le fichier sur le disque dur, excel demande si la mise à jour doit etre faite...si on clique oui, il ne se passe rien !!!
    En revanche si j'installe un bouton, avec une macro derrière qui lance bien la mise à jour, il le fait sans probleme...

    Seulement le bouton est provisoire, et je voudrais que quand je clique sur oui pour la mise à jour il se passe ce qu'il doit se passser

    Pour infos voici mon code pour ceux qui connaisse pas

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    #'Copie des jours prestables'
    Dim fich As Workbook
    Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")
    Workbooks("111045363.pc1fm").Activate
    Sheets("Référentiel").Select
    Range("A57:S57").Select
    Selection.Copy
    Workbooks("Synthese_type_01.xls").Activate
    Range("FU3:GU3").Select
    ActiveSheet.Paste
    Workbooks("111045363.pc1fm").Close
    End Sub
    #

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Tu as essayé "Application.Calculate" à l'ouverture du fichier ?
    Vraiment à tout hasard

  3. #3
    Membre du Club Avatar de melodyyy
    Inscrit en
    Octobre 2006
    Messages
    401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 401
    Points : 50
    Points
    50
    Par défaut
    ah nan je connaissais pas
    je progresse mais je débute hein
    bon j'essai...

  4. #4
    Membre du Club Avatar de melodyyy
    Inscrit en
    Octobre 2006
    Messages
    401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 401
    Points : 50
    Points
    50
    Par défaut
    ça marche pas
    ça a rien changé du tout.....

  5. #5
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Points : 24 327
    Points
    24 327
    Par défaut
    Ca ne répond pas à ta question mais...
    A quoi te sert
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim fich As Workbook
    Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")
    si tu n'utilises pas fich par la suite???
    Voici un exemple de ce que tu pourrais en faire:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    'Copie des jours prestables'
    Dim fich As Workbook
    Set fich = Workbooks.Open("http://dtii.pcinfo.inetpsa.com/document/111045363.pc1fm")
    fich.Sheets("Référentiel").Range("A57:S57").Copy
    Workbooks("Synthese_type_01.xls").Range("FU3:GU3").Paste
    fich.Close
    End Sub

  6. #6
    Membre du Club Avatar de melodyyy
    Inscrit en
    Octobre 2006
    Messages
    401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 401
    Points : 50
    Points
    50
    Par défaut
    ah oui ok
    en fait je vais chercher un fichier sur intranet...je l'ouvre et le referme donc forcément...

    mais ok mais vi ça répond pas à ma question

  7. #7
    Membre du Club Avatar de melodyyy
    Inscrit en
    Octobre 2006
    Messages
    401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 401
    Points : 50
    Points
    50
    Par défaut
    De plus pour l'avant dernière ligne (avec la copie de la ligne) VBA me dit que l'objet ne s'occupe pas de ça
    j'ai pu les termes exact de chez lui mais c'est ça

  8. #8
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    L'avant dernière ligne ?
    Workbooks("Synthese_type_01.xls").Range("FU3:GU3").Paste
    Tu indiques le classeur mais pas la feuille. Ça lui manque beaucoup

Discussions similaires

  1. Mise à jour d'un fichier
    Par Michel Alpes dans le forum Langage
    Réponses: 1
    Dernier message: 22/03/2007, 20h34
  2. mise à jour d'un fichier excel à partir d'un textbox
    Par hachdotnet dans le forum Windows Forms
    Réponses: 2
    Dernier message: 13/03/2007, 16h59
  3. IOError lors de la mise à jour d'un fichier
    Par oiffrig dans le forum Général Python
    Réponses: 3
    Dernier message: 09/03/2007, 20h13
  4. Réponses: 3
    Dernier message: 05/12/2005, 15h17
  5. [Système] mise à jour d'un fichier .htpasswd
    Par ikkyu_os dans le forum Langage
    Réponses: 4
    Dernier message: 15/09/2005, 11h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo