Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1567 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Ecriture de formule via VBA

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Ecriture de formule via VBA

n°1259361
josserand_​joss
Posté le 05-12-2005 à 17:24:13  profilanswer
 

Bonjour à tous !!
 
J'ai un petit problème qui me casse bien la tête :
 
Je souhaite récupérer des données dans un autre classeur.
Pour ça, j'ai choisi de générer des formules dans les cellules. Elles sont sous cette forme :
 
='[classeur.xls]Feuille'!$A$15
 
Quand il reconnait pas le fichier "classeur.xls", il m'ouvre une FileBox pour que je choisisse le fichier à interroger.
Du coup, il me génère une formule de ce genre :
 
='D:\chemin\[classeur.xls]Feuille'!$A$15
 
Malin comme je suis ( :o ), je décide de générer directement le fichier... pour éviter les FileBox à répétition.

Code :
  1. [B3] = "='" & ActiveWorkbook.Path & "[classeur.xls]Feuille'!$A$15"


 
Donc,

Code :
  1. [B3] = "='D:\chemin\[classeur.xls]Feuille'!$A$15"


 
Mais non, quand je regarde directement la formule dans la cellule B3 voilà ce qu'il me génère :
 
='D:\[chemin[classeur.xls]Feuille]chemin[classeur'!$A$15
Bref, n'importe quoi !! Du coup, ça plante.
 
Un grand merci d'avance à celui ou celle qui pourra m'aider (une fois qu'il ou elle aura compris mon problème tiré par les cheveux, je l'avoue...).
 
Joss

mood
Publicité
Posté le 05-12-2005 à 17:24:13  profilanswer
 

n°1259370
josserand_​joss
Posté le 05-12-2005 à 17:33:10  profilanswer
 

J'ai oublié :
C'est sous Excel !!

n°1259464
galopin01
Posté le 05-12-2005 à 20:02:36  profilanswer
 

bonjour,
Essaies :
Range("B3" ).FormulaR1C1 = ...
 
et si ça résiste :
z = ActiveWorkbook.Path
Range("B3" ).FormulaR1C1 = "='" & z & "[classeur.xls]Feuille'!$A$15"
 
mais je pense que la première approche est suffisante.
A+


---------------
roger
n°1259798
watashi
La démotivation : JAMAIS !
Posté le 06-12-2005 à 09:36:10  profilanswer
 

Salut Joss,
 
Le problème vien d'un "\" manquant.
 
essaye avec :

Code :
  1. Range("A7" ).Formula = "='" & ActiveWorkbook.Path & "\[Classeur.xls]Feuille'!$A$15"


 
Bon courage


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1259800
josserand_​joss
Posté le 06-12-2005 à 09:38:20  profilanswer
 

Bonjour galopin,
 
A vrai dire, j'ai déjà essayé
Range("B3" ).Formula = ...
Range("B3" ).FormulaR1C1 = ...
[B3] = ...
Et le chemin dans une variable provisoire également.
 
En tout cas, il n'a vraiment pas l'air d'apprécier que je reseigne le chemin à sa place.
Tout résiste :ouch:  !! Sacré galère !
 
Joss

n°1259809
josserand_​joss
Posté le 06-12-2005 à 09:47:10  profilanswer
 

Salut Watashi !!
 
Lol, je me sens tout con maintenant... C'était ça : l'antislash manquant. :pt1cable:  
 
Comme quoi, un avis extérieur permet de voir beaucoup de chose !!
 
Bon, Watashi, une fois de plus, je te remercie... deuxième fois que tu résouds mes pb !!... Tu veux que je mette ton nom dans mon pgm ?? lol
 
Merci beaucoup à tous !!
 
Joss

n°1259896
watashi
La démotivation : JAMAIS !
Posté le 06-12-2005 à 11:50:48  profilanswer
 

lollllll  
Ca ira merci ;)  
Pour l'antislash c'est juste que j'avais déjà eu le problème :)
 
Bon couragze pour ta suite


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Ecriture de formule via VBA

 

Sujets relatifs
Fermer Acrobat reader automatiquement [VBA]Aide sur Projet VBA Excel
Combobox ajouter des valeurs [VBA ACCESS]Code VBA permettant de supprimer un faux message d'erreur
[VBA]Excel - Box de confirmationVBA Ajout d'un document
[VBA EXCEL] RechercheV Multicritère avec boite de dialogueVBA pour mot de passe sous Excel
[VBA-EXCEL 2003] SaveCopyAs mais sans le code VBA ou macro[VBA]commentaires
Plus de sujets relatifs à : Ecriture de formule via VBA


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR