[excel] ouvrir un fichier et remplir case

Résolu
diaboloblood Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
diaboloblood Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
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
Réponse 2 / 3
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
diaboloblood Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
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
diaboloblood Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 

0
Réponse 3 / 3
diaboloblood Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
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