XL 2010 Copier/Transposer plage vers Fichier fermé

dysorthographie à dit:

Bonjour,
Il y a 2 type de requête,des requêtes de sélection et des requêtes d'actions.

Il y a 3 grands type de requêtes d'actions,Ajout, modification, suppression !

Voici le modèle type d'une requête de sélection !

Code:

select table.champ1, table.champ2,etc
from table (S) inner join
Where champ(S)=valeur (s)'facultatif
Group by champs 'facultatif
Having champ(S)=valeur (s)'facultatif

Les requêtes d'actions

Code:

'ajout
Insert table
(Champs)
Values (val1,val2,etc)

'modification
Update table
Set champ(s)=valeure(s)
Where identifiant=valeurID

'Suppression n'existe pas pour EXCEL
Delete table
Where identifiant=valeurID

Cliquez pour agrandir...

patricktoulon à dit:

bonsoir a tous

il est possible de connaitre la première ligne vide d'une plage en partant d'en bas dans le fichier fermé( en gros le end(xlup) dans une fichier fermé)
avec une petite fonction perso utilisant une macro4
exemple pour ton fichier destination

VB:

Sub test()
    Dim chemin$, Fichier$, Rng As Range, Feuille$
    chemin = ThisWorkbook.Path & "\"
    Fichier = "Classeur Destination.xlsx"
    'Nom de la feuille dans le classeur fermé
    Set Rng = [B1:B100000]
    Feuille = "Feuil1"
    x = GetLastRowColInClosedFich(chemin, Fichier, Feuille, Rng)

MsgBox Range("B" & x).Resize(, 3).Address(0, 0)
End Sub

Function GetLastRowColInClosedFich(chemin$, Fichier$, Feuille, Rng As Range)
    Dim Addr$, Formule, n&
    Addr = Rng.Address(, , xlR1C1)
    Formule = "'" & chemin & "[" & Fichier & "]" & Feuille & "'!" & Addr
    'Debug.Print Formule
    On Error Resume Next
    n = ExecuteExcel4Macro("MATCH(""zzz""," & Formule & ")")    'dernière cellule
    On Error GoTo 0
    GetLastRowColInClosedFich = n
End Function

parti de là le SQL devrait être plus simple

coucou Robert Meilleurs veux

Cliquez pour agrandir...

job75 à dit:

Je disais que c'était élémentaire :

VB:

Sub Exporter()
Dim source, lig&
source = Sheets("Feuil1").[C6:C8] 'à adapter
Application.ScreenUpdating = False
With Workbooks.Open(ThisWorkbook.Path & "\Classeur Destination.xlsx").Sheets(1).[B:D] 'ouvre le classeur
    If Application.CountA(.Cells) Then lig = .Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1 Else lig = 1
    .Rows(lig) = Application.Transpose(source)
    .Parent.Parent.Close True 'enregistre et ferme le classeur
End With
End Sub

Cliquez pour agrandir...

Dis-moi comment fais-tu pour te souvenir de tous ces codes?

Cliquez pour agrandir...