Bonjour à tous,
Je suis nouveau dans ce forum et je viens à vous car j'ai une question très important dont je ne trouve pas la réponse. J'ai bien cherché sur le forum mais sans réussite.
Donc voilà mon problème: J'ai mit 3 chiffres dans 3 cellules différentes, par exemple A1 A2 et A3. J'ai crée un bouton avec macro pour pouvoir exporter la valeurs de ces 3 cellules sur le blocnote. Donc voici le programme que j'utilise pour exporter UNE valeur :
Range("A1:A3").Select
Selection.Copy
Dim RetVal
RetVal = Shell("notepad.exe", 3)
SendKeys ("^v"), True
SendKeys ("%{tab}"), True
Donc ça ça marche impeccable. Par contre maintenant j'aimerais faire une phrase comprenant ces 3 valeurs et l'exporter sur le bloc note.
Donc en gros voilà ce que je fais pour cela :
Private Sub CommandButton1_Click()
Dim repertoire As String
Dim droit As String
Dim id As Integer
Dim phrase As String
repertoire = Range("A1").Value
phrase = ("Je suis le répertoire = " & repertoire) (1)
''''''''''Range("A7:L13").Select
Selection.Copy
Dim RetVal
RetVal = Shell("notepad.exe", 3)
SendKeys ("^v"), True
SendKeys ("%{tab}"), True
End Sub
donc mon problème est en (1) ou je ne connais pas ce qu'il faut écrire pour pouvoir exporter, la variable repertoire dans une phrase, vers le blocnote. Je pense qu'il ne doit pas manquer grand chose mais je galère à mort depuis ce matin, j'ai cherché partout sur le net mais rien ne fonctionne pour ce que je veux faire.
Un grand grand grand merci d'avance.
Bonne fin de journée à tous.
Je suis nouveau dans ce forum et je viens à vous car j'ai une question très important dont je ne trouve pas la réponse. J'ai bien cherché sur le forum mais sans réussite.
Donc voilà mon problème: J'ai mit 3 chiffres dans 3 cellules différentes, par exemple A1 A2 et A3. J'ai crée un bouton avec macro pour pouvoir exporter la valeurs de ces 3 cellules sur le blocnote. Donc voici le programme que j'utilise pour exporter UNE valeur :
Range("A1:A3").Select
Selection.Copy
Dim RetVal
RetVal = Shell("notepad.exe", 3)
SendKeys ("^v"), True
SendKeys ("%{tab}"), True
Donc ça ça marche impeccable. Par contre maintenant j'aimerais faire une phrase comprenant ces 3 valeurs et l'exporter sur le bloc note.
Donc en gros voilà ce que je fais pour cela :
Private Sub CommandButton1_Click()
Dim repertoire As String
Dim droit As String
Dim id As Integer
Dim phrase As String
repertoire = Range("A1").Value
phrase = ("Je suis le répertoire = " & repertoire) (1)
''''''''''Range("A7:L13").Select
Selection.Copy
Dim RetVal
RetVal = Shell("notepad.exe", 3)
SendKeys ("^v"), True
SendKeys ("%{tab}"), True
End Sub
donc mon problème est en (1) ou je ne connais pas ce qu'il faut écrire pour pouvoir exporter, la variable repertoire dans une phrase, vers le blocnote. Je pense qu'il ne doit pas manquer grand chose mais je galère à mort depuis ce matin, j'ai cherché partout sur le net mais rien ne fonctionne pour ce que je veux faire.
Un grand grand grand merci d'avance.
Bonne fin de journée à tous.