VBA, Excel, Feuilles et Liens inter-classeurs...Résolu

Question

Slut tous,



Savez-vous s'il est possible de r&#233;cup&#233;rer le nom de la feuille par d&#233;faut d'un classeur sans l'ouvrir... et en VBA???



Ou alors, comment faire un lien inter-classeur sans fournir le nom de la feuille par d&#233;faut (y'en a qu'une en fait!) ???



Question subsidiaire, comment transformer, via le VBA, un cellule
standarde contenant une date en texte du style "Mars 2005" en vraie
date afin de la d&#233;cr&#233;menter???





Merci par avance

valtrase · Accepted Answer

Pour r&#233;cup&#233;rer le nom de la feuiile sans ouvrir le classeur je ne pense pas que ce sois possible !!
Sinon pour faire un lien donnes le chemin complet de ton lien ex:  ActiveCell.Formula = "=[Classeur1]Feuil1!$C$4"

Pour donner un format date utilises
With ActiveCell
'.NumberFormat = "dd-mm-yy" 'En Anglais par d&#233;faut
'.NumberFormatLocal = "jj-mm-aa" ' Ou en local
End With

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

ScSami · Answer

Merci Valtrase... mais &#231;a ne r&#233;ponds pas vraiment &#224; toutes mes questions...



En effet, je sais comment impl&#233;menter une r&#233;f&#233;rence externe, mais ma
question &#233;tait de savoir si on pouvait se passer, via, p.e., un
param&#232;tre par d&#233;faut ou une magouille, de mettre le nom de la feuille
lorsque le classeur n'en poss&#232;de qu'une seule!



Mais en effet, moi non plus je ne crois pas que l'on puisse r&#233;cup&#233;rer
le nom d'une feuille si son classeur est ferm&#233;... Pourtant, si on peut
r&#233;cup&#233;rer les donn&#233;es d'une cellule (avec, justement, ces relations
externes), je ne vois pas ce qui nous emp&#234;cherait de r&#233;cup&#233;rer la
collection des feuilles du classeur!!! Enfin, les ing&#233;nieurs de MS
n'ont d&#233;cid&#233;ment jamais vraiment d&#251; coder avec leur VBA... Bon, ceci
dit, on peut pas non plus le leur reprocher et demander au VBA de faire
de l'AI en VR!!! 



Cependant, je te remercis quand m&#234;me de t'&#234;tre donnn&#233; la peinne de r&#233;pondre 



Concernant la date, je vais faire des tests mais j'ai de tr&#232;s s&#233;rieux
doutes quant aux r&#233;sultats... Surtout si en plus les mois sont en
majuscules!!! A mon avis, il faut utiliser une technique plus s&#233;rieuse
en codant un petit algo... Bref, je verrais bien 



Enjoy

valtrase · Answer

Re,
J'ai fais qq test avec les dates &#231;a tourne VBA ne tiens pas compte de la case. Sinon utilises Cdate(Expression)
[A1] = CDate([A1])


Pour la r&#233;cup&#233;ration de donn&#233;es attention si ton classeur est ferm&#233; pas de mise &#224; jour fais un test.....


Sinon rien ne t'emp&#232;che d'ouvrir ton classeur, de r&#233;cup&#233;rer le nom de la feuille et de le refermer ensuite

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

ScSami · Answer

lol... C'est justement comme &#231;a que j'ai d&#251; faire du coup!!! 



Merci pour l'info des dates et le test que tu as fais...



Ceci dit, l&#224;, maintenant, j'ai un autre tr&#232;s big probl&#232;me!!! Je pense
que c'est un bug irr&#233;cup&#233;rable mais bon, si tu connais la magouille, je
t'en supplie &#224; 4 genoux, donne moi la solution :



Aujourd'hui, lorsque j'ai ouvert mon classeur Excel, Question :
"Activer / Desactiver / Infos  sur les macros". Bon, OK, tout est
normal. Mais apr&#232;s avoir donn&#233; l'une ou l'autre des r&#233;ponses (et m&#234;me
avec un reboot du PC entre deux tentatives...), rien, je n'ai
absolument rien qui s'affiche!!! C'est un peu comme si la feuille
s'ouvrait puis se refermait directement mais sans s'afficher... Y'a
bien un bref petit flash juste apr&#232;s la fen&#234;tre de la question, mais
apr&#232;s, rien, le fichier ne se charge pas!!!

