Salut!!
Encore une fois besoin de votre aide!! Je cherche à insérer une variable dans un chemin d'accès... Ci-dessous mon code, je l'ai crée a partir de l'enregistrement de macro comme mon niveau est amateur.
Apres quelques recherches sur le net j'ai trouvé un bout de code comme ca :
RC = Shell("C:\Karafun\Karafun.exe c:\&nomfichier&")
Il me semble que les guillemets ''protège'' la chaîne de caractère car celle-ci contient des caractères spéciaux. Si tu laisse comme ça ton &titre& est interprété comme du texte et non une variable.
essaie ça aussi :
RC = Shell("C:\Karafun\Karafun.exe c:\"&nomfichier&)
L'exemple est pour lancer une appli, moi je cherche a modifier ce qui est en rouge dans le code et le remplacer par la valeur d'une cellule...
Sub bilancumulatif()
'
' bilancumulatif Macro
'
Workbooks.Open Filename:="Z:\ELFIQ\Reports\Cumulative Report -
ELFIQ -.xls"
Sheets("Templates").Select
Sheets("Templates").Copy Before:=Sheets("Templates")
Windows("
ELFIQ.xlsm").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("G12:I25").Select
Selection.Copy
Windows("Cumulative Report -
ELFIQ -.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("G13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("
ELFIQ.xlsm").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("G9:H9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Cumulative Report -
ELFIQ -.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("G9:H9").Select
ActiveSheet.Paste
Windows("
ELFIQ.xlsm").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Sheets("Templates (2)").Select
Sheets("Templates (2)").Name = Range("G9").Value
Range("C14").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Merci de votre aideé