[excel] ouvrir un fichier et remplir case

Résolu
diaboloblood Messages postés 10 Statut Membre -  
diaboloblood Messages postés 10 Statut Membre -
Bonjour,

je sui actuelement en train d'automatiser une génération de devis

je procède donc de la manière suivante:
à l'aide d'une feuille excel je génère apres vérivication de plusieurs champs à la création d'une arboressence :
Clien/Devis/CalculDevis.xls

j'aimerai ensuite ouvrir le fichier CalculDevis.xls pour remplir des cases avec les information que je vien de vérifier
en pratique je veux
laDate en B1
leDevis en B2
client en B4
le créateur en E1

j'ai chercher plusieurs méthodes mais en vain

je vous met ce que j'ai pour le moment. ça bloque juste apres le FileCopy

Dim appli As Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet

MkDir (cheminDevis)
FileCopy (<FichierSource>), (cheminDevis + numDevis + ".xls")

Set classeur = appli.Workbooks.Open(cheminDevis + numDevis + ".xls")
Set feuille = classeur.Worksheets(1)

feuille.Cells(1, 2) = laDate
feuille.Cells(2, 2) = LeDevis + "0"
feuille.Cells(4, 2) = client
feuille.Cells(1, 5) = crééPar
Configuration: Windows XP

3 réponses

  1. amigo
     
    Tu as declaré
    Dim appli As Excel.Application

    mais tu n'as pas affecté appli
    Set appli = ....

    essaye juste comme ça
    Set classeur = Application.Workbooks.Open(cheminDevis + numDevis + ".xls")

    A+.
    1
  2. amigo
     
    Bonjour,

    La syntaxe de file copy est

    FileCopy source, destination

    ou source et destination sont des chaine de caractères (string)

    (<FichierSource>) contient des caractères illégaux pour nommer une variable

    FichierSource="...." ' nom du fichier source
    FileCopy FichierSource, cheminDevis + numDevis + ".xls"

    Salut.
    0
    1. diaboloblood Messages postés 10 Statut Membre
       
      oui je sais le filecopy marche j'ai mis fichier source entre <> pour épargner au lecteur le chemin complet qui fait 2 ligne

      en s'arettant au filecopy le code foncionne correctement et me génere bien mon dossier et mon fichier

      ç'est ensuite que ça ne marche pas

      au niveau du set classeur = .....

      et la je n'arrive pas à résoudre le problème
      0
    2. diaboloblood Messages postés 10 Statut Membre
       

      0
  3. diaboloblood Messages postés 10 Statut Membre
     
    Parfait, j'arrive à ouvrir mon fichier et à le fermer et à modifier mes cellules au passage

    encore merci à toi

    je met mon code ici au cas ou quelqu'un aurai besoin de ce conseil

    les variable cheminSource, cheminDevis,numDevis, laDate, LeDevis, client et créépar sont définie auparavant

    FileCopy (cheminSource + "Documents de base\Calcul Devis.xls"), (cheminDevis + "\Devis " + numDevis + ".xls")
    cheminDevis = cheminDevis + "\Devis " + numDevis + ".xls"

    Dim classeur As Excel.Workbook
    Dim feuille As Excel.Worksheet

    Set classeur = Application.Workbooks.Open(cheminDevis)
    Set feuille = classeur.Worksheets(1)

    feuille.Cells(1, 2) = laDate
    feuille.Cells(2, 2) = LeDevis + "0"
    feuille.Cells(4, 2) = client
    feuille.Cells(1, 5) = crééPar

    classeur.Close (True)

    0