Re Salut Roland, le Forum
Merci pour les applaudissements !
J'utilise des passages de paramères (d'arguments si j'ai compris) dans mon dernier outil pour XLD, pour l'instant on est en Beta Version avec des soucis sous XP 2003 mais je pense que çà va tourner pour tout le monde sous peu... (Lien supprimé
Dans le contexte de mon exemple précédent, en extrapollant, voici comment je m'y prendrai si je devais récupérer la valeur de la cellule "B2" de toutes les feuilles donc le nom commence par "Open" du classeur actif... Chacune de ces feuilles contenant le nom d'un classeur existant en "A1"...
Sub TransmitArguments()
Dim WS As Worksheet
Dim FileToOpen As String
Dim StringToReport As String
For Each WS In Worksheets
If Left(WS.Name, 6) = ("Closed") Then
Application.DisplayAlerts = False
WS.Delete
ElseIf Left(WS.Name, 5) = ("Open") Then
FileToOpen = WS.Range("A1")
StringToReport WS.Range("B2")
Report Filetopen, StringToReport
End If
Next WS
End Sub
Sub Report(FileName As String, StringReport As String)
Dim WB As Workbook
With Application
.EnableEvents = False
Set WB = Workbooks.Open(FileName)
With WB
.Sheets(1).Range("A2") = StringToReport
.Close True
End With
.EnableEvents = True
End With
End If
End Sub
Donc FileToOpen et StringToReport sont bien trasmises dans la Macro Report depuis la Macro TransmitArguments....
Mais ce n'est peutêtre pas çà ta question !!!
Bonne Nuit
@+Thierry