begin process at 2012 02 09 02:55:27
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Visual Basic 6

 > 

Langages dérivés

 > 

VBA

 > 

Quelques infos pour finaliser moncode

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Quelques infos pour finaliser moncode

jeudi 7 juin 2007 à 18:24:34 | Quelques infos pour finaliser moncode

dj hf
Bonjour a tous

Je fais actuellement une macro pour  Excel et j'ai besoin de quelques infos pour finir mon programme.

1° On m'avait expliquer comment creer une barret d'outils sou Word, j'ai essayé de reprendre la meme procedure pour Excel mais j'ai pas mal d'erreur. Donc je voulais savoir comment creer une barre d'outil pour Excel avec juste un bouton ? Le reste apres je sais faire !

2° Comment je peux deplacer un fichier dont je connais le chemin jusqu'au repertoire , je sais que son etension et .xls mais par contre je sais juste que dans son nom il y a le mot "aka". J'ai essayé d'utiliser NAME X AS Y mais vu que je ne connais pas le nom complet du fichier je n'ai pas trouvé la bonne syntaxe. (ou placer les * , "" et &).

3° Comment puis je creer une feuille excel en ayant en tete de la renommer?
Je les creer en utilisant Feuil.Add mais pour les renommer il me faut le numero qu'elle porte style Feuil1.name="le nom" mais comme j'en crai dans un fichiers qui en contient deja je ne sais pas la combien c'est que je crais. Donc j'imagine qu'il y a une autre technique.

4° Pour finir si j'ai deja un classeur Excel d'ouvert et que je veux y copier une feuille d'un autre classeur dont je connais le chemin et le nom de la feuille comment dois je m'y prendre ?

MERCI D'AVANCE DE VOTRE AIDE
jeudi 7 juin 2007 à 19:16:31 | Re : Quelques infos pour finaliser moncode

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Quel est le rapport avec VB6 ???

Je déplace une fois de plus dans le bon forum !
jeudi 7 juin 2007 à 21:22:39 | Re : Quelques infos pour finaliser moncode

dj hf
A ouai désolé je me suis gouré en choisissant le theme au moment de poster, merci d'avoir deplacé

J'attends votre aide
vendredi 8 juin 2007 à 08:27:58 | Re : Quelques infos pour finaliser moncode

jrivet

Membre Club
Réponse acceptée !
Salut,
1°) Pas compris ou tu le voualis exactement.

2°) Si j'ai bien compris, tu connais le répertoire contenant le fichier à renommer et une partie du nom?.
Essaie un truc du style
Dim Result As String
Dim Repertoire As String
Repertoire = "C:\"
Result = Dir(Repertoire & "*aka*.xls")
If Result <> vbNullString Then
   Name Repertoire & Result As Repertoire & "Essai.xls"
End If
By Renfield
3°) Lorsque tu utilises Call ActiveWorkbook.Worksheets.Add pour ajouter une feuille, la feuille ajoutée devient la feuille active donc sert toi alors de l'objet ActiveSheet pour la renommer.
Soit ActiveSheet.Name = "New Feuille"

4°)
Dim CheminClasseur As String
Dim Wb As Workbook, Wb2 As Workbook
   Set Wb = ActiveWorkbook
   Set Wb2 = Application.Workbooks.Open("C:\Test.xls")
   Call Wb2.Worksheets("Toto").Copy(Wb.Worksheets(1))
   Call Wb2.Close(False)
By Renfield


@+: Ju£i€n
Pensez: Réponse acceptée
vendredi 8 juin 2007 à 08:50:55 | Re : Quelques infos pour finaliser moncode

sobullshit
Réponse acceptée !
1°) rien compris

2°) Il faut que tu cherches dans ton répertoire (que tu connais) le fichier .xls ayant une partie de son nom = "aka" (pas très dur )

3°) Met la feuille que tu crées dans une variable
   ex:
   dim wk as worksheet
   
   set wk = xls.workbooks(1).worksheets.add
   wk.name ="toto"
   
4°) ouvre ton classeur et copie la feuille (pas très dur)
vendredi 8 juin 2007 à 17:26:13 | Re : Quelques infos pour finaliser moncode

