Passage de paramètre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Passage de paramètre

acorsa

Bonjour,
J'ai créé une macro qui pour un fichier Excel donné (le fichier courant) crée une référence pour chaque cellules sélectionnées.
J'explique: j'ai un fichier source avec plein de cellules..je sélectionne les cellules pour lesquelles je veux créer un lien, je crée un fichier ds lequel je vais mettre le contenu des cellules sélecionnées et dc des liens. Comme ça qd je modifie le fichier de lien ça modifie automatiquement le fchier source. Tout march ebien sauf que maintenant je veux améliorer cette macro.
Je voudrais tout simplement que l'utilisateur entre le nom du fichier qui va être créé pour contenir les liens...et je galère! Visiblement il y a juste une problème qd je passe le paramètre (qui est le nom du fichier créé pour les liens) je vous montre le code:

Code :

//ça c'est le userform pour entrer entre autre le nom du fichier à créer: Textbox1.value
Private Sub CommandButton1_Click()
Dim path As String
Dim activeWB As String
Dim activeSheet As String
Static wbExcel As Excel.Workbook
Static wsExcel As Excel.Worksheet
CommandButton1.Caption = "OK"
//là je récupère le nom du fichier et de la feuille courante
activeWB = Application.ActiveWorkbook.name
activeSheet = Application.ActiveWorkbook.activeSheet.name
currentPath = Application.ActiveWorkbook.path
isExistDirectory
If (TextBox1.Value = "" Or (CheckBox3.Value = False And CheckBox4.Value = False)) Then
MsgBox "Please fill all fields!"
ElseIf (CheckBox4.Value = True) Then
filename = TextBox1.Value
full_name = filename & ".xls"
//création du fichier
Set wbExcel = Workbooks.Add
path = currentPath & "\Links\" & full_name
wbExcel.SaveAs (path)
Set wsExcel = wbExcel.Worksheets(1)
wsExcel.name = filename
//je me replace ds le fichier source et j'appelle ma fonction avec en paramètre le nom du fichier créé
Application.Workbooks(activeWB).Worksheets(activeSheet).Activate
replace_by_link_normalCells (wbExcel.name)
Unload Userform1

et voici le code de ma fonction:

Code :

Sub replace_by_link_normalCells(full_name As String)
Dim Mycell As Range, Mysheet As Worksheet, MyName$
Dim Row, Column As Integer
MysheetName = ActiveWorkbook.activeSheet.name
MyWorkBookName = ActiveWorkbook.name
Application.Workbooks(MyWorkBookName).Sheets(MysheetName).Select
For Each Mycell In Selection
MyName = Mycell.Value
MyRow = Mycell.Row
MyColumn = Mycell.Column
If MyName <> "" Then
Application.Workbooks(full_name).Worksheets(1).Activate
Range("A1" ).Select
Selection.Range("A65536" ).End(xlUp).Offset(1, 0).Value = Mycell.Value
Linkrow = Selection.Range("A65536" ).End(xlUp).Offset(1, 0).Row
LinkColumn = Selection.Range("A65536" ).End(xlUp).Offset(1, 0).Column
Application.Workbooks(MyWorkBookName).Sheets(MysheetName).Activate
Cells(MyRow, MyColumn).Select
Row = Linkrow - MyRow - 1
Column = LinkColumn - MyColumn
ActiveCell.FormulaR1C1 = "=[full_name]full_name!R[" & Row & "]C[" & Column & "]"
End If
Next Mycell
End Sub

Et en fait qd j'execute ça y'a une boite de dialogue windows qui s'ouvre comme pour enregistrer le fichier ms c'est pour mettre à jour "full_name" apparement. La boîte s'intitule "Update full_name et je dois séletioner un fichier Excel. Donc je pense qu'il ne sais pas que full_name est static...ou alors c le passage de paramètre qui est faux il ne faut peut-être pas mettre full_name" as string...
Si vous avez compris mon explication et que vous avez la solution merci de me le dire!!!
Bonne journée.

Publicité

olivthill

Essayer en remplaçant :

ActiveCell.FormulaR1C1 = "=[full_name]full_name!R[" & Row & "]C[" & Column & "]"

par :

ActiveCell.FormulaR1C1 = "=[" & full_name & " ]" & "!R[" & Row & "]C[" & Column & "]"

Message édité par olivthill le 18-04-2007 à 13:38:06

tegu

Je ne comprends pas ton problème
Tu expliques plein de trucs mais où est le problème ?

Pourquoi dis-tu « qu'il ne sait pas que full_name est Static » ? Ça veut dire quoi pour toi ? full_name n'est pas Static dans replace_by_link_normalCells() et pas déclaré dans CommandButton1_Click()

C'est le contenu du paramètre full_name qui est faux à l'exécution?
As-tu lancé ta macro en pas-à-pas ?

edit: olivthill a peut-être bien vu

Message édité par tegu le 18-04-2007 à 13:46:05

acorsa

Bon désolée je voulais être précise avec mes détails ms je vois que ça a l'effet inverse...
En fait j'ai l'impression que le "full_name" change aors qu'il ne devrait pas, c'est une valeur qui doit rester fixe pdt toute la procédure.

tegu

Eh oui, communiquer des idées n'est pas simple

Ce qu'il faut c'est exécuter ta macro en mode pas-à-pas pour connaître les valeurs successives de full_name, avec l'ajout d'espions conditionnels éventuellement, poser des points d'arrêt, etc.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Passage de paramètre

Sujets relatifs
Passage d'une requête en paramètre	[PHP-JS]checkbox disabled et passage de paramètre
Passage de paramètre	passage de matrice en parametre
[RESOLU] tab multidimensionel en paramètre d'une fonction	Passage par paramètre
[Résolu] Passage Paramètre TList	Passage d'une Structures en parametre
Passage de paramètre PHP/JS -> XSL ?	[ACCESS]passage de paramètre entre formulaire et état
Plus de sujets relatifs à : Passage de paramètre

Page générée en 0.050 secondes