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

Macros et VBA Excel Discussion :

Ouverture d'un fichier incrémentée [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Décembre 2012
    Messages
    180
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Décembre 2012
    Messages : 180
    Par défaut Ouverture d'un fichier incrémentée
    Bonjour,

    J'effectue une extraction d'un fichier excel à partir d'un navigateur de type Internet Explorer, nommé par exemple : FICHIER.xls

    J'ai créé une macro qui permet de copié le contenu de ce fichier dans un autre fichier nommé RAPPORT.xlsm

    J'ouvre les deux fichiers en même temps afin que la macro présente dans RAPPORT.xlsm reconnaisse FICHIER.xls

    Je rappel les opérations réalisés :
    1- Dans FICHIER.xls : CTRL + A, CTRL + C
    2- Dans RAPPORT.xlsm : CTRL + A, CTRL + V

    Le souci c'est que l'extraction ne peut pas se faire car au bout de la seconde extraction, le fichier nommé FICHIER.xls à changé de nom, il devient FICHIER [1].xls, au bout de la 3ème extraction il devient FICHIER [2].xls etc etc !

    Comment faire pour incrémenter le nom du fichier dans mon code de ma macro ?

    PS: je copierai le code macro demain !

    Merci d'avance.

    Antoine.

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonsoir,
    Tu ne peux pas déplacer le fichier dans un autre répertoire en renommant?
    Comme ça le fichier importé ne va pas s'incrémenter.

  3. #3
    Membre confirmé
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Décembre 2012
    Messages
    180
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Décembre 2012
    Messages : 180
    Par défaut
    Justement non, il faut que cela se fasse de manière automatique ! et je n'ai pas d'autre moyen que de passer par du code VBA...

    Je posterai mon bout de code demain, je n'ai pas le code à disposition en ce moment.

    Merci d'avance !

    Antoine.

  4. #4
    Invité
    Invité(e)
    Par défaut
    Je envisageais pas autrement!
    Vb peut également déplacer le fichier.

    De plus si tu déplace le fichier après traitement un dir(*.xls) sufis!

  5. #5
    Membre confirmé
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Décembre 2012
    Messages
    180
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Décembre 2012
    Messages : 180
    Par défaut
    En réalité, le fichier dont j'extrait les données sur internet, je l'ouvre directement: il se trouve dans un répertoire temporaire, et j'aimerai récupérer son contenu (la dernière version) sans avoir à le déplacer.

    Une fois le code collé ici même, cela sera plus simple à comprendre à mon avis.

    merci !

    Antoine.

  6. #6
    Invité
    Invité(e)
    Par défaut
    Comme tu veux, mais dans ce cas il va falloir sauvegarder l'index dans une cellule Excel!
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    seets("feuill2").range("a1")=sheets("feuille2").range("a1") + 1

  7. #7
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut

    Bonjour.

    Citation Envoyé par Ghost0000 Voir le message
    En réalité, le fichier dont j'extrait les données sur internet, je l'ouvre directement: il se trouve dans un répertoire temporaire
    C'est un fichier Excel, texte ?
    S'il est compatible Excel, il pourrait être directement intégré dans un classeur et peut-être, sans même une ligne de code
    via la fonction de feuille de calculs du menu Données, Requête à partir du Web (une QueryTable en VBA) …

    Si le fichier compatible Excel n'est pas récupérable via cette fonction, il est tout de même possible de charger
    ses données comme par exemple dans cette contribution

    __________________________________________________________________________________________________
    Tous unis, tous Charlie

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Ouverture d'un fichier excel predefini
    Par nberthonneau dans le forum Access
    Réponses: 10
    Dernier message: 13/06/2007, 22h14
  2. [Système] ouverture d'un fichier pdf
    Par joneil dans le forum API standards et tierces
    Réponses: 2
    Dernier message: 17/05/2005, 10h36
  3. Réponses: 2
    Dernier message: 06/04/2005, 12h01
  4. Réponses: 5
    Dernier message: 27/07/2004, 17h04
  5. Réponses: 2
    Dernier message: 22/07/2002, 12h13

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