Alors l&#224; je suis vraiment d&#233;s&#233;sp&#233;r&#233; surtout que j'avais fait du beau code et j'y avais d&#233;j&#224; pass&#233; quelques heures de d&#233;bugage 



Et le pire dans l'histoire c'est que mon fichier fait bien 176 Ko disk !!!



Au secours...

valtrase · Answer

Bizare, Bizare,
D'abord je suis tomb&#233; sur ce code a mon grand &#233;tonnement il te permet de lire le nom de tes feuilles grace &#224; une connexion ADO sans ouvrir le classeur......
A savoir que je n'ai pas test&#233; ces codes .....

Sub ListExcelTables()
'd'apr&#232;s Ramesh, microsoft.public.data.ado
Dim cn
Dim cat
Dim xlSheet As Variant
Dim Fichier$

' Initialisation
  Set cn = CreateObject("ADODB.Connection")
  Set cat = CreateObject("ADOX.Catalog")
  Fichier = "D:\06OfficeVBA\01Progs\ClasseurDates\CompilDatesv3.xls"
  
' Open the Connection
  cn.Open _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Fichier & ";Extended Properties=Excel 8.0;"

' Open the catalog
  Set cat.ActiveConnection = cn

  For Each xlSheet In cat.Tables
    MsgBox xlSheet.Name
  Next
  
' Nettoyage  Set cn Nothing: Set cat Nothing
End Sub
Pour ton autre prob c'est encore plus bizare mais bon voil&#224; peut-&#234;tre de quoi te sauver la vie.
'Un petit code de secours pour ouvrir un classeur qui
'fait planter Excel &#224; cause de macros mal programm&#233;es
'(si si, &#231;a arrive !)

'Recopier ce module dans le Perso.xls et relier la proc&#233;dure
' "OuvrirMacrosDesactiv&#233;es" &#224; un bouton dans une barre d'outils

Sub OuvrirMacrosDesactiv&#233;es()
  Classeur = Application.GetOpenFileName("Classeurs Excel,*.xls")
  If Classeur = False Then Exit Sub
  Application.EnableEvents = False
  Workbooks.Open Filename:=Classeur
  Application.EnableEvents = True
End Sub
Et en dernier recourt ce code-ci mais l&#224; tu devra refaire tes UserForm en mode Desing

'R&#233;cup&#233;rer les modules de code d'un classeur Excel corrompu &#224; partir de Word
'(le code est r&#233;cup&#233;r&#233; dans des fichiers .txt)

'\for this macro to run you need to establish a reference to the
'\Microsoft Excel xx.0 Object Library
'\also, if you get a File Open error message, hit Debug, then Continue

Sub Recover_Excel_VBA_modules()
'Run this macro from Word VBA to recover modules from corrupt Excel files.
'Rob Bruce, mpep

    Dim XL As Excel.Application
    Dim XLVBE As Object
    Dim i As Integer, j As Integer

    Set XL = New Excel.Application

    XL.Workbooks.Open Filename:="h:\CR - Portfolio Template.xls" 'or whatever

    Set XLVBE = XL.VBE

    j = XLVBE.VBProjects(1).VBComponents.Count

    For i = 1 To j
        'Debug.Print XLVBE.VBProjects(1).VBComponents(i).Name
        XLVBE.VBProjects(1).VBComponents(i).Export _
              Filename:="C:	emp\vbe_" & (100 + i) & ".txt"
    Next

    XL.Quit
    Set XL = Nothing

End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

ScSami · Answer

Hoho, alors l&#224;, franchement Val, je ne sais pas comment te remercier!!!



Mais dit moi, o&#249; as-tu bien pu trouver toutes ces sources??? Sur VBF???



Bon, je vais aller voir tout &#231;a de plus pr&#234;t...



Et je dis d&#233;j&#224; un grand :




     

MERCI


     





Enjoy

valtrase · Answer

Non recherche sur Google tout simplement

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

ScSami · Answer

Merci pour l'URI... mais, si tu le veux bien, je la donne &#224; tout le monde :



http://www.excelabo.net/



Ca peut toujours servir !!!



Enjoy



(D&#233;sol&#233;, mais j'ai une toute petite connexion Internet... 28K... Je
dois &#234;tre le dernier fran&#231;ais dans ce cas... alors ne m'en veux pas
trop si, finalement, Google n'est tant mon ami que &#231;a ;-)

VBA, Excel, Feuilles et Liens inter-classeurs...

8 réponses

Discussions similaires