Problème code VBA

[eduraiss]

Bonjour le forum

Voila le code ci-dessous me permet de la feuille active de copier deux valeurs "la valeur active et la cellule range F1" d'ouvrir un fichier et de les coller en colonne A et B
Mon problème est que de temps en temps le collage en colonne A ne fonctionne pas

merci de votre aide



Application.ScreenUpdating = False
res = MsgBox("veux tu mettre en absence?", vbYesNo)
If res = vbYes Then
Dim X, Z As Range

Set X = ActiveCell
Set Z = Range("F1")


ChDir "Y:\ "CHEMIN DE MON FICHIER"
X.Copy
Columns(2).Find("*", , , , , xlPrevious).Offset(1, 0).Select
ActiveSheet.Paste

Z.Copy
Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close
ElseIf res = vbNo Then
End If

 

[eduraiss]

Re : Problème code VBA

Bonjour,

Personne pour me donner un petit coup de main?

Cordialement,

 

[laurent950]

Re : Problème code VBA

Bonsoir,

Comme j'ai pas le fichier mais l'idée est la cela devrais fonctionner

Dim Fx As Worksheet
Dim x As Range

Dim Fz As Worksheet
Dim z As Range

Application.ScreenUpdating = False

res = MsgBox("veux tu mettre en absence?", vbYesNo)

If res = vbYes Then

    Set Fx = Worksheets(ActiveSheet.Name)
    Set x = Fx.ActiveCell
    
    x.Copy
    Columns(2).Find("*", , , , , xlPrevious).Offset(1, 0).Select
    ActiveSheet.Paste
    Set x = Nothing
    
    ' Ouverture du classeur
    ChDir "Y:\" & "CHEMIN DE MON FICHIER"
    
    Set Fz = Worksheets(ActiveSheet)
    Set z = Fz.Range("F1")
    
    z.Copy
    Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
     Set z = Nothing
    
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    ActiveWindow.Close

   Set Fx = Nothing
   Set Fz = Nothing

ElseIf res = vbNo Then

End If

Laurent