Bonjour, 

J'ai créer ce code vba afin de copier/coller des données d'un fichier à un autre. En un clic mais une erreur persiste.

Pouvez-vous m'aider.? 

Sub recuperationdesdonnées()

'Déclaration des variables en mémoire

    Dim nblignes As Long

    Dim nblignespauses As Long

    Dim cpt As Long

    'affectation des variables

    'récupération de la dernière ligne pleine du classeur export

    nblignes = Workbooks("Tableau suivi retard-pause.xlsm").Sheets("Customer Export").Cells(Rows.Count, "C").End(xlUp).Row

    nblignespauses = Workbooks("Tableau suivi retard-pause.xlsm").Sheets("Anomalies").Cells(Rows.Count, "D").End(xlUp).Row

    cpt = nblignepauses + 1

    For i = 2 To nblignes

    'récupération des lignes "retard mineur","Compteur PAUSE","Absence non justifiées"

    If Left(Workbooks("Tableau_suivi_retard-pause.xlsm").Sheets("Customer Export").Range("C" & i).Text, 13) = "Retard mineur" Or Left(Workbooks("Customer Export.csv").Sheets("Customer Export").Range("C" & i).Text, 13) = "Compteur PAUS" Or Left(Workbooks("Customer Export.csv").Sheets("Customer Export").Range("C" & i).Text, 13) = "Absence non j" Then (ligne erreur)

    Workbooks("Tableau_suivi_retard-pause.xlsm").Sheets("Anomalies").Range("A" & cpt) = Workbooks("Customers_Export.csv").Sheets("Customers_Export").Range("D" & i).Value

    Workbooks("Tableau_suivi_retard-pause.xlsm").Sheets("Anomalies").Range("B" & cpt) = Workbooks("Customers_Export.csv").Sheets("Customers_Export").Range("E" & i).Text

    Workbooks("Tableau_suivi_retard-pause.xlsm").Sheets("Anomalies").Range("C" & cpt) = Workbooks("Customers_Export.csv").Sheets("Customers_Export").Range("F" & i).Text

    cpt = cpt + 1

    End If

    Next

End Sub

quelle erreur ? sur quelle ligne ?

Dans tous les cas, il faut que les fichiers soient ouvert 

Ok j'ai vu que tu as indiqué la ligne d'erreur, mais on n'a pas son message. Dans ton test, tu testes le contenu de 2 fichiers, donc mon hypothèse du dessus, à savoir que le fichier csv n'est pas ouvert, me semble être le problème.

Si ta macro est exécuté dans le fichier "Tableau suivi retard-pause.xlsm", tu peux raccourcir Workbooks("Tableau_suivi_retard-pause.xlsm") par ThisWorkbook

Bonjour, Merci d'indiquer un titre de sujet en rapport avec votre problématique.

Le message qui suit est une réponse automatique activée par un membre de l'équipe de modération. Les réponses automatiques leur permettent d'éviter d'avoir à répéter de nombreuses fois la même chose, ce qui leur fait gagner du temps et leur permet de s'occuper des sujets qui méritent plus d'attention.
Nous sommes néanmoins ouverts et si vous avez une question ou une remarque, n'hésitez pas à contacter la personne en question par Message Privé.
Pour plus d'informations, nous vous invitons à lire les règles générales du forum

Merci de colorer votre code à l'aide du bouton Code

Les forums d'Openclassrooms disposent d'une fonctionnalité permettant de colorer et mettre en forme les codes source afin de les rendre plus lisibles et faciles à manipuler par les intervenants. Pour cela, il faut utiliser le bouton de l'éditeur, choisir un des langages proposés et coller votre code dans la zone prévue. Si vous utilisez l'éditeur de messages en mode Markdown, il faut utiliser les balises <pre class="brush: vb;">Votre code ici</pre>.

Merci de modifier votre message d'origine en fonction.

Mauvais titre

Le titre est un élément important qui ne doit pas être négligé. N'oubliez pas cette règle simple : le titre idéal résume la question que vous allez poser en une petite phrase. Il doit permettre aux visiteurs de se repérer facilement dans le forum visité et d'identifier le sujet à sa seule lecture.

Vous pouvez utiliser divers préfixes comme [Erreur], [MySQL], [Compatibilité], etc... Aussi, pensez à consulter les règles propres à chaque forum (visibles dans les topics épinglés en haut des sections).

De plus, choisir un bon titre permet de rendre plus faciles les recherches des autres membres.

Les titres de type "besoin d'aide" ou "problème" ne sont pas tolérés.

Merci de modifier votre titre. Pour cela, éditez le premier message de votre sujet.

(titre originel : Problème code VBA)

Liens conseillés

• Charte de bonne conduite
• Règles générales du forum

-
Edité par AbcAbc6 4 octobre 2023 à 23:29:27