Macro Excel identifier deux dates Résolu

Question

Bonjour, 

Je crée une macro qui me permette de prélever des données depuis une base et de les coller, en fonction de la date dans un fichier d'analyse...
Voici le code :

 
    Workbooks.Open Filename:="D:\Vente\Base.xls", _
        UpdateLinks:=0
    ActiveWorkbook.UpdateLink Name:="D:\Analyse\choux.xls", Type _
        :=xlExcelLinks
    Workbooks("Vente.XLS").Worksheets("Base").Range("E4:BK4").Copy
copie des données depuis le fichier base   
    
    Prueba = ("[Vente.XLS]Base!r1c12")
date de mise à jour du fichier, qui me permettra de coller l'information au bon endroit sur le fichier d'analyse
 
    Windows("analyse.XLS").Activate
    Sheets("Choux").Select
    
    
    K = 1
    Do While Worksheets ("Choux").Cells(K, 1) <> (PRUEBA)
        K = K + 1
        Loop
Et l'écriture ne permet pas qu'il "reconnaisse" la date   

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    End

Merci d'avance pour l'aide!

Configuration: Windows XP / Internet Explorer 6.0

Krysstof · Answer

je ne comprends pas tout dans tes explication, surtout le dernier commentaire sur "l'écriture qui ne permet pas qu'il reconnaisse la date"... 

mais bon, je vois un truc qui me choque :

Prueba = ("[Vente.XLS]Base!r1c12") 

essaye plutot 
Prueba = Workbooks("Vente.XLS").sheets("Base").cells(1,12).Value

jacques · Answer

Bon ça avance un peu...seul problème, il colle les données de juin en juillet...^^

    Workbooks("vente.XLS").Worksheets("base").Range("E4:BK4").Copy
   
    
    prueba = Workbooks("vente.XLS").Worksheets("base").Cells(1, 12).Value
    
    Windows("analyse.XLS").Activate
    Sheets("choux").Select
    
    K = 175
    Do While Cells(K, 1).Value <> prueba
        K = K + 1
        If K = 180 Then End
        Loop
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    

@Krysstof : "l'écriture qui ne permet pas qu'il reconnaisse la date"... 
c'était pour dire que j'avais un problème de syntaxe, les .Value manquants...

Krysstof · Answer

hum...

"Selection.PasteSpecial"

tu sélectionne jamais la cellule  Cells(K, 1)

essaye de rajouter une selection de la cellule dans la boucle

ou alors de faire le PasteSpécial sur la référence complete de la cellule

Cells(K, 1).pastespecial (ou Cells(K-1, 1), ca va dépendre de l'idée de ton algorithme... le mieux c'est de faire la selection de la cellule dans la boucle...)

Mytå · Answer

Salut le forum

Pourquoi ne pas utiliser la méthode Find


    With ActiveSheet
        Set rFound = .Columns(1).Find(What:=LaDate, After:=.Cells(1, 1), LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)

        If Not rFound Is Nothing Then
        'ton action
        End If

    End With

Mytå

jacques · Answer

Re-bonjour!

donc voilà, maintenant ça marche, merci Krysstof, il manquait bien la sélection de la cellule dans le PasteSpecial...

prueba = Workbooks("vente.XLS").Worksheets("base").Cells(1, 12).Value
    
    Windows("analyse.XLS").Activate
    Sheets("Choux").Select
    
    K = 1
    Do While Cells(K, 1).Value <> prueba
        K = K + 1
        Loop
    Cells(K, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False



Bonne journée!

Macro Excel identifier deux dates

5 réponses

Newsletters