Bonjour,
Afin de garder en mémoire mon classeur actif et ma feuille active à un moment donnée, j'enregistre leurs références dans des cellules.
J'enregistre ces données dans des cellules plutôt que de passer par des variables car je réutilise ces données dans d'autres modules:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 With Workbooks("Progr.xls").Worksheets("MemoiresUFS") .Range("H1") = Macellule.Address .Range("H2") = Mafeuille.Name .Range("H3") = Monclasseur.Name End With
Comme vous l'aurez certainement déjà remarqué, une erreur survient lors de la rédaction de mon code sur la ligne en gras.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 With Workbooks("Progr.xls").Sheets("MemoiresUFS") Dim Mafeuille As String Set Mafeuille = "Workbooks("" .Range("H3").Value & "")" & ".Sheets("" & .Range("H2").Value & "")" If Mafeuille.Range("R3") = "Utilisateur: Dupont" Then
J'ai donc 1 (ou2) question: Comment mettre des guillemets entre guillemetspour former ma chaîne?
Ou alors dois-je faire autrement ? (ce que je suppose)
Merci d'avance
Partager