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
Philippe.R
Bonsoir,
Une base :
Sub ou() MsgBox ThisWorkbook.Path End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/web/mpfe News://news.microsoft.com/microsoft.public.fr.excel "magic-dd" a écrit dans le message de news:
bonjour
comment inscrire en vba que je veux le chemin du dossier de mon classeur actif
Dim FName As String
FName = Dir ??????
merci de votre aide
Bonsoir,
Une base :
Sub ou()
MsgBox ThisWorkbook.Path
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de
news:f0e35119-bca4-4fee-8822-b50d84463ef2@j4g2000yqa.googlegroups.com...
bonjour
comment inscrire en vba que je veux le chemin du dossier de mon
classeur actif
Sub ou() MsgBox ThisWorkbook.Path End Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/web/mpfe News://news.microsoft.com/microsoft.public.fr.excel "magic-dd" a écrit dans le message de news:
bonjour
comment inscrire en vba que je veux le chemin du dossier de mon classeur actif
Dim FName As String
FName = Dir ??????
merci de votre aide
Jacky
Bonsoir, Si c'est en rapport de Nourrice et Source ;o)) A mettre dans un module standard du classeur source '----------------- Sub Macro2() Application.ScreenUpdating = False Workbooks.Open ThisWorkbook.Path & "nourrice.xls" Sheets("Feuil1").Range("A2:G30").Copy Workbooks("source.xls").Sheets("Feuil1").Range("A2").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Workbooks("nourrice.xls").Close [a2].Select End Sub '_____________
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
bonjour
comment inscrire en vba que je veux le chemin du dossier de mon classeur actif
Dim FName As String
FName = Dir ??????
merci de votre aide
Bonsoir,
Si c'est en rapport de Nourrice et Source ;o))
A mettre dans un module standard du classeur source
'-----------------
Sub Macro2()
Application.ScreenUpdating = False
Workbooks.Open ThisWorkbook.Path & "nourrice.xls"
Sheets("Feuil1").Range("A2:G30").Copy
Workbooks("source.xls").Sheets("Feuil1").Range("A2").PasteSpecial
Paste:=xlPasteValues
Application.CutCopyMode = False
Workbooks("nourrice.xls").Close
[a2].Select
End Sub
'_____________
--
Salutations
JJ
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de news:
f0e35119-bca4-4fee-8822-b50d84463ef2@j4g2000yqa.googlegroups.com...
bonjour
comment inscrire en vba que je veux le chemin du dossier de mon
classeur actif
Bonsoir, Si c'est en rapport de Nourrice et Source ;o)) A mettre dans un module standard du classeur source '----------------- Sub Macro2() Application.ScreenUpdating = False Workbooks.Open ThisWorkbook.Path & "nourrice.xls" Sheets("Feuil1").Range("A2:G30").Copy Workbooks("source.xls").Sheets("Feuil1").Range("A2").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Workbooks("nourrice.xls").Close [a2].Select End Sub '_____________
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
bonjour
comment inscrire en vba que je veux le chemin du dossier de mon classeur actif