Discussion :

[casefayere]

et si tu ouvres uniquement ton fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifié.XLs
With Workbooks("Tableau de Bord modifié.XLS").Worksheets("Feuil1")
dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1
msgbox dl

et vérifie le dl, parce que je suis sur de mon code pour dl, derniere ligne + 1

[tony020422]

ce code la me sort "49" qui est bien ma 1ere ligne vide.....

[casefayere]

donc le nom de fichier est bon, il est logique que si tu remets cette partie de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Workbooks("Tableau de Bord modifié.XLS").Worksheets("Feuil1")
dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & dl).Value = valeuracopier
End With

a49 doit se retrouver avec la valeur de la variable valeuracopier,

sinon il va certainement falloir que tu envoies tes fichiers avec des données bidon et allégés pour que je regardes de plus près

[Invité]

Bonjour,

Juste pour information, je viens d'essayer le code de Casefayere et chez moi cela fonctionne très bien.

Vous avez essayé en mode Débogage, Pas-à-pas détaillé pour voir ce qui ce passe.

Lorsque vous lancez le code votre 2ème fichier est bien fermé ?

vous pouvez aussi essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dl =  .Range("A65536").End(xlUp).Row + 1

[tony020422]

en ecrivant va:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifie.XLs"
With Workbooks("Tableau de Bord modifie.XLS").Worksheets("Feuil1")
dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & dl).Value = valeuracopier
End With
MsgBox valeuracopier

ca me retourne un msg box mais vide....la valeuracopier semble etre une cellule vide! alors que le contenu de ma cellule C9 de mon fichier "Création dossier chantiers.xls" est "ESSAI" !!

[casefayere]

Merci Jacques Jean (et bonsoir),
ça me rassure, je ne suis pas dans l'erreur,
c'est vrai qu'il faudrait vérifier pas à pas

tout à l'heure, tu ne m'as pas répondu pareil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

un mesage box me retourne la valeur de la cellule C9 !! donc ca c'est bon

je ne comprends plus

[tony020422]

Oui mais la variable valeuracopier de toute à l'heure et celle la ne sont pas les même!

Toute à l'heure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim dl As Integer, valeuracopier as string
valeuracopier = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value
msgbox valeuracopier
stop

Maintenant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifie.XLs"
With Workbooks("Tableau de Bord modifie.XLS").Worksheets("Feuil1")
dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & dl).Value = valeuracopier

[casefayere]

je reverrai ce soir car je dois rentrer chez moi

à ce soir

[tony020422]

ooo c'est pas vrai le boulet.........

je suis vraiment désolé mais la fatigue etant la je n'ai pas vu que j'avais mis en fin de script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.Quit
ActiveWindow.Close SaveChanges:=False

et je vérifiais a chaque fois mon Tableau de Bord modifie.XLS sans jamais constaté de changement...normal vu que ca se fermait sans s'enregistrer !!!!!!!!!!

aahh j'ai trop les nerfs j'ai perdu du temps et je vais en fait perdre je suis désolé quel débil!!

merci pour tout en tout cas vraiment, votre aide m'est fort précieuse!!!

Bonne fin d'aprem et a bientôt sur developpez

[Invité]

Comme quoi il suffisait de vérifier d'abord en "pas-à-pas", vous auriez compris le "pourquoi".

Et merci de ne pas oublier

[casefayere]

j'étais prêt à me remettre au charbon mais bonne nouvelle ! il n'y pas un langage VBA par utilisateur
je suis content que ça soit résolu, à moins que........d'autres problèmes viennent se faire jour.

Bonne soirée tony, Jacques Jean, le foruim