Bonjour à tous,
Voici mon problème, depuis Word j'ouvre un fichier excel "Devis.xlsm".
Quand je suis dans ce fichier Devis celui-ci ouvre un autre classeur "Tarif.xlsm" pour récupère des références et prix de produits que je copie dans Devis.
Quand j'ai fini, je ferme mon classeur Devis et mon fichier word, mais le classeur Tarif reste ouvert.
Quand je refais un autre devis, j'ouvre mon nouveau fichier excel Devis, qui fais appel au classeur Tarif mais celui-ci ne le voit pas, comme si il n'était pas ouvert, alors qu'il est bien dans la barre de tache.
Une petite explication ?
voici le code word pour ouvrir le fichier excel Devis :
Dim App As Object
' code
Set App = CreateObject("Excel.Application")
With App
.Workbooks.Open DocDevis.FichierExcel ' c'est la variable qui contient le nom du fichier Devis
.Visible = True
End With
Quand je regarde dans le gestionnaire de tache il y à 2 fois excel de lancé.
Et dans excel quand je test si le classeur Tarif est ouvert, pour lui il est fermé.
est quand je cherche à récupérer une valeur il plante (normal il ne le voit pas)
ex
DerniereLigne = Workbooks("Tarif.xlsm").Sheets(NomDeLAFeuilleExcel).Cells(65536, NumDeLaColonneRechercheDernierLigne).End(xlUp).Row + 1
Si vous avez une idée merci d'avance pour votre aide.
Cordialement
Eric
Voici mon problème, depuis Word j'ouvre un fichier excel "Devis.xlsm".
Quand je suis dans ce fichier Devis celui-ci ouvre un autre classeur "Tarif.xlsm" pour récupère des références et prix de produits que je copie dans Devis.
Quand j'ai fini, je ferme mon classeur Devis et mon fichier word, mais le classeur Tarif reste ouvert.
Quand je refais un autre devis, j'ouvre mon nouveau fichier excel Devis, qui fais appel au classeur Tarif mais celui-ci ne le voit pas, comme si il n'était pas ouvert, alors qu'il est bien dans la barre de tache.
Une petite explication ?
voici le code word pour ouvrir le fichier excel Devis :
Dim App As Object
' code
Set App = CreateObject("Excel.Application")
With App
.Workbooks.Open DocDevis.FichierExcel ' c'est la variable qui contient le nom du fichier Devis
.Visible = True
End With
Quand je regarde dans le gestionnaire de tache il y à 2 fois excel de lancé.
Et dans excel quand je test si le classeur Tarif est ouvert, pour lui il est fermé.
est quand je cherche à récupérer une valeur il plante (normal il ne le voit pas)
ex
DerniereLigne = Workbooks("Tarif.xlsm").Sheets(NomDeLAFeuilleExcel).Cells(65536, NumDeLaColonneRechercheDernierLigne).End(xlUp).Row + 1
Si vous avez une idée merci d'avance pour votre aide.
Cordialement
Eric