Bonsoir
je désire coller une ligne de valeur dans un autre classeur :
Application.DefaultFilePath & "\Questions\" & "Les statistiques.xls"
Volià ce que j'ai écris, cela ne fonctionne pas ;-)
Merci
Flo riant
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
Florian
J'ai trouvé : Windows("Les statistiques.xls").Activate Je vous remercie Flo riant
"Florian" a écrit dans le message de news: %
Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
J'ai trouvé :
Windows("Les statistiques.xls").Activate
Je vous remercie
Flo riant
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23rPRa3JuFHA.3588@tk2msftngp13.phx.gbl...
Bonsoir
je désire coller une ligne de valeur dans un autre classeur :
Application.DefaultFilePath & "Questions" & "Les statistiques.xls"
Volià ce que j'ai écris, cela ne fonctionne pas ;-)
Merci
Flo riant
J'ai trouvé : Windows("Les statistiques.xls").Activate Je vous remercie Flo riant
"Florian" a écrit dans le message de news: %
Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
'------------------------------------- Sub CopiePlage()
Dim Rg As Range, Lig As Long Dim Dest As Range
With ThisWorkbook With .Worksheets("Feuil1") Lig = .Range("A65536").End(xlUp).Row Set Rg = .Range("A" & Lig & ":T" & Lig) End With End With
With Workbooks("Les statistiques.xls") With .Worksheets("La base") Lig = .Range("A65536").End(xlUp)(2).Row Set Dest = .Range("A" & Lig) End With End With
Rg.Copy Dest With Dest .RowHeight = 42.75 End With
Set Rg = Nothing: Set Dest = Nothing
End Sub '-------------------------------------
Salutations!
"Florian" a écrit dans le message de news: % Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
'-------------------------------------
Sub CopiePlage()
Dim Rg As Range, Lig As Long
Dim Dest As Range
With ThisWorkbook
With .Worksheets("Feuil1")
Lig = .Range("A65536").End(xlUp).Row
Set Rg = .Range("A" & Lig & ":T" & Lig)
End With
End With
With Workbooks("Les statistiques.xls")
With .Worksheets("La base")
Lig = .Range("A65536").End(xlUp)(2).Row
Set Dest = .Range("A" & Lig)
End With
End With
Rg.Copy Dest
With Dest
.RowHeight = 42.75
End With
Set Rg = Nothing: Set Dest = Nothing
End Sub
'-------------------------------------
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news: %23rPRa3JuFHA.3588@tk2msftngp13.phx.gbl...
Bonsoir
je désire coller une ligne de valeur dans un autre classeur :
Application.DefaultFilePath & "Questions" & "Les statistiques.xls"
Volià ce que j'ai écris, cela ne fonctionne pas ;-)
Merci
Flo riant
'------------------------------------- Sub CopiePlage()
Dim Rg As Range, Lig As Long Dim Dest As Range
With ThisWorkbook With .Worksheets("Feuil1") Lig = .Range("A65536").End(xlUp).Row Set Rg = .Range("A" & Lig & ":T" & Lig) End With End With
With Workbooks("Les statistiques.xls") With .Worksheets("La base") Lig = .Range("A65536").End(xlUp)(2).Row Set Dest = .Range("A" & Lig) End With End With
Rg.Copy Dest With Dest .RowHeight = 42.75 End With
Set Rg = Nothing: Set Dest = Nothing
End Sub '-------------------------------------
Salutations!
"Florian" a écrit dans le message de news: % Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
with Workbooks("Les statistiques.xls") .Activate .Sheets("La base").Select end with
eh oui, il y a de rares cas où il faut en passer par la méthode activate si on veut faire certaines choses après et notamment un Select d'une feuille
A+
Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
with Workbooks("Les statistiques.xls")
.Activate
.Sheets("La base").Select
end with
eh oui, il y a de rares cas où il faut en passer par la méthode activate
si on veut faire certaines choses après et notamment un Select d'une feuille
A+
Bonsoir
je désire coller une ligne de valeur dans un autre classeur :
Application.DefaultFilePath & "Questions" & "Les statistiques.xls"
Volià ce que j'ai écris, cela ne fonctionne pas ;-)
Merci
Flo riant
with Workbooks("Les statistiques.xls") .Activate .Sheets("La base").Select end with
eh oui, il y a de rares cas où il faut en passer par la méthode activate si on veut faire certaines choses après et notamment un Select d'une feuille
A+
Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
'------------------------------------- Sub CopiePlage()
Dim Rg As Range, Lig As Long Dim Dest As Range
With ThisWorkbook With .Worksheets("Feuil1") Lig = .Range("A65536").End(xlUp).Row Set Rg = .Range("A" & Lig & ":T" & Lig) End With End With
With Workbooks("Les statistiques.xls") With .Worksheets("La base") Lig = .Range("A65536").End(xlUp)(2).Row Set Dest = .Range("A" & Lig) End With End With
Rg.Copy Dest With Dest .RowHeight = 42.75 End With
Set Rg = Nothing: Set Dest = Nothing
End Sub '-------------------------------------
Salutations!
"Florian" a écrit dans le message de news: % Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
'-------------------------------------
Sub CopiePlage()
Dim Rg As Range, Lig As Long
Dim Dest As Range
With ThisWorkbook
With .Worksheets("Feuil1")
Lig = .Range("A65536").End(xlUp).Row
Set Rg = .Range("A" & Lig & ":T" & Lig)
End With
End With
With Workbooks("Les statistiques.xls")
With .Worksheets("La base")
Lig = .Range("A65536").End(xlUp)(2).Row
Set Dest = .Range("A" & Lig)
End With
End With
Rg.Copy Dest
With Dest
.RowHeight = 42.75
End With
Set Rg = Nothing: Set Dest = Nothing
End Sub
'-------------------------------------
Salutations!
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23rPRa3JuFHA.3588@tk2msftngp13.phx.gbl...
Bonsoir
je désire coller une ligne de valeur dans un autre classeur :
Application.DefaultFilePath & "Questions" & "Les statistiques.xls"
Volià ce que j'ai écris, cela ne fonctionne pas ;-)
Merci
Flo riant
'------------------------------------- Sub CopiePlage()
Dim Rg As Range, Lig As Long Dim Dest As Range
With ThisWorkbook With .Worksheets("Feuil1") Lig = .Range("A65536").End(xlUp).Row Set Rg = .Range("A" & Lig & ":T" & Lig) End With End With
With Workbooks("Les statistiques.xls") With .Worksheets("La base") Lig = .Range("A65536").End(xlUp)(2).Row Set Dest = .Range("A" & Lig) End With End With
Rg.Copy Dest With Dest .RowHeight = 42.75 End With
Set Rg = Nothing: Set Dest = Nothing
End Sub '-------------------------------------
Salutations!
"Florian" a écrit dans le message de news: % Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
"anonymousA" a écrit dans le message de news: 43273752$0$5366$
si le classeur Les statistiques.xls est ouvert,
with Workbooks("Les statistiques.xls") .Activate .Sheets("La base").Select end with
eh oui, il y a de rares cas où il faut en passer par la méthode activate si on veut faire certaines choses après et notamment un Select d'une feuille
A+
Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
43273752$0$5366$8fcfb975@news.wanadoo.fr...
si le classeur Les statistiques.xls est ouvert,
with Workbooks("Les statistiques.xls")
.Activate
.Sheets("La base").Select
end with
eh oui, il y a de rares cas où il faut en passer par la méthode activate
si on veut faire certaines choses après et notamment un Select d'une
feuille
A+
Bonsoir
je désire coller une ligne de valeur dans un autre classeur :
Application.DefaultFilePath & "Questions" & "Les statistiques.xls"
Volià ce que j'ai écris, cela ne fonctionne pas ;-)
Merci
Flo riant
"anonymousA" a écrit dans le message de news: 43273752$0$5366$
si le classeur Les statistiques.xls est ouvert,
with Workbooks("Les statistiques.xls") .Activate .Sheets("La base").Select end with
eh oui, il y a de rares cas où il faut en passer par la méthode activate si on veut faire certaines choses après et notamment un Select d'une feuille
A+
Bonsoir je désire coller une ligne de valeur dans un autre classeur : Application.DefaultFilePath & "Questions" & "Les statistiques.xls" Volià ce que j'ai écris, cela ne fonctionne pas ;-) Merci Flo riant