JM247L
Réponse acceptée !

Bonsoir,
1°) Si j'ai bien compris

Sub ToolsBarCreation()
Dim FC_ToolsBar As CommandBar, FC_ToolsBar_InsertRow As CommandBarButton
    Application.CommandBars.Add(Name:="Frame Contract - Tools Bar").Visible = True
    CommandBars("Frame Contract - Tools Bar").Position = msoBarTop
    Set FC_ToolsBar = CommandBars("Frame Contract - Tools Bar")
    Set FC_ToolsBar_InsertRow = FC_ToolsBar.Controls.Add(Type:=msoControlButton, ID:=279, Before:=1)
    With FC_ToolsBar_InsertRow
      .Caption = "Insert Row"                                         ' Texte dans bouton
      .DescriptionText = "Insert a maximum of 5 new rows taking into account of existing empty rows"
      .Style = msoButtonIconAndWrapCaptionBelow
      .OnAction = "FC_CreateLine"                                ' Code exécuté
    End With
End Sub

Désolé pour 2, 3 & 4 mais ma femme vient de me rappeler qu'il restait un peu de vaisselle dans l'évier
Bonne fin de semaine. JML
dimanche 10 juin 2007 à 14:02:18 | Re : Quelques infos pour finaliser moncode

dj hf

Merci a vous jrivet , sobullshit et JM247L.

Grace a vous trois j'ai pus résoudre mes problemes.

Encore un gran merci pour l'enorme aide que vous m'avez apporté c'est super!!


Cette discussion est classée dans : creer, excel, feuille, infos, connais

Répondre à ce message

Sujets en rapport avec ce message

Creer bouton Excel vers Money [ par drxgerard ] Bonjour,1. Je souhaite créer un bouton sur une feuille Excel qui ouvre un suivi de budget MONEY qui se trouve dans un autre répertoire.2. Comment supp Creer un message lors de l'ouverture d'une feuille excel 2008 sur mac [ par questionsreponses ] Bonjour a tous, J'aurai voulu creer un message d'instruction qui apparait lors de l'ouverture d'une feuille excel. J'ai un mac et excel 2008. J'ai en Creer bouton dans feuille excel [ par jrivet ] Bonjour a tous,(urgent)Voila je travaille en ce moment sur un clientOPC fait avec excel et vba,C'est pas le cote opc qui pause probleme pour l'instant Creer et remplir une feuille excel depuis VB [ par akdmks ] Salut,J'ai un projet a faire. Je vous le resume, en gros, j'ai des données sur plusieurs fichiers textes, avec ces données, je dois faire des calculs, garder les infos d'une feuille vb inclus dans un fichier Excel [ par yomenn ] Bonjour j'ai besoin de savoir comment dans un fichier excel faire la manip suivante.j'ouvre un fichier excel  dans une colonne une information permait facture [ par CCND ] Bonjour, je cherche un truc EXCEL pour copier automatique avec bouton, les infos tapées dans la facture.Infos:  Dans un feuille EXCEL , il y a le form [Catégorie modifiée VB6 --> VBA] excel 2007 gif animé dans un userform et pas dans une feuille excel [ par echarlotte ] Bonjour, Je souhaite insérer un gif animé dans un userform, j'ai regardé sur les forum et j'ai bien compris qu'il fallait cocher "le Microsoft Web bro Adresse cellule active Excel [ par Shaegal ] Bonjour, Je n'arrive pas à trouver le code pour récupérer l'adresse d'une cellule active d'une feuille Excel elle-même active. Je n'importe pas de r Gestion d'un double-clic dans une feuille quelconque d'Excel [ par mormic60 ] Bonjour, Je souhaiterais avoir une seule routine pour gérer les double-clics arrivant dans une feuille quelconque de mon classeur Excel; sachant qu'i [EXCEL] Cacher une feuille grâce à une fonction [ par farlene ] Bonjour, Tout d'abord je m'excuse si je me suis trompée de forum ou si ma question a déjà été posée. Après quelques recherches je n'ai pas trouvé mo


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo haleakalea 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,340 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)