Erreur compatibilité de type VBA

[aure_8]

Bonjour à tous,

Sur une macro j'ai un problème qui m'indique une incompatibilité de type sur une de mes lignes

\Option Explicit

Sub Recopie(Kase As Range)
Dim Chemin As String, Fichier As String

  Chemin = ThisWorkbook.Path & Application.PathSeparator
  Fichier = Range("A2.A350" & (((Kase.Row - 4) \ 7) * 7) + 1)  => ligne à problème
  If Dir(Chemin & Fichier) = "" Then
    MsgBox "Le fichier " & Fichier & ".xls est introuvable"
    Exit Sub
  End If
  Application.ScreenUpdating = False
  With Workbooks.Open(Chemin + Fichier)
    With .Sheets(1)
      With .Range("H" & 84 + ((Kase.Row - 4) Mod 6))
        .Value = Kase
        .NumberFormat = "m/d/yyy"
      End With
    End With
    .Close savechanges:=True
  End With
End Sub\[code]

Je mets en PJ les fichiers correspondant à ma macro.

Merci à vous et bonne journée,

Cdlt

 

[Pierrot93]

Re : Erreur compatibilité de type VBA

Bonjour,

peut être ceci :

Fichier = Range("A" & (((Kase.Row - 4) \ 7) * 7) + 1)

mais vois pas de nom de fichier colonne A, ni de code vba dans ton classeur....

bonne journée
@+

 

[Pierrot93]

Re : Erreur compatibilité de type VBA

Re,

aarf... désolé n'avais vu qu'un classeur.... mais attention les cellules de la colonne A sont fusionnées.... et vba et les cellules fusionnées font rarement bon ménage....

 

[aure_8]

Re : Erreur compatibilité de type VBA

Bonjour Pierrot93,

Merci pour ta réponse. Effectivement j'ai rajouté le deuxième fichier après m'être aperçu qu'il nse s'est pas chargé.
Si je mets "A" une boîte de dialogue m'indique qu'il ne connait pas le fichier Référence FI (c'est le contenu de la cellule A1). En fait je cherche à exclure cette cellule dans mon code mais je n'y arrive pas.
Pour les cellules fusionnées j'ai déjà utilisé ce code pour un autre fichier qui contenait des cellules fusionnées et ça marchait nickel. Donc c'est pour ça que je suis un peu perdu ^^

@+

 

[Pierrot93]

Re : Erreur compatibilité de type VBA

Re,

perso j'ai un peu de mal à comprendre ton calcul :

(((Kase.Row - 4) \ 7) * 7) + 1)

 

[aure_8]

Re : Erreur compatibilité de type VBA

En fait je décalle de 4 par rapport à ma colonne A puisque les dates sont sur la colonne D.
Et il y'a 7 lignes qui correspondent à mon fichier.

 

[Pierrot93]

Re : Erreur compatibilité de type VBA

Re,

vérifie peut être déjà si "Kase.Row - 4) \ 7) * 7) + 1" te renvoie le bon numéro....

 

[Pierrot93]

Re : Erreur compatibilité de type VBA

Re,

regarde ceci, à adapter à ton projet, fonctionne chez moi :

Dim i As Long
i = 13
MsgBox Range("A" & i).MergeArea(1)

 

[aure_8]

Re : Erreur compatibilité de type VBA

Re,

Merci pour le code, ça a l'air de fonctionner chez moi aussi, j'ai juste un soucis: le fichier cible est introuvable alors que le chemin est donné. Il me reste ça à modifier.

Merci beaucoup pour ton aide

 

[Paf]

Re : Erreur compatibilité de type VBA

bonjour aure_8, Pierrot93

même si j'ai un peu de mal à saisir la "formule", surtout avec les explications de aure_8, ça fonctionne comme ça:

Fichier = Range("A" & (((Kase.Row - 4) \ 7) * 7) + 2)

Bonne suite

 

[aure_8]

Re : Erreur compatibilité de type VBA

Bonjour paf,

Merci pour ta réponse, ça fonctionne très bien.
Désolé pour les explications pas claires.

@+

Cdlt

 

[aure_8]

Re : Erreur compatibilité de type VBA

Re,

Je reviens vers vous pour une nouvelle question:
- la macro ne me permet que de copier les dates du premier fichier
- si je rentre une date entre D2 et D7 aucun pb
- si je veux rentrer des dates suivantes (pour le fichier excel2.xls par exemple) la copie se fait sur mon premier fichier (excel1.xls)

J'ai essayé de voir si ça ne venait pas de la sélection de la plage, mais sinon je ne vois vraiment pas.

Cdlt