Sujet Précédent Sujet Suivant

[excel] ouvrir un fichier et remplir case

Résolu/Fermé
diaboloblood Messages postés 10 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 22 avril 2008 - 9 avril 2008 à 12:16
diaboloblood Messages postés 10 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 22 avril 2008 - 10 avril 2008 à 15:37
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
9 avril 2008 à 15:30
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
9 avril 2008 à 12:28
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 lundi 7 avril 2008 Statut Membre Dernière intervention 22 avril 2008
9 avril 2008 à 13:51
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 lundi 7 avril 2008 Statut Membre Dernière intervention 22 avril 2008
9 avril 2008 à 14:08

0
Réponse 3 / 3
diaboloblood Messages postés 10 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 22 avril 2008
10 avril 2008 à 15:37
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