je voudrai mettre ds le presse papier un fichier pour pouvoir le coller
ailleurs. Mais le copiage et le collage sont dans deux macros différentes.
Donc pas de FSO.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Denis Michon
Bonjour John,
Essaie quelque chose dans le genre :
'Déclaration Api dans le haut d'un module standard Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
Si tu ne veux pas écraser un fichier qui aurait le même nom dans le répertoire de destination(vers) , utilises "True" dans cette ligne de commande :If CopyFile(Fichier, Vers, True) Then sinon tu peux utiliser "False.
'--------------------------------- Sub CopierFichierAilleurs()
Dim Fichier As String, Vers As String
Fichier = "C:ExcelClasseur1.xls" 'Source Vers = "C:Excelclocksclasseur1.xls" 'destination
If CopyFile(Fichier, Vers, True) Then MsgBox "Fichier copié" End If
End Sub '---------------------------------
Salutations!
"John Fuss" a écrit dans le message de news:bpfh6t$jn$ Bonjour,
je voudrai mettre ds le presse papier un fichier pour pouvoir le coller ailleurs. Mais le copiage et le collage sont dans deux macros différentes. Donc pas de FSO.
Merci d'avance.
John
Bonjour John,
Essaie quelque chose dans le genre :
'Déclaration Api dans le haut d'un module standard
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _
ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
Si tu ne veux pas écraser un fichier qui aurait le même nom dans le répertoire de destination(vers) , utilises "True"
dans cette ligne de commande :If CopyFile(Fichier, Vers, True) Then sinon tu peux utiliser "False.
'---------------------------------
Sub CopierFichierAilleurs()
Dim Fichier As String, Vers As String
Fichier = "C:ExcelClasseur1.xls" 'Source
Vers = "C:Excelclocksclasseur1.xls" 'destination
If CopyFile(Fichier, Vers, True) Then
MsgBox "Fichier copié"
End If
End Sub
'---------------------------------
Salutations!
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de news:bpfh6t$jn$1@s1.read.news.oleane.net...
Bonjour,
je voudrai mettre ds le presse papier un fichier pour pouvoir le coller
ailleurs. Mais le copiage et le collage sont dans deux macros différentes.
Donc pas de FSO.
'Déclaration Api dans le haut d'un module standard Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
Si tu ne veux pas écraser un fichier qui aurait le même nom dans le répertoire de destination(vers) , utilises "True" dans cette ligne de commande :If CopyFile(Fichier, Vers, True) Then sinon tu peux utiliser "False.
'--------------------------------- Sub CopierFichierAilleurs()
Dim Fichier As String, Vers As String
Fichier = "C:ExcelClasseur1.xls" 'Source Vers = "C:Excelclocksclasseur1.xls" 'destination
If CopyFile(Fichier, Vers, True) Then MsgBox "Fichier copié" End If
End Sub '---------------------------------
Salutations!
"John Fuss" a écrit dans le message de news:bpfh6t$jn$ Bonjour,
je voudrai mettre ds le presse papier un fichier pour pouvoir le coller ailleurs. Mais le copiage et le collage sont dans deux macros différentes. Donc pas de FSO.
Merci d'avance.
John
John Fuss
Pour le moment je ne désire que Copier le fichier (le collage se fera par un utilisateur en Ctrl+V)... Merci
John
"Denis Michon" a écrit dans le message de news:0CLub.40219$
Bonjour John,
Essaie quelque chose dans le genre :
'Déclaration Api dans le haut d'un module standard Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
Si tu ne veux pas écraser un fichier qui aurait le même nom dans le répertoire de destination(vers) , utilises "True"
dans cette ligne de commande :If CopyFile(Fichier, Vers, True) Then sinon tu peux utiliser "False.
'--------------------------------- Sub CopierFichierAilleurs()
Dim Fichier As String, Vers As String
Fichier = "C:ExcelClasseur1.xls" 'Source Vers = "C:Excelclocksclasseur1.xls" 'destination
If CopyFile(Fichier, Vers, True) Then MsgBox "Fichier copié" End If
End Sub '---------------------------------
Salutations!
"John Fuss" a écrit dans le message de news:bpfh6t$jn$
Bonjour,
je voudrai mettre ds le presse papier un fichier pour pouvoir le coller ailleurs. Mais le copiage et le collage sont dans deux macros différentes. Donc pas de FSO.
Merci d'avance.
John
Pour le moment je ne désire que Copier le fichier (le collage se fera par un
utilisateur en Ctrl+V)... Merci
John
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:0CLub.40219$Ng3.11891@charlie.risq.qc.ca...
Bonjour John,
Essaie quelque chose dans le genre :
'Déclaration Api dans le haut d'un module standard
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _
ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
Si tu ne veux pas écraser un fichier qui aurait le même nom dans le
répertoire de destination(vers) , utilises "True"
dans cette ligne de commande :If CopyFile(Fichier, Vers, True) Then sinon
tu peux utiliser "False.
'---------------------------------
Sub CopierFichierAilleurs()
Dim Fichier As String, Vers As String
Fichier = "C:ExcelClasseur1.xls" 'Source
Vers = "C:Excelclocksclasseur1.xls" 'destination
If CopyFile(Fichier, Vers, True) Then
MsgBox "Fichier copié"
End If
End Sub
'---------------------------------
Salutations!
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de
news:bpfh6t$jn$1@s1.read.news.oleane.net...
Bonjour,
je voudrai mettre ds le presse papier un fichier pour pouvoir le coller
ailleurs. Mais le copiage et le collage sont dans deux macros différentes.
Donc pas de FSO.
Pour le moment je ne désire que Copier le fichier (le collage se fera par un utilisateur en Ctrl+V)... Merci
John
"Denis Michon" a écrit dans le message de news:0CLub.40219$
Bonjour John,
Essaie quelque chose dans le genre :
'Déclaration Api dans le haut d'un module standard Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
Si tu ne veux pas écraser un fichier qui aurait le même nom dans le répertoire de destination(vers) , utilises "True"
dans cette ligne de commande :If CopyFile(Fichier, Vers, True) Then sinon tu peux utiliser "False.
'--------------------------------- Sub CopierFichierAilleurs()
Dim Fichier As String, Vers As String
Fichier = "C:ExcelClasseur1.xls" 'Source Vers = "C:Excelclocksclasseur1.xls" 'destination
If CopyFile(Fichier, Vers, True) Then MsgBox "Fichier copié" End If
End Sub '---------------------------------
Salutations!
"John Fuss" a écrit dans le message de news:bpfh6t$jn$
Bonjour,
je voudrai mettre ds le presse papier un fichier pour pouvoir le coller ailleurs. Mais le copiage et le collage sont dans deux macros différentes. Donc pas de FSO.